@interface不替換的話,就把正則改成:
成都創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:成都網(wǎng)站建設(shè)、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時(shí)代的萍鄉(xiāng)網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
@(?!interface)[^\s]+(\s|$)
如果@t3(synopsis = "AB") 這個(gè)等號(hào)前后沒有空格,就很簡(jiǎn)單,直接用下面的搞定,如果有空格,這個(gè)正則就會(huì)復(fù)雜很多了:
Regex.Replace(@"@t1
@t2()
@t3(synopsis=""AB"")
@t4(""unused"")
creatCommChat(@WebParam(name=""chatID"") String chatID,@WebParam(name=""creatUserID"") String creatUserID)", @"@[^\s]+(\s|$)", "")
用vba可以實(shí)現(xiàn),不難。要看你具體做什么,下面是一個(gè)錄制的宏,替換aaa為axa,然后替換bbb為xbx。
Sub 宏2()
'
' 宏2 宏
'
'
Cells.Replace What:="aaa", Replacement:="axa", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="bbb", Replacement:="xbx", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
變通的方法:
首先 把List 替換為一個(gè)其他的字符串如OOO,要全字匹配替換。然后替換List為fList,然后再把OOO替換為L(zhǎng)ist。
在你的工程中引用Microsoft Script Control 1.0 這個(gè)COM組件(注意是COM的,不要到.net組件里去找)
然后用下面的方法執(zhí)行JavaScript:
Dim sc As New MSScriptControl.ScriptControl
sc.Language = "JavaScript" '設(shè)置語言種類
sc.AddCode("function TestFunc(){return 'Hello world!'}") '添加腳本代碼
MsgBox(sc.Run("TestFunc")) '顯示一下那段腳本的返回值(這里你將看到Hello world!字符)
雖然這個(gè)人的回答出來了但是沒有解決你的問題,以上是我補(bǔ)充的如何使用腳本。