pandora777 (Все сообщения пользователя)

Транспонирование в цикле

pandora777 Пользователь Сообщений: 4 Регистрация: 30.04.2019	# 29.03.2021 11:44:46 Почему то сам вопрос удалился. Есть текстовый файл в котором нужно транспонировать каждые 4 строки в столбцы. Как это быстрее всего сделать.
	Перейти

Удалить 2 последних символа из каждой строки текстового файла

pandora777

Пользователь

Сообщений: 4 Регистрация: 30.04.2019

30.04.2019 19:54:05

Вот этот код работает. Можно ли обойтись без второго файла, например пройтись replace в исходном файле? Понятно, что первый файл я могу удалить, а второй переименовать в исходный.

Код

Sub Del2Symb()
Dim s As String
Open "c:\In\textfile.txt" For Input As #1
Open "c:\In\textfile1.txt" For Output As #2
Do While Not EOF(1)
 Line Input #1, s
 s = Left(s, Len(s) - 2)
Print #2, s
Loop
Close #1
Close #2
End Sub

Перейти

Удалить 2 последних символа из каждой строки текстового файла

pandora777

Пользователь

Сообщений: 4 Регистрация: 30.04.2019

30.04.2019 17:25:43

Есть текстовые файлы (*.txt), которые содержат информацию разделенную ";".Длина строки до 300 символов. Последнее значение в каждой строке содержит служебную информацию и мне она мешает для дальнейшей обработки. Количество разделителей для каждой строки может быть разным.

Изменено: pandora777 - 30.04.2019 17:34:50

Перейти

Удалить 2 последних символа из каждой строки текстового файла

pandora777 Пользователь Сообщений: 4 Регистрация: 30.04.2019	# 30.04.2019 16:30:41 Добрый день! Подскажите, как средствами VBA удалить 2 последних символа из каждой строки текстового файла и записать измененные данные в этот же файл.
	Перейти