vb中用什么函数筛选文本文档中的某一列？

来源：百度知道 编辑：UC知道 时间：2024/06/17 07:34:07
比如说像这样的文本记录：
1,2008-10,SMS,923097，-TQCDPM,成都下午天气预报包月,2.00,408732.00,204364,-1.35,-1.35,98.25,203548,31.10,23.60,0.00,14.74,0.00,0.00,69.44
比如说需要提取-TQCDPM 和204364 该怎么实现？
文本中都是这样的一行一行的记录
我在这里只是列出了其中的一行
请问下该怎么用vb实现，把提取的内容放到txt文件中

要是格式都不变的话 可以利用instr 寻找“成都”的位置 在用mid 从上述位置的前8位取7位就可以得到-TQCDPM 然后上述位置的后26位取6位就可以得到204364
Private Sub Command1_Click()
Dim t As String, a As Long, z1 As String, z2 As String
t = "1,2008-10,SMS,923097，-TQCDPM,成都下午天气预报包月,2.00,408732.00,204364,-1.35,-1.35,98.25,203548,31.10,23.60,0.00,14.74,0.00,0.00,69.44"
a = InStr(1, t, "成都", vbTextCompare)
z1 = Mid(t, a - 8, 7)
z2 = Mid(t, a + 26, 6)
End Sub
再用open就可以保存到txt文件中了

假设原值在A列，程序如下。注意，你例子中的字串有一个全角的逗号，要先替换成半角的，否则程序结果会出错。

Sub 生成文件()
Dim nRow As Integer
Dim sResult() As String

'*****************************************************
' 生成文件
'*****************************************************
Filename = "c:\结果.txt"
Open Filename For Output As #1

'写文件内容
nRow = 1
While Cells(nRow, 1) <> ""
sResult = Spl