VBS怎样把文本每两行合并然后删除指定字符串？

pengyou86

1.TXT文本中内容是这样的：
卡号1： 128628108083
密码1： 351146
卡号2： 128628200342
密码2： 688380
卡号3： 128628500885
密码3： 145540
卡号4： 128628008338
密码4： 547846
卡号5： 128721100122
密码5： 647020
卡号6： 128721200503
密码6： 324222
卡号7： 128721600630
密码7： 308752
卡号8： 128722608814
密码8： 251845
卡号9： 128722808200
密码9： 561503
卡号10： 128724108620
密码10： 805462

我想让批处理实现一下功能

1.txt里面的数据经过批处理后导入到2.txt 格式变成
128628108083 351146
128628200342 688380
128628500885 145540
128628008338 547846
128721100122 647020
128721200503 324222
128721600630 308752
128722608814 251845
128722808200 561503
128724108620 805462
我电脑有问题 麻烦高人给写成“vbs”格式批处理  BAT格式批处理在我电脑上面无非运行
感谢

悬崖之树

把这个vbs文件放在1.txt所在的目录下运行。

1. Option Explicit
   
2. Dim fso,f,str1,str2,array1,array2,str
   
3. Set fso = CreateObject("scripting.filesystemobject")
   
4. Set f = fso.OpenTextFile("1.txt",1)
   
5. Do Until f.AtEndOfStream
   
6.         str1 = f.ReadLine
   
7.         str2 = f.ReadLine
   
8.         array1 = Split(str1)
   
9.         array2 = Split(str2)
   
10.         str = str + array1(1) + " " + array2(1) + vbCrLf
    
11. Loop
    
12. f.Close
    
13. Set f = fso.CreateTextFile("2.txt",true)
    
14. f.Write str
    
15. f.Close
    
16. Set fso = Nothing
    
17. Set f = nothing

复制代码

zhangop9

分列读取，记录