99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話：13121318867

登錄
首頁精彩閱讀利用R語言如何去除字符串中成對(duì)的括號(hào)
利用R語言如何去除字符串中成對(duì)的括號(hào)
2018-01-08
收藏

利用R語言如何去除字符串中成對(duì)的括號(hào)

近日，遇到一個(gè)問題，編寫程序，刪除任意字符串中包含的所有成對(duì)的括號(hào)及括號(hào)里面的字符，如字符“AB(CD)EFG(I)JK”處理成“ABEFJK”我們來利用R語言中的正則化表達(dá)式實(shí)現(xiàn)，由于樓主對(duì)R語言也在積極學(xué)習(xí)當(dāng)中，所以將解決問題時(shí)遇到的困難和錯(cuò)誤的程序也貼出來，希望能幫到大家，若有人有更好的方法，歡迎積極留言。

首先，嘗試?yán)胓sub函數(shù)首先，嘗試?yán)胓sub函數(shù)
a<-"AB(CD)EFG(I)JK"
gsub("[(.*)]", "", a)
[1] “ABCDEFGIJK”
發(fā)現(xiàn)只是把括號(hào)去除了，沒有去掉括號(hào)當(dāng)中的字符。
gsub("\\(.*\\)","",a)
[1]”ABJK”
能去掉第一個(gè)左括號(hào)和第一個(gè)右括號(hào)之間的字符
gsub("\\(.*?\\)","",a)

[1] “ABEFGJK”
終于去掉所有的括號(hào)
然后，另外一個(gè)方法就是利用(stringr)包，這個(gè)包比較好記，語法沒有那么生硬。stringr包是用來處理字符串的。R語言本身的 字符處理 能力已經(jīng)不錯(cuò)了，但使用起來并不是很方便。stringr包將原本的字符處理函數(shù)進(jìn)行了打包，統(tǒng)一了函數(shù)名和參數(shù)。在增強(qiáng)功能基礎(chǔ)上，還能處理向量化數(shù)據(jù)并兼容非字符數(shù)據(jù)。stringr包號(hào)稱能讓處理字
 library(stringr)
 str_replace_all(a,"\\((.*?)\\)","");#去掉所有的括號(hào)和括號(hào)中的值
下面的程序是樓主請教一位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;
}

數(shù)據(jù)分析咨詢請掃描二維碼

若不方便掃碼，搜微信號(hào)：CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1：配置參數(shù) // 參數(shù)2：回調(diào)，回調(diào)的第一個(gè)參數(shù)驗(yàn)證碼對(duì)象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺(tái)檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時(shí)表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式，包括：float，popup width: "280px", https: true // 更多配置參數(shù)說明請參見：http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時(shí)完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請輸入'+oInput.attr('placeholder')+'！'; var errTxt = '請輸入正確的'+oInput.attr('placeholder')+'！'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }