1樓：匿名使用者
private sub text2_change()dim aa as string
dim i as integer
i = instrrev(text1, text2, -1, 1)text3 = mid(text1, i, 27)end sub
不區分大小寫，如果想區分將第4行最後一個1改為0.
2樓：沒名也要進
不在電腦前。好像有個instr函式。
3樓：
能說清楚一點嗎？ 怎麼提？提到哪？
4樓：網海1書生
private sub command1_click()dim s() as string, i as integer, j as integer
s=split(text1.text,vbcrlf)for i=0 to ubound(s)
if s(i)=text2.text thentext3.text=s(i)
for j=i+1 to ubound(s)if len(s(j))<=3 then exit subtext3.text=text3.text & s(j)next
end if
next
end sub
vb提取資料
現建立文字框陣列，text1 1 text1 2 text1 3 dim s as string dim b 定義一個陣列 dim i as integer s 2.13,3,45,3.34,4.33,3.45,5,45 b split s,split函式根據 將字串分開並存入陣列b for i 1...
vb文字框問題
private sub text3 lostfocus index as integer text3 1 selstart 0text3 1 sellength len text3 0 text end sub 你寫法有錯誤private sub text3 0 gotfocus 應該寫是 text...
怎樣提取pdf電子書離得文字，怎樣提取圖片版PDF電子書中的文字
如果pdf文件是通過掃描紙質檔案生成的，可以藉助ocr文字識別技術來匯出文字。在adobe acrobat裡可以操作選單 文件 ocr文字識別 使用ocr識別文字 經過識別以後，就可以用 選擇工具 選中文字進行復制了。adobe reader沒有自帶ocr文字識別功能，但可以這樣操作，操作選單 檔案...