百度抽风,老是把吃掉行首空格,导致代码没有缩进。可以用以下方法来解决:
1、在百度贴吧切换到经典版
2、用以下脚本把代码中的制表符和空格替换成unicode编码格式- 'cscript //nologo C:\test\test.vbs C:\test\test.bat
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFile = objFSO.OpenTextFile(WScript.Arguments(0),1,True)
- strAll = objFile.ReadAll()
-
- strTab = Replace (strAll,chr(9)," ")
- strBlank = Replace (strTab," ","&#" & "160;")
- Call SetClipboardText(strBlank)
-
- Sub SetClipboardText(strText)
- Set objIE = CreateObject("InternetExplorer.Application")
- objIE.Navigate("about:blank")
- objIE.Document.ParentWindow.ClipboardData.SetData "text", strText
- objIE.Quit
- End Sub
复制代码
|