Code to get money_control_ids of companies from their website. Input data should be BSE_code/NSE_code/ISIN_code. I used ISIN_code data.

get_mc_ids.R

library(httr)
#library(stringr) #for str_split which is same as strsplit
data <- read.csv("nse.csv",header= TRUE,sep=",",stringsAsFactors = FALSE)
search_url <- "http://www.moneycontrol.com/stocks/cptmarket/compsearchnew.php?search_str="
url_list = paste(search_url,data[,'ISIN.code'],sep = "")
mc_list =c()
for(url in url_list){
x <- GET(url)
#redirect_url <- unlist(strsplit(x$url,"/")) 
#mc_id<- redirect_url[length(redirect_url)]
redirect_url <- as.vector(unlist(strsplit(x$url,"")))
l <- length(redirect_url)
mc_id <-paste(redirect_url[seq(2+l-match('/',rev(redirect_url)),l)],collapse  ="")
mc_list <- c(mc_list,mc_id)
print(mc_id)
}
data['moneycontrol.id'] <-mc_list
write.csv(file = "withmcids.csv", x=data)