用VB提取TXT数据
用VB怎么提取任意TXT 第二列数据 如
1，2
1，3
1,4
提取第二列数据 并判断是否为整数 不为整数 改为整数
并把第一列数据和修改后数据放在新的TXT中
[解决办法]
Open “文件名" For Input As #1
Do While Not EOF(1)
Line Input #(1), hang(p)

diyilie = Split(hang(p), ",")(0)
dierlie= Split(hang(p), ",")(1)
MyData(p, 0) = diyilie: MyData(p, 1) = dierlie

Loop
Close #1

[解决办法]
参考一下上面的，把文件数按行读取后，再按列处理
第二列直接把
dierlie= Split(hang(p), ",")(1)
写成

dierlie=int(Split(hang(p), ",")(1))

然后再写入另一文件，ok了