Question

VB如何制作搜索指定格式的文本的程序

比如一个文本文档，里面有三行，内容为
111,123,121,1116
112,548,116,5546
454,111,1234,11
我需要2个逗号后的文本
121、116、1234
请问代码怎么设计

Answer 1

先用递归搜索出所有的文本 然后写一个函数验证格式是否符合要求

递归搜索代码示例：
Dim nName As String
nName = Dir("D:\新建文件夹\*.*", 7)
Do
If nName = "" Then Exit Do
List1.AddItem nName
nName = Dir()
Loop

函数示例
Function CheckFormat(file As String) As Boolean
Dim Str As String
CheckFormat = True '初始化为true
Open file For Input As #1 '打开文件并读取内容
Input #1, Str ''读取一行数据,如果你要每行都验证就要用循环
Close #1

If UBound(Split(Str, ",")) <> 2 Then '判断内容中是否有2个逗号,如果不是2个则返回False
CheckFormat = False
End If
End Function

追问

如果将结果输出到一个text框中如何写代码？