Замены значений в строке циклом (Файл более 4 млн. строк) - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Замены значений в строке циклом (Файл более 4 млн. строк) (Макросы/Sub)

Замены значений в строке циклом (Файл более 4 млн. строк)

bmv98rus

Дата: Среда, 03.07.2019, 23:03 | Сообщение № 21

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата anvg, 03.07.2019 в 20:38, в сообщении № 20 ()

Что-то долго на таком алгоритме

Андрей, возможно из-за VBS. Он нагрузку на проц малую дает. Комп совсем несвежий но i7 и не более чем на 15% был загружен..
А построчно как читали? Я споткнулся на том, что Cr без Lf в файле TS. Ну а бежать с поиском Cr естественно гиблое дело.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Среда, 03.07.2019, 23:21

Ответить

anvg

Дата: Четверг, 04.07.2019, 08:56 | Сообщение № 22

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Цитата bmv98rus, 03.07.2019 в 23:03, в сообщении № 21 ()

что Cr без Lf в файле TS

Ну, я исходник на миллионы формировал дедовским способом

Тот без проблем строки только с Cr читает.
[vba]

Код

ublic Sub testVba()
    Dim fIn As Integer, sLine As String, lineCount As Long
    fIn = FreeFile
    Open "C:\Path\Files\test.csv" For Input As #fIn
    lineCount = 0
    Do Until EOF(fIn)
        lineCount = lineCount + 1
        Line Input #fIn, sLine
        Debug.Print "line " & CStr(lineCount) & " -> "; sLine
    Loop
    Close #fIn
End Sub

[/vba]
Ну, а пишет уже с полноценными CrLf. Если действительно у ТС данные из таких систем CR (ASCII 0x0D) используется в 8-битовых машинах Commodore, машинах TRS-80, Apple II, системах Mac OS до версии 9 и OS-9, то код следует переделать на vbCr для разбиения на строки, ну, и на слияние тоже. Скорее всего потребуется анализ на пропуск в результате входных строк, не содержащих символ ;

Ответить

monstr_ork

Дата: Суббота, 13.07.2019, 12:58 | Сообщение № 23

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 133

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

anvg, прошу прощения, что спустя столько времени.
Начал тестировать и возникла ошибка, в функции "translate", что пользовательский тип не определен.
Помогите, пожалуйста?

Ответить

monstr_ork

Дата: Суббота, 13.07.2019, 21:34 | Сообщение № 24

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 133

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

С ошибкой разобрался, нужно было библиотеки подключить.
Только у меня все равно ошибка возникает на последнем шаге в функции =(

Ответить

Замены значений в строке циклом (Файл более 4 млн. строк) (Макросы/Sub)

Страница 2 из 2
«
1
2