Jak to zrobić w VBS

Article View: pl.comp.lang.vbasic

Article #104602

Back to pl.comp.lang.vbasic Previous Next

#104602

From: slawek
Date: Tue, 13 Apr 2010 19:22

29 lines
1945 bytes

Chce uruchamiać skryptem program, skrypt jest mniej więcej taki - niestety 
nie jest tak prosto jak w bash, bo nie da się łatwo mieć tablicy/listy. Czy 
można ten skrypt poprawić, aby działał - tzn. nieznacznie zmienić, a nie np. 
rozpisać dane(1)="1.5": dane(2)="2.5" itd.?

function Command(cmd) 
' to działa, jest ok
  Dim process
  Set process = shell.Exec("%ComSpec% /c """ & cmd & """")
  Command = process.stdout.ReadAll 
' synchroniczne czytanie
end function

dane = {"1.5","2.5","3.0","5.0","15.0"} 
'**** w tym miejscu nie działa, nie ta składnia, w VBS nie ma takich 
rzeczy?!

for each d in dane 
'**** oczywiście i to nie wykona się, jeżeli nie ma tablicy dane
   output = "plik-" & d & ".txt"
   Command("echo " & parameters & " | a.exe > " & output)
 next

 Wscript.Quit


TIA
slawek

Technical Details

Message-ID: <hq2gvc$da8$1@nemesis.news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!plix.pl!newsfeed1.plix.pl!goblin2!goblin.stu.neva.ru!xlned.com!feeder7.xlned.com!news2.euro.net!209.197.12.242.MISMATCH!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!plix.pl!newsfeed1.plix.pl!goblin2!goblin.stu.neva.ru!xlned.com!feeder7.xlned.com!news2.euro.net!209.197.12.242.MISMATCH!nx01.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail
From: "slawek" <slawek@host.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Jak to zrobić w VBS
Date: Tue, 13 Apr 2010 21:22:18 +0200
Organization: TP - http://www.tp.pl/
Lines: 30
Message-ID: <hq2gvc$da8$1@nemesis.news.neostrada.pl>
NNTP-Posting-Host: 62.69.202.53
Mime-Version: 1.0
X-Trace: nemesis.news.neostrada.pl 1271187244 13640 62.69.202.53 (13 Apr 2010 19:34:04 GMT)
X-Complaints-To: usenet@news.neostrada.pl
NNTP-Posting-Date: Tue, 13 Apr 2010 19:34:04 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
Importance: Normal
X-Newsreader: Microsoft Windows Live Mail 14.0.8089.726
X-MimeOLE: Produced By Microsoft MimeOLE V14.0.8089.726
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit