Сортировка данных в TXT файлах

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сортировка данных в TXT файлах - Мир MS Excel

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

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

Сортировка данных в TXT файлах (Макросы/Sub)

Сортировка данных в TXT файлах

A_3485

Дата: Вторник, 25.11.2014, 08:21 | Сообщение № 1

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

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

Сообщений: 146

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

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

2007

Уважаемые форумчане, добрый день!
Подскажите пожалуйста, каким образом можно выполнить внутри текстового файла сортировку. Мне нужно внутри файла поменять определенные числа (1 на 2, 3 на 5), а затем в этом же файле произвести сортировку от 1 до 3. Значения я меняю в отдельной процедуре, остается только произвести сортировку.

[vba]

Код

Sub Сортировка()

Dim F As Integer
Dim F1 As Integer

x = "C:\Users\Desktop\папка\*.txt"

file = Dir(x)

Do While file <> ""

          Name = "C:\Users\Desktop\папка\" & file
         Файл = file
Путь = "C:\Users\Desktop\папка\новая_папка\" & Файл
F = FreeFile()
Open Путь For Output As #F

F1 = FreeFile()
Open Name For Input As #F1
      Do Until EOF(F1)
          Line Input #F1, MyText


       Loop
Close #F
Close #F1

file = Dir

loop
end sub

[/vba]

Сообщение отредактировал A_3485 - Вторник, 25.11.2014, 08:22

Ответить

Сортировка данных в TXT файлах (Макросы/Sub)

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