VBS/WSH/JS - [решено] чем заменить пробел?
-
Bint
VBS/WSH/JS - [решено] чем заменить пробел?
в VBScript когда присваиваю переменной значение скажем s="книга" то присваивается норм, без кавычек, но когда есть пробелы, например s="две книги" то значение переменной присваивается вместе с кавычками... отсюда вопрос: чем заменить пробел чтобы он не влиял на наличие кавычек, ну может спецсимволом каким или кодом...
-
amel27
Re: VBS/WSH/JS - [решено] чем заменить пробел?
Цитата Bint:
когда есть пробелы, например s="две книги" то значение переменной присваивается вместе с кавычками
Вы о чем?.. Вот пример VBS, который выводит всё БЕЗ кавычек:
Код:
когда есть пробелы, например s="две книги" то значение переменной присваивается вместе с кавычками
VBS/WSH/JS - [решено] чем заменить пробел?
Вы о чем?.. Вот пример VBS, который выводит всё БЕЗ кавычек:
Код:
Код: Выделить всё
s1="книга"
s2="две книги"
WScript.Echo s1
WScript.Echo s2-
Bint
Re: VBS/WSH/JS - [решено] чем заменить пробел?
Код:
Путь к ярлыку в таком случае добавляется с кавычками и соответственно не работает.
Если делать:
Код:
то в свойствах ярлыка путь будет без кавычек.
Код: Выделить всё
Dim objDesktop, objLink, objFSO
Dim DesktopFld1, objShell1, objFSO1 'для удаления'
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
objDesktop = WshShell.SpecialFolders("Desktop")
If not objFSO.FileExists(objDesktop & "\InOutD.lnk") Then
Set objLink = WshShell.CreateShortcut(objDesktop & "\InOutD.lnk")
objLink.IconLocation = "J:\InOutD\inoutd.ico"
objLink.TargetPath = "J:\InOutD\inoutd.exe -T -cJ:\InOutD\config.fpw"
objLink.WindowStyle = 1
objLink.WorkingDirectory = "J:\InOutD"
objLink.Save
End IfПуть к ярлыку в таком случае добавляется с кавычками и соответственно не работает.
Если делать:
Код:
Код: Выделить всё
objLink.TargetPath = "J:\InOutD\inoutd.exe"то в свойствах ярлыка путь будет без кавычек.
-
amel27
Re: VBS/WSH/JS - [решено] чем заменить пробел?
может так?
Код:
Код:
Код: Выделить всё
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWSH = WScript.CreateObject("WScript.Shell")
strDesktop = objWSH.SpecialFolders("Desktop")
If Not objFSO.FileExists(strDesktop & "\InOutD.lnk") Then
Set objLink = objWSH.CreateShortcut(strDesktop & "\InOutD.lnk")
objLink.IconLocation = "J:\InOutD\inoutd.ico"
objLink.TargetPath = "J:\InOutD\inoutd.exe"
objLink.Arguments = "-T -cJ:\InOutD\config.fpw"
objLink.WindowStyle = 1
objLink.WorkingDirectory = "J:\InOutD"
objLink.Save
End If