Отображение данных из тхт

[Riter]

Проблема в том, что после где то 12тыс строки пишет Out of memory. И долго грузится.

Dim sFileName As String
Dim sRow As String
sFileName = App.Path & "\WEBEXTD20041216.txt"
MSFlexGrid1.Cols = 27
Open sFileName For Input As #1
Do Until EOF(1)
Line Input #1, sRow
MSFlexGrid1.AddItem sRow
Loop
Close #1

Если я делаю через ado то в некоторых столбцах MSFlexGrid данные выводятся в один столбец несколько столбцов текстовово файла,
з за чего это происходит?

[Riter]

Вообщето я хочу получить типа excel таблицы с фильтром.
Кто что может посоветовать?

[Konst_One]

а что тебе мешает заюзать ADO и обычный DataGrid для этого

[Riter]

Проблема в том что у меня почему то в один столбец DataGrid помещается несколько столбцов из текста, и как с этим бороться я незнаю. И как можно поместить туда сразу несколько файлов?

[Konst_One]

приведи код как ты делаешь отображение своего текстового файла в гриде

[Riter]

Если бы я знал какой код писать то может у меня бы все и заработало бы. Кстатии в текстовом файле столбцы разделдены таб.

[Konst_One]

Ты же пишешь:

Проблема в том что у меня почему то в один столбец DataGrid помещается несколько столбцов из текста, и как с этим бороться я незнаю.

Вот я и спрашиваю - как ты это получил, приведи код.

[Riter]

Я кодом не пользовался. Вытянул Adodc1 в констр. создал соединение, связал MSHFlexGrid1 с Adodc1 и на этом пои познания vb закончились. В итоге получилось некоторые столбцы в нормальном виде, а некоторые в одном столбце получилось 2 и больше разделенных ||.

[Konst_One]

Код: Выделить всё


'GRD - это DataGrid (Microsoft DataGrid Control 6.0 (SP6) (OLE DB) )
'sPath  - это директория, где твои файлики текстовые лежат
'там же нужно создать файлик SCHEMA.INI примерно с таким содержимым (разделитель Запятая)
'[Имя твоего файла.txt]
'ColNameHeader=True
'Format=CSVDelimited
'CharacterSet=ANSI
'MaxScanRows=0
'
            s = VBA.Left$(s, Len(s) - 1)
            ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;FIL=text;MaxBufferSize=2048;PageTimeout=5;Extensions=txt;" & _
                    "DBQ=" & sPath & ";DefaultDir=" & sPath  & ";"

    Set cn = New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.CommandTimeout = 20
    cn.ConnectionTimeout = 30
    cn.Open ConnectionString

    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    Set rs.ActiveConnection = cn

     SQL = "SELECT * FROM [Имя твоего файла#txt]"
     rs.Open SQL, , adOpenStatic, adLockReadOnly, adCmdText

     Set GRD.DataSource = rs



[Konst_One]

писал быстро, возможны ошибки, так что разбирайся с основной идеей

[Riter]

А что делать если разделитель табуляция?

[Riter]

Непонятно следующее

'там же нужно создать файлик SCHEMA.INI примерно с таким содержимым (разделитель Запятая)

s = VBA.Left$(s, Len(s) - 1) с этой строкой неработает

Если ее убрать то получается что в одном столбце отображаются все столбцы разделенные| (при разделители ,)

при разделители tab то некоторые нормально, а некоторые нет.

[Dzhon]

Код: Выделить всё

sLine = VBA.Replace(sLine, "|", vbTab)
Me.mshfGRID.AddItem sLine


Как раз табуляцией разделено и должно быть.