将1.txt续行的内容在2.txt中作查找，若有即用逗句替换，若没有找到就保存到3.txt中

wenquan79

大家好！将1.txt续行的内容在2.txt中作查找，若有即用逗句替换，若没有找到就保存到3.txt中，帮忙指点指点，谢谢！
要求：如题，用VBS 将1.txt内容续行在2.txt查找是否存在，有就将改为逗号",",若没有就将其保存在3.txt中。
我要网上有搜到line.VBS 是续行读取并显示的脚本，change.vbs 是关于特定字符替换的脚本，但我不知道怎么将其整合在一起，达到自己想要功能。

---1.txt--
C62,
c770,
c758,
c764,
c760,
c63,  
c6,
c754,
c744,
c25,  
c1,
c14,
c4,  
cr75,
c766,
c7,  
c8,
c99,
c56,
c725,
c256,
--2.txt---
035-0012-000         CAP SCD EC07 C0G 0402 100pF 50V 5%        C62,
035-0011-000         CAP SCD EC07 C0G 0402 10pF 50V 5%        "C768,C769,C770,C758,C763,C764,"
035-0020-000         CAP SCD EC07 C0G 0402 18pF 50V 5%        "C759,C760,C761,C63,C64,C753,C754,C755,"
035-0024-000         CAP SCD EC07 C0G 0402 220pF 50V 5%        "C733,C25,C1,C14"
035-0023-000         CAP SCD EC07 C0G 0402 22pF 50V 5%        "C4,C5,C765,C766"
035-0066-000         CAP SCD EC07 C0G 0402 330pF 50V 5%        C533,
035-0039-000         CAP SCD EC07 C0G 0603 10pF 50V 5%        "C7,C8,C749,C752,"
039-0024-000         CAP SCD EC07 X5R 0402 .01uF 16V 10%        "C717,C732,C737,"
039-0006-000         CAP SCD EC07 X5R 0402 .01uF 6V 10%        "C56,C596,C598,C606,C625,C725,"

afan

_FileReadToArray
FileReadLine
StringInStr
StringReplace
_FileWriteToLine
FileWriteLine
LZ可以用以上函数试试~

bing614

帮你写好了。

#include<file.au3>
#include<array.au3>
Dim $_file1=@ScriptDir & "\1.txt",$_file2=@ScriptDir & "\2.txt",$_file3=@ScriptDir & "\3.txt",$aRecords1,$aRecords2
_FileReadToArray($_file1,$aRecords1)
_FileReadToArray($_file2,$aRecords2)
For $x=1 To $aRecords1[0]
        $_index=0
        If $aRecords1[$x] = "" Then ContinueLoop
        $_index=_ArraySearch($aRecords2, $aRecords1[$x],0,0,0,1)
        If $_index=-1 Then 
                FileWriteLine($_file3,$aRecords1[$x])
        Else
                $aRecords2[$_index]=StringReplace($aRecords2[$_index],$aRecords1[$x],",")
        EndIf        
Next
_FileWriteFromArray($_file2, $aRecords2,1)
Exit

wenquan79

bing614 ,你好！非常感谢你的代码！
1、经测试基本上没有问题了，但在查要其脚本有区分全角、半角，可否忽略全角、半角。
2、另外可否帮忙在运行前提示一个对话框用于输出1.txt,2,txt,3txt,由用户输入文件的名字。若文件错或找不到，提示其错误。
3、处理完后提供已完成。
非常感谢你的的热心帮忙！