1樓：匿名使用者
private sub foo(lptext as string) '傳入原字串
dim temp() as string, i as integer, result as string
temp = split(lptext, vbcrlf) '按回車換行分開
for i = 0 to ubound(temp) '對於每行
if instr(0, temp(i), "ti@") > 0 then temp(i) = temp(i) & "oti" '如果有"ti@"，則在行末加上"oti"
temp(i) = replace(temp(i), "$", "a") '把所有"$"替換為"a"
temp(i) = replace(temp(i), "ti@", vbnullstring) '把所有"ti@"替換為空字串
result = resutl & temp(i) & vbcrlf '把這行合併到其它已經處理的行
temp(i) = vbnullstring '釋放記憶體空間
next i '迴圈
lptext = result '把結果傳回lptext引用
end sub
2樓：匿名使用者
修改後的字串 = replace("要修改的字串", "要替換掉的字串", "要替換成的字串")
我對vb也很感興趣，有空可以一起****
3樓：匿名使用者
樓主用vb的時候用下msdn吧
vb的查詢並替換功能，vb查詢字串並替換
dim s as string s text1.text s replace s,text2.text,text3.text s replace s,text4.text,text5.text s replace s,text6.text,text7.text s replace s,text8.t...
VB處理字串問題
private sub command1 click cutmask 111100000000000000000000 x1 mid cutmask,1,8 x2 mid cutmask,9,8 x3 mid cutmask,17,8 a 0 for i 1 to 8 a a val mid x1,...
C中怎樣從指定字串中查詢並替換字串
stringtxt asdjsfk aaaaaaaaa 判斷這個字串中包含替換 就在斜槓前面加上字元 x 1 使用if語句 if txt.contains 2 使用條件運算子 txt txt.contains txt.replace x txt 擴充套件資料stringreplace 替換的目標，替...