㈠ vbs如何对文件中写入的内容以空格进行换行,如1.txt中有"123 uuu yyy "想要的结果是: 123 uuu yyy
set fso = createobject("scripting.filesystemobject")set file = fso.OpenTextFile("XXXXX", 1) '这里写1.txt的路径,all = file.readall '把所有内容读到all里面file.closetemp = split(all," ") '用空格对all里的字符串进行分割,结果是一个数组 存到temp变量for each a in temp result = result & a & vbnewline '把数组的每一项都连一起连成一个串,每项之间都加一个换行nextset file = fso.OpenTextFile("XXXXX", 2) file.write result '把最后想要的结果再写入到这个文件中去file.close
㈡ 怎么让vbs运行路径中带空格的文件
1.用 chr(34) Set WS = WScript.CreateObject("WScript.Shell") path2=chr(34)&"C:\Documents and Settings\email\桌面\网络游戏\大话西游.lnk"&chr(34) WS.run path2 2.用引号 Set WS=WScript.CreateObject("WScript.Shell") path2="""C:\Documents and Settings\email\桌面\网络游戏\大话西游.lnk""" WS.run(path2)
㈢ vbs中调用dos命令路径问题
s=chr(34) & "路径" & chr(34)wsh.run "cmd /k start /max " & s
㈣ vbs带空格路径问题
这样肯定可以，使用shortpath函数获取短文件名后再处理：Set Fso=CreateObject("Scripting.FileSystemObject")Set WsShell=CreateObject("WScript.Shell")workingdir=WScript.ScriptFullNameworkingdir=StrReverse(fso.getfile(workingdir).shortpath)'我只改了这一句count=InStr(workingdir,"\")workingdir=StrReverse(Right(workingdir,Len(workingdir)-count))msgbox workingdir'加上这一句可以看到获取的东西，你自己删除这一句。'以上的是获取vbs脚本所在目录，有可能包含空格~windir0=Fso.getspecialfolder(0)cmdline=workingdir&"\streams.exe -d "&windir0&"\*"WsShell.Run cmdline,vbHide,Truewindir1=Fso.getspecialfolder(1)cmdline=workingdir&"\streams.exe -d "&windir1&"\*"WsShell.Run cmdline,vbHide,True
㈤ vbs怎么将一个带有空格的字符串写入文件，且遇到空格写入的内容就换行
你的意思是将所有的空格替换成换行符吧?
dimfso,file,read,string_finally,spath,sfilesetfso=createobject("scripting.filesystemobject")file="1.txt"'要处理的文件ifinstr(file,"")>0then'过滤路径spath=left(file,instr(file,""))sfile=mid(file,instrrev(file,"")+1)elsesfile=fileendifread=fso.opentextfile(file).readall'读取全文string_finally=replace(read,space(1),vbcrlf)'替换空格为回车符fso.createtextfile(spath&"New_"&sfile).writestring_finally'写入新文件setfso=nothing'释放内存
㈥ vbs执行外部程序出现错误找不到原因
ws.run"C:\Program Files\AliWangWang\AliIM.exe"楼上老大正解。就是路径里有空格导致的。如果楼主非要用这一句的话，要在两边再加一对双引号，即ws.run ""C:\Program Files\AliWangWang\AliIM.exe"".两对不行，你就再加一对，3对绝对没问题。另外你这几行代码完全不用创建两个对象，只set ws=createobject("wscript.shell")就能完成你想要的功能。另外对象创建完最后要回收哦！set ws=nothing
㈦ 如何让vbs打开一个指定路径的文件
run处理路径空格需要加双引号，解决方法有两种
第四行首尾的双引号改为三个双引号。（两个双引号会转义为一个双引号）
弃用run改用exec，第五行改为F.Exec T即可
㈧ VBS 路径中的空格
长文件明转化为短文件明不知道VBS里可不可以这样写Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As LongPrivate Function ShortPath(ByVal FileName As String) As StringDim S As StringOn Error GoTo 1:S = String(255, " ")GetShortPathName FileName, S, 255ShortPath = Left(S, InStr(S, Chr(0)) – 1)1:End Function
㈨ vbs将路径中的“%20”转换成 空格
vbs没有 但可以自定义函数..比如说: urlb="20%20%你好" ChangeURL urlb,url msgbox url sub ChangeURL(urlb,url) url=replace(urlb,"20%"," ") end sub
㈩ 用VBS创建Internet Explorer.lnk 这个图标到桌面，中间有空格这个VBS运行不了，高手指点一下。
中间有空格没关系的，因为名字、路径等都包含在双引号里作为整体字符串了。同样的代码，我机器上运行，一切正常。可以打开网页。你出现啥问题？报的什么错？放上来看看。
