1 23A785C4 李云 2016/5/3 14:14:57
2 C0370F10 李化騰 2016/5/3 14:14:59
這是txt檔案中的兩行資料，
現在需要截取‘李云’這兩個關鍵字。
謝謝各位大神幫助！！！(網上搜不到滿意的答案）
uj5u.com熱心網友回復：
dim s1,s2
s1=split(s,vbrlf)'''s表示你的那2行字串
s2=split(trim(s1(0))," ")
debug.print s2(2)
uj5u.com熱心網友回復：
簡單做一個例子，一會在給你。uj5u.com熱心網友回復：
這個是文本檔案
這是檢測出的姓名Private Sub Command1_Click()
Dim AA() As String, MM As Integer, B As String
Text1.Text = ""
Open App.Path & "\AAAA.txt" For Input As #1
Do While Not EOF(1)
Input #1, B
MM = MM + 1 '得到記錄的總行數
Loop
Close #1
ReDim AA(1 To MM) '動態陣列設定下標
Dim I As Integer, X As Integer, Y As Integer
Open App.Path & "\AAAA.txt" For Input As #1
Do While Not EOF(1)
I = I + 1
Input #1, AA(I) '每行分別讀入陣列
Loop
Close #1
For I = 1 To MM
X = InStr(1, AA(I), " ", 1) '得到第一個空格的位置
AA(I) = Right(AA(I), Len(AA(I)) - X) '右剪裁字串
Y = InStr(1, AA(I), " ", 1) '剪裁后的第一個空格位置
AA(I) = Left(AA(I), Y - 1) '左裁字串，得到姓名
Text1.Text = Text1.Text & Trim(AA(I)) & Space(2) '在文本框輸出
Next I
End Sub
陣列1-8得到了姓名，你要使用那個，均沒有問題。
uj5u.com熱心網友回復：
是這樣的，如果我找到“李云”，我就會調取相應的資料庫，也就是用到if then陳述句，不需要輸出文本
uj5u.com熱心網友回復：
有規則就按空格拆分成陣列。uj5u.com熱心網友回復：
如果沒規律，我認為可以把它當作一長串字串來看待。那么如何區分呢？舉個例子：在vb中因為漢字肯定是占2個有效位元組&????的，而標準符號、數字，字母是 &00??。
那么只要用copymemory逐個判斷字符記憶體是否大于&00FF就可以。
當然，如果知道漢字所在哪一區域就更準確了。
uj5u.com熱心網友回復：
“截取”是什么意思？要修改檔案嗎？uj5u.com熱心網友回復：
InStr(“123333李云12324”，“李云)”轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/73746.html
標籤：VB基礎類
上一篇：vb6.0引入recordset_Deprecated
下一篇：VB前臺輸入資料，后臺運算