一个这样的文章内容 例如:
dfafsffffasdfasdfadsdfasdfasdfadsf5sfsadfasfdasf
abc123dddddfasdfgdsafsafdsfasdfasdfasd
fasdfasdfsdf
abc222sdfhasdjkfhasdjkfsfadasdfasdfsadfsdfsdafasdfadsf
fsadfdsafsafafasf abc433


我现在 想把 上面 红色标识 部分的 字符 查找出来 并且单独保存
他们的共同之处 就是 前面 3个字母相同

用 InStr 查找到 很容易
主要是 怎么解决 每次 查询完 就保存出来呢

没人给点 建议么

你要找的一定是abc+3个数字?数字后面一定是字符?

是的 怎么 解决

有什么难度么？

Private Sub Command1_Click()
Dim a As String
a = "dfafsffffasdfasdfadsdfasdfasdfadsf5sfsadfasfdasfabc123dddddfasdfgdsafsafdsfasdfasdfasdfasdfasdfsdfabc222sdfhasdjkfhasdjkfsfadasdfasdfsadfsdfsdafasdfadsffsadfdsafsafafasfabc433"
Call getstr(a)
End Sub

Private Sub getstr(param As String)
Dim i As Long
Dim j As Long
If Len(param) < 6 Then
Exit Sub
End If
i = InStr(param, "abc")
If i <= 0 Then
Exit Sub
End If
Open "D:\1.TXT" For Append As #1
Print #1, Mid(param, i, 6)
Close #1
Call getstr(Mid(param, i + 6, Len(param) - i - 5))
End Sub

非常 感谢  随风逐流