近日,遇到一个问题,编写程序,删除任意字符串中包含的所有成对的括号及括号里面的字符,如字符“AB(CD)EFG(I)JK”处理成“ABEFJK”我们来利用R语言中的正则化表达式实现,由于楼主对R语言也在积极学习当中,所以将解决问题时遇到的困难和错误的程序也贴出来,希望能帮到大家,若有人有更好的方法,欢迎积极留言。
首先,尝试利用gsub函数首先,尝试利用gsub函数
a<-"AB(CD)EFG(I)JK"
gsub("[(.*)]", "", a)
[1] “ABCDEFGIJK”
发现只是把括号去除了,没有去掉括号当中的字符。
gsub("\\(.*\\)","",a)
[1]”ABJK”
能去掉第一个左括号和第一个右括号之间的字符
gsub("\\(.*?\\)","",a)
[1] “ABEFGJK”
终于去掉所有的括号
然后,另外一个方法就是利用(stringr)包,这个包比较好记,语法没有那么生硬。stringr包是用来处理字符串的。R语言本身的 字符处理 能力已经不错了,但使用起来并不是很方便。stringr包将原本的字符处理函数进行了打包,统一了函数名和参数。在增强功能基础上,还能处理向量化数据并兼容非字符数据。stringr包号称能让处理字
library(stringr)
str_replace_all(a,"\\((.*?)\\)","");#去掉所有的括号和括号中的值
下面的程序是楼主请教一位C语言高手写出的程序。
int main(int argc, char* argv[])
{
// setup input string and output string
std::string str_input = "(ab)cd(efg)h(i)(jk)";
int len = str_input.length();
std::string str_output;
str_output.reserve(len);
// init bool var 'omit'
bool omit = false;
// loop through two strings
for(int i = 0;i < len;++i)
{
// refine status of 'omit'
if(str_input[i] == '(')
// let 'omit' to be 'true', if '(' encountered at current position
{
omit = true;
}
else if(i-1 >= 0 && i-1 < len && str_input[i-1] == ')')
// let 'omit' to be 'false' if the previous position is ')'
{
omit = false;
}
// copy from input into output if 'omit' is 'false
if(!omit)
{
str_output += str_input[i];
}
}
// print input string
std::cout << "input string: " << str_input << std::endl;
// print output string
std::cout << "output string: " << str_output << std::endl;
return 0;
}