vb对txt操作问题
来源:百度知道 编辑:UC知道 时间:2024/09/21 05:41:22
第一个文本内容
20050621,125
20050629,336
第二个文本内容
20050627,,,17
20050629,,18 1740
先查每个文本第一个逗号前的内容 一致的话 将第一个文本逗号后面的内容写入第二个文本对应行的后面,如下
20050629,,18 1740,336
你这个方法有个问题 不能重复运行 不然总会在末尾不停追加336 怎么样才能避免这个问题?
20050621,125
20050629,336
第二个文本内容
20050627,,,17
20050629,,18 1740
先查每个文本第一个逗号前的内容 一致的话 将第一个文本逗号后面的内容写入第二个文本对应行的后面,如下
20050629,,18 1740,336
你这个方法有个问题 不能重复运行 不然总会在末尾不停追加336 怎么样才能避免这个问题?
程序使用注意事项:文本文件1中的日期不能有重复,否则会产生二义性错误!
set fso = createobject("scripting.filesystemobject")
set dic = createobject("scripting.dictionary")
set txt1 = fso.opentextfile("file1.txt")
set txt2 = fso.opentextfile("file2.txt")
do until txt1.atendofstream
line = txt1.readline
head = split(line, ",")(0)
dic.add head, line
loop
do until txt2.atendofstream
line = txt2.readline
head = split(line, ",")(0)
lst = lst & line
for each k in dic
if k = head then lst = lst & "," & split(dic(k), ",")(1)
next
lst = lst & vbcrlf
loop
set