第一個問題有個簡單的方法,把字符串變量賦值到一個textbox里面,利用textbox.lines實現。如:

10年積累的成都網站建設、成都網站設計經驗,可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你,你也不認識我。但先網站制作后付款的網站建設流程,更有阿瓦提免費網站建設讓你可以放心的選擇與我們合作。
dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定義變量
textbox1.text=a ‘賦值
message.show(textbox1.lines(2).tostring) ‘顯示第三行內容。
第二個問題結合第一個問題,用循環逐行查找,就可知道字符串第一次出現在哪行。
在VB中是這樣的,沒學過VB點虐 ,你變換一下就可以了
按你說的,用用Left,Right和Mid
Option?Explicit
Private?Sub?Command1_Click()
Dim?Num(2)
Num(0)?=?Val(Left(Label1.Caption,?2))
Num(1)?=?Val(Mid(Label1.Caption,?3,?1))
Num(2)?=?Val(Right(Label1.Caption,?2))
MsgBox?"Num(0)="??Num(0)??vbCrLf??"Num(1)="??Num(1)??vbCrLf??"Num(2)="??Num(2)
'如果想測試是不是可以計算,可以用這一句
'MsgBox?"Num(0)+1="??Num(0)?+?1??vbCrLf??"Num(1)+1="??Num(1)?+?1??vbCrLf??"Num(2)+1="??Num(2)?+?1
End?Sub
Private?Sub?Form_Load()
Label1.Caption?=?"12345"
End?Sub
有問題請追問,滿意請采納!
因為|在正則表達式中是或的意思,如果要用|字符的原意,需要用轉義符\轉義才行.
因此,你的第二個函數調用應該這樣寫dim str3 as string = Extract(str1,"6","\|",false)
加一個轉義符.
                當前標題:vb點虐
取字符串函數 vba取字符串中的字符
                
                網頁鏈接:http://www.yijiale78.com/article20/ddjggco.html
            
成都網站建設公司_創新互聯,為您提供網站排名、網站內鏈、網站收錄、網站設計、自適應網站、網站策劃
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯
