Серый форум — VBS: Запись в переменную из csv файла

Re: VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 14:43:43 +0000

Сделал сам. Спасибо, за наводки.

Re: VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 11:50:26 +0000

Dim objFSO, objF, arr
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.OpenTextFile("file.csv", 1, true, 0)

Do while NOT objF.AtEndOfStream

strLine = objF.ReadLine 
arr = Split(strLine, ",")
MsgBox arr(0)
MsgBox arr(1)
MsgBox arr(2)
Loop
objF.Close


Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "c:\cscript myscript.vbs"

Это в общем виде, а как сделать чтобы мой второй скрипт запустился с переменными отпарсеными я не знаю(

Re: VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 11:45:43 +0000

c:\cscript myscript.vbs

Re: VBS: Запись в переменную из csv файла

null@example.com (alexii) — Wed, 16 Mar 2011 11:34:49 +0000

MikhailSM, для начала стоит привести командную строку целиком, как бы Вы запускали её без VBScript.

Re: VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 11:27:10 +0000

Осталась последняя задача. Как запустить программу с параметрами, которые я отпарсил.

Re: VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 11:24:10 +0000

Сделал сам.

Dim objFSO, objF, arr
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.OpenTextFile("file.csv", 1, true, 0)

Do while NOT objF.AtEndOfStream

strLine = objF.ReadLine 
arr = Split(strLine, ",")


MsgBox strLine
MsgBox arr(0)
MsgBox arr(1)
MsgBox arr(2)
Loop
objF.Close

Re: VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 11:19:28 +0000

Получилось только выдернуть то, что после первой запятой, как сплитом выдернуть то, что идет до второй и после второй, либо то что после первой?

Re: VBS: Запись в переменную из csv файла

null@example.com (alexii) — Wed, 16 Mar 2011 10:52:44 +0000

MikhailSM, воспользуйтесь функцией «Split()», дабы разложить строку по запятым в массив.

Re: VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 10:30:20 +0000

Убрал Ado, т.к. не нужно оно мне тут.

Dim objFSO, objF
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.OpenTextFile("file.csv", 1, true, 0)

Do while NOT objF.AtEndOfStream

strLine = objF.ReadLine 
MsgBox strLine
Loop
objF.Close

Но задача та же осталась, найти первую, вторую и третью запятую и соответственно то что идет до первой сделать как значение strIP, до второй strLogin, после второй strPass.

Re: VBS: Запись в переменную из csv файла

null@example.com (alexii) — Wed, 16 Mar 2011 10:15:40 +0000

Код оформлен тэгом «code».

VBS: Запись в переменную из csv файла

null@example.com (MikhailSM) — Wed, 16 Mar 2011 09:02:19 +0000

Есть csv файл, который содержит в себе строки
IP,L,P
Надо сделать так чтобы скрипт записывал в переменные strIP, strLogin,strPass значения из файла, а за тем запускал скрипт, который будет работать с этими переменными, на данный момент есть только чтение csv. Прошу помочь...

' ReadCSVFile.vbs

Option Explicit

Dim adoCSVConnection, adoCSVRecordSet, strPathToTextfile
Dim strCSVFile, k

' Specify path to CSV file.
strPathToTextFile = "C:\"

' Specify CSV file name.
strCSVFile = "file.csv"

' Open connection to the CSV file.
Set adoCSVConnection = CreateObject("ADODB.Connection")
Set adoCSVRecordSet = CreateObject("ADODB.Recordset")

' Open CSV file with header line.
adoCSVConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & strPathtoTextFile & ";" & _
    "Extended Properties=""text;HDR=NO;FMT=Delimited"""

adoCSVRecordset.Open "SELECT * FROM " & strCSVFile, adoCSVConnection

' Read the CSV file.
Do Until adoCSVRecordset.EOF
    ' Display all fields.
    For k = 0 To adoCSVRecordset.Fields.Count - 1
        Wscript.Echo adoCSVRecordset.Fields(k).Value
       Rem ReadLine
    Rem strIP=fdf
    Rem strLog=
    Next
    adoCSVRecordset.MoveNext
Loop

' Clean up.
adoCSVRecordset.Close
adoCSVConnection.Close