Re: VBscript czym to zrobic?

Autor: Jacek Stelmaszczyk <steq_at_polbox.com>
Data: Fri 07 Apr 2006 - 10:10:17 MET DST
Message-ID: <e156pn$13ia$1@news2.ipartners.pl>
Content-Type: text/plain; format=flowed; charset="iso-8859-2"; reply-type=response

Skonfiguruj sobie czytnik.

MrKramer wrote:
> Mam zmienna do ktorej pobralem linie - z pliku tekstowego.
> strGet=fso.readline
> wynikiem bedzie powiedzmy taka linia:
> abcd 10.100.1.100 cbda **** (dbca) ***
> z tej linii chcialbym pobrac druga kolumne i 3 znaki z trzeciej kolumny.

Użyj Split i Left.

Jakoś tak:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("file.txt", 1)
strLine = objFile.ReadLine
objFile.Close
arrLines = Split(strLine, " ")
Wscript.Echo "Druga kolumna: " & arrLines(1)
Wscript.Echo "Pierwsze trzy znaki trzeciej kolumny: " & Left(arrLines(2), 3)

Nie testowałem, ale powinno działać. Pętle sobie dodasz.

-- 
Jacek 
Received on Fri Apr 7 10:15:07 2006

To archiwum zostało wygenerowane przez hypermail 2.1.8 : Fri 07 Apr 2006 - 10:42:01 MET DST