1樓：守株待美妹
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.text, text9.text)
s= replace$(s, text10.text, text11.text)
s= replace$(s, text12.text, text13.text)
s= replace$(s, text14.text, text15.text)
text1.text = s
msgbox"替換成功!"
想用vb開啟一個指定的word文件，並可以實現查詢替換功能 50
2樓：憤怒的蝸牛
快捷鍵：ctrl+h
3樓：匿名使用者
jttttttttttttttttttttttttttttttttttttttttt
vb查詢字串並替換 30
4樓：匿名使用者
查詢字串的函式是 instr，替換字串的函式是replace，用法：
instr(n , s1 , s2) 在字串s1中，從左邊第n個字元向後搜尋s2第一次出現的位置，例如
i = instr ( 3, "abcbcbc", "b" )，此時 i = 4
replace（s,s1,s2) 在字串s中搜尋s1，如果搜尋到就將s1替換成s2，例如
replace("asdfasdfasfas","asd","m") 結果是 mfmfasfas
希望對你有用
vb 怎麼對text內容 進行 替換 查詢 操作
5樓：匿名使用者
1、可以使用文字框的sellength、selstart、seltext 屬性及字串查詢函式instr()來實現。
2、工具：vb6。
3、具體實現**如下：
option explicit
private sub command1_click()
dim search, where ' 宣告變數。
' 獲取需要查詢的字串。
search = text1.text
where = instr(text3.text, search) ' 在文字中查詢字串。
if where then ' 如果找到，
text3.setfocus
text3.selstart = where - 1 ' 設定選定的起始位置並
text3.sellength = len(search) ' 設定選定的長度。
else
msgbox "string not found." ' 給出通知。
end if
end sub
private sub command2_click()
if text3.seltext <> "" then
text3.seltext = text2.text
end if
end sub
4、注意：被查詢的文字框需要先獲得焦點（text3.setfocus
），然後才能操作。
vb查詢時間
private sub command3 click vsflexgrid1.rows 1 vsflexgrid1.redraw flexrdbuffered msql select rxsj,sqr,xybm,zjhm,bmf,phone,cx,pxfs,address,tjr,zt from t...
我想用vb做查詢軟體，我想用VB做一個查詢軟體
把access表建好，給個資料表名稱 欄位結構及一兩條記錄的示例，要實現什麼也說得清楚一點，別人才好告訴你怎麼做 其實怎麼做資料庫程式設計的話，問是沒法問的，要先看書，既然問了，就根據你提供的資訊，給你一個示例吧 先在選單 工程 中 引用 microsoft activex data object ...
CAD的查詢和替換方法，cad查詢替換快捷鍵命令，cad如何查詢替換文字
建築cad精髓分享者 cad批量查詢與替換 cad的 查詢 命令有以下方法 1 選單欄，編輯 查詢 調出 查詢 對話方塊 2 在cad介面中，alt e，再按f，調出 查詢 對話方塊 3 在cad介面中，輸入命令find，調出 查詢 對話方塊。如需替換，請按照所需規則進行替換設定。批量替換時設定技巧...