vbs求助 vbs的文本及文件操作
发布网友
发布时间：2022-04-26 15:58
共2个回答
热心网友
时间：2023-10-13 05:34
我把你文件的内容放在了与vbs同目录下的Dest.txt中，然后：
On Error Resume Next
Dim fso,objFile,strTemp
Set fso=CreateObject("Scripting.FileSystemObject")
Set objFile=fso.OpenTextFile("Test.txt",1)
Do While Not objFile.AtEndOfLine
strTemp=objFile.ReadLine
Set objtxt=fso.CreateTextFile(strTemp & ".txt")
Do While True
strTemp=objFile.ReadLine
If strTemp="-----" Then Exit Do
objtxt.WriteLine(strTemp)
Loop
Loop
修改了之前的代码，不需要考虑行列，这次应该可以了吧。
热心网友
时间：2023-10-13 05:35
写成这样,lz你会懂的吧:)
---------
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.OpenTextFile ("C:\test.txt",1,True)
'newname= f.ReadLine&".txt"
'Set newf =fso.OpenTextFile("C:\test\" & newname,2,True)
For i=0 To 5
content=""
Do Until str="-----"
str= f.ReadLine
'newf.WriteLine str
content = content & str & vbCrLf
Loop
str=""
MsgBox content
Next
