能否用VBS创建cmd文件

nai

如何用VBS创建CMD文件，并将代码写入到CMD文件中？
代码比如：

@echo off
cd.>B.txt
for /f "delims=" %%i in (A.txt) do (
find /i "%%i" B.txt||echo %%i>>B.txt
)

主要是如何处理有引号的句子

yu2n

回复 1# nai

1. 
   
2. strFile = "0.bat"
   
3. strText = "@echo off" & vbCrLf & _
   
4.   "cd.>B.txt" & vbCrLf & _
   
5.   "for /f ""delims="" %%i in (A.txt) do (" & vbCrLf & _
   
6.   "find /i ""%%i"" B.txt||echo %%i>>B.txt" & vbCrLf & _
   
7.   ")"
   
8. Set fso = CreateObject("Scripting.filesystemobject")
   
9. set wTxt = fso.OpenTextFile(strFile, 2, True, 0)
   
10. wTxt.Write strText
    
11. wTxt.Close
    
12. Msgbox "创建完成！"
    

复制代码

引号的处理
输出：

1. 符文 "a" 与 符文 "b"

复制代码

1. 
   
2. '输出：符 "a" 文 "b"
   
3. ' 1. 字符串内部使用 "" 转义
   
4. str1 = "符 ""a"" 文 ""b"""
   
5. ' 2. 字符串外部使用 Chr(34)
   
6. str2 = "符 " & Chr(34) & "a" & Chr(34) & " 文 " & Chr(34) & "b" & Chr(34)
   
7. Msgbox "str1=" & str1
   
8. Msgbox "str2=" & str2
   

复制代码

nai

回复 2# yu2n
很好，很详细，谢谢