批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS怎样把文本每两行合并然后删除指定字符串？ [打印本页]

作者: pengyou86 时间: 2013-4-5 14:14 标题: VBS怎样把文本每两行合并然后删除指定字符串？

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格式批处理在我电脑上面无非运行
感谢

作者: 悬崖之树 时间: 2013-4-25 22:25

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

Option Explicit
Dim fso,f,str1,str2,array1,array2,str
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.OpenTextFile("1.txt",1)
Do Until f.AtEndOfStream
	str1 = f.ReadLine
	str2 = f.ReadLine
	array1 = Split(str1)
	array2 = Split(str2)
	str = str + array1(1) + " " + array2(1) + vbCrLf
Loop
f.Close
Set f = fso.CreateTextFile("2.txt",true)
f.Write str
f.Close
Set fso = Nothing
Set f = nothing
复制代码

作者: zhangop9 时间: 2020-12-27 20:21

分列读取，记录

欢迎光临批处理之家 (http://bbs.bathome.net/)