Конференция VBStreets

**Шнурок** » 24.02.2005 (Чт) 18:22

Как из текстового файла в каждой строчке удалить первые несколько символов? (от 6 до 9 - можно выбирать в комбобоксе)

**uhm** » 24.02.2005 (Чт) 18:39

В чем проблема-то? К каждой строке применяешь

Right$(строка, Len(строка)-число)

где число - то, сколько символов нужно удалить.

**Шнурок** » 24.02.2005 (Чт) 18:43

а как узнать кол-во строк в файле

**GSerg** » 24.02.2005 (Чт) 18:54

Притырить их все...

**Amed** » 24.02.2005 (Чт) 20:35

А количество строк в файле равно количеству vbCrLf + 1... А ищутся vbCrLf через InStr...

**ism** » 25.02.2005 (Пт) 1:18

А ты не читай файл полностью, читай построчно (Line Input #Номер_канала, строка), записывай результат Right$(строка, Len(строка)-число) во временный файл для каждой строки. Дойдешь до конца удали первый файл и переименуй второй.

**Qubicz** » 25.02.2005 (Пт) 9:39

Код: Выделить всё: Dim st$, arr$() Open "C:\11.txt" For Binary As #1 st = Input(LOF(1), #1) Close #1 arr = Split(st, vbCrLf) MsgBox "Количество строк " & UBound(arr)

Тоже впихнул :roll:

**Sirik** » 25.02.2005 (Пт) 9:50

2 Qubicz
Твой привет хорош для маленьких файлов.
Например, я открывал файл 8.2 Mb аж целых 9 секунд. Скорость сам понимаешь не очень.
Используй FSO (данный файл прочитал за 1-1.5 сек)

Вот пример:

Код: Выделить всё: Dim String_Read As String Dim FSO As New FileSystemObject, FileManager Set FileManager = FSO.OpenTextFile("c:\11.txt", ForReading, False) Do While FileManager.AtEndOfStream <> True String_Read = FileManager.ReadLine 'String_Read - прочитанная строка Loop Set FileManager = Nothing

**Andrey Fedorov** » 25.02.2005 (Пт) 10:54

Sirik писал(а):2 Qubicz
Твой привет хорош для маленьких файлов.
Например, я открывал файл 8.2 Mb аж целых 9 секунд. Скорость сам понимаешь не очень.

Давно известно - не надо пытаться прочесть файл "за один заглот".
Читать надо блоками или даже построчно - все одно быстрей бы было...

**GSerg** » 25.02.2005 (Пт) 10:56

http://bbs.vbstreets.ru/viewtopic.php?t=12465&start=75

**Amed** » 25.02.2005 (Пт) 10:58

Andrey Fedorov писал(а):
Sirik писал(а):2 Qubicz
Твой привет хорош для маленьких файлов.
Например, я открывал файл 8.2 Mb аж целых 9 секунд. Скорость сам понимаешь не очень.

Давно известно - не надо пытаться прочесть файл "за один заглот".
Читать надо блоками или даже построчно - все одно быстрей бы было...

Как раз, - надо читать файл в байтовый массив, и в нём менять ручками первые несколько байт каждой строки. Напомню, строки разделяются Chr(13)+Chr(10) (или наоборот

). Файлы за один заглот бинарно читаются не быстро, а очень быстро!

Можно и не бинарно попробовать обрабатывать, конечно (через Input)...

**Sirik** » 25.02.2005 (Пт) 11:05

2 Amed
Насколькоя понял, речь идёт именно о работе с текстовым файлом.
Так почему бы не использовать уже готовые вещи для этих целей?

Читай как хочешь, но только не всё сразу.

**Andrey Fedorov** » 25.02.2005 (Пт) 11:08

Amed писал(а):Как раз, - надо читать файл в байтовый массив, и в нём менять ручками первые несколько байт каждой строки. Напомню, строки разделяются Chr(13)+Chr(10) (или наоборот ).

Amed писал(а):Файлы за один заглот бинарно читаются не быстро, а очень быстро! Можно и не бинарно попробовать обрабатывать, конечно (через Input)...

Зависит от размера файла... При больших размерах будет тормоз.

**GSerg** » 25.02.2005 (Пт) 11:10

GSerg писал(а):http://bbs.vbstreets.ru/viewtopic.php?t=12465&start=75

**Amed** » 25.02.2005 (Пт) 20:58

Да-да, GSerg, я именно это и имел в виду...

Эх, боты... Такие они, такие...

Конференция VBStreets

Строки и символы

Строки и символы

Кто сейчас на конференции