用VB提取TXT数据解决方法

用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了