You could use read.table
with sep=";"
:
d <- read.table(textConnection("
36.7416894818782;10.227453200912464;Ben Arous;Gouvernorat de Ben Arous;TN;
37.17652020713887;9.784534661865223;Tinjah;Gouvernorat de Bizerte;TN;
34.7313;10.763400000000047;Sfax;Sfax;TN;
34.829474860751915;9.791573033378995;Regueb;Gouvernorat de Sidi Bouzid;TN;"),
sep=";", stringsAsFactors=FALSE)
d[, 3]
# [1] "Ben Arous" "Tinjah" "Sfax" "Regueb"