Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoc sa spajanjem 2 varijable - VBS

[es] :: Skript jezici :: Pomoc sa spajanjem 2 varijable - VBS

[ Pregleda: 3018 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

eki_yu
Dalibor Milenkovic
Toronto

Član broj: 24255
Poruke: 187
*.cpe.distributel.net.

Sajt: http:\www.itwizard.ca


+1 Profil

icon Pomoc sa spajanjem 2 varijable - VBS05.01.2013. u 14:55 - pre 136 meseci
Pozdrav svima

Pokusavam da napravim skriptu koja pravi ikonicu(http link) koristeci argument


ideja je da se pozove ovako:

makeicon.vbs 01234

ovo je kod koji bih koristio:
Code:

Dim Arg, var1,var2
Set Arg = WScript.Arguments
var1 = Arg(0)
set var2 = "sometext" & var1


Kad se pokrene prijavi ovu gresku: Object required: '[string: " sometext "]'

ako napisem
msgbox var1

umesto

set var2 = " sometext " & var1

prozor se pojavi i ispise promenljivu.

Malo sam seraspitivao na drugim stranama i dobio sam predlog da koristim

Dim var2 = " sometext " & var1

medjutim to napravi "Expected end of statement" error (line 4 char 10, 800A0401)


Resenje je verovatno jednostavno, ali posto ne koristim vbs, prakticno sam potpuni pocetnik u ovome.

Svaka pomoc je dobrodosla!

Hvala!



 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.isp.telekom.rs.



+41 Profil

icon Re: Pomoc sa spajanjem 2 varijable - VBS05.01.2013. u 16:38 - pre 136 meseci
Code:

Dim Arg, var1,var2
Set Arg = WScript.Arguments
var1 = Arg(0)
var2 = "sometext" & var1


a moze i krace:

Code:

Dim Arg, var1
Set Arg = WScript.Arguments
var1 = "sometext" & Arg(0)


a jos krace:

Code:

Dim var1
var1 = "sometext" & WScript.Arguments(0)
 
Odgovor na temu

eki_yu
Dalibor Milenkovic
Toronto

Član broj: 24255
Poruke: 187
*.cpe.distributel.net.

Sajt: http:\www.itwizard.ca


+1 Profil

icon Re: Pomoc sa spajanjem 2 varijable - VBS05.01.2013. u 18:50 - pre 136 meseci
Zahvaljujem!

kratko resenje super radi!

Ako nekom treba evo skript koji pravi ikonicu na desktopu sa opcijom:

poziva se sa

makeicon.vbs 01234

Code:


Option Explicit
Dim objShell, objDesktop, objLink
Dim strAppPath, strWorkDir, strIconPath

Dim var1
var1 = "http://appserver" & WScript.Arguments(0) & ".htnetwork.com/myweb/login/"

' --------------------------------------------------
strWorkDir ="C:\windows"
strAppPath = var1
strIconPath = "c:\locationicons\web site icon.ico"



Set objShell = CreateObject("WScript.Shell")
objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(objDesktop & "\My local web site.lnk")

' ---------------------------------------------------
' Section which adds the shortcut's key properties

objLink.Description = "Local web site"
objLink.HotKey = "CTRL+SHIFT+X"
objLink.IconLocation = strIconPath 
objLink.TargetPath = strAppPath
objLink.WindowStyle = 3
objLink.WorkingDirectory = strWorkDir
objLink.Save

WScript.Quit


 
Odgovor na temu

[es] :: Skript jezici :: Pomoc sa spajanjem 2 varijable - VBS

[ Pregleda: 3018 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.