x <- c("#balancetonPorc#%$%#$%^","#balancetonporc#%$%, text")gsub("balancetonporc[^,]*", "BalanceTonPorc", x, ignore.case=TRUE)
Standard input is empty
[1] "#BalanceTonPorc" "#BalanceTonPorc, text"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!