Сейчас на форуме: _MBK_, ut2004, vsv1 (+6 невидимых)

 eXeL@B —› Вопросы новичков —› CSV Files, need help!
Посл.ответ Сообщение


Ранг: 622.6 (!), 521thx
Активность: 0.330.89
Статус: Участник
_Вечный_Студент_

Создано: 21 декабря 2006 18:19
· Личное сообщение · #1

Подскажите, кто может, где можно глянуть образец кода для чтения
CSV (Comma Separated Value) Files in Visual Basic 6.0.
Заранее, СПАСИБО!

-----
Give me a HANDLE and I will move the Earth.




Ранг: 95.5 (постоянный), 36thx
Активность: 0.080.04
Статус: Участник

Создано: 22 декабря 2006 10:27
· Личное сообщение · #2

А что конкретно нужно?




Ранг: 120.9 (ветеран), 5thx
Активность: 0.080
Статус: Участник
Programmer and reverser

Создано: 22 декабря 2006 10:58
· Личное сообщение · #3

блин... ну ты даешь.. читаешь файл, потом ищешь запятые и разделяешь. что сложного? или еще проще можно.
Вот код:

Dim mData() As String

Function ReadCSV(ByVal FileName As String) As Integer
Dim ff As Integer
ff = FreeFile
Dim index As Integer
index = 0
On Local Error GoTo err_:
Open FileName For Input As #ff
Do While Not EOF(ff)
ReDim Preserve mData(index)
Input #ff, mData(index)
index = index + 1
Loop
Close ff
ReadCSV = index - 1
Exit Function
err_:
ReadCSV = 0
Close ff
End Function

Функция принимает имя файла в качестве параметра, а возвращает кол-во прочитанных слов.
Данные сохраняются в массиве mData

-----
Уважайте других и пишите грамотно.





Ранг: 622.6 (!), 521thx
Активность: 0.330.89
Статус: Участник
_Вечный_Студент_

Создано: 22 декабря 2006 15:56
· Личное сообщение · #4

Вот это как раз и было нужно, Спасибо, Executioner!

-----
Give me a HANDLE and I will move the Earth.



 eXeL@B —› Вопросы новичков —› CSV Files, need help!
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати