Всем привет.

Прошу подсказать путь решения проблемы.

После импорта файла txt в Excel. Получилось, что таблица содержит пустые строки и строки с данными которые относятся к выщестоящим строкам. Данные необходимо привести к определенному виду, образец исходных и реузльтирующих данных прилагаю.
Исходный файл txt очень большой и в ручную править очень долго. Возможно пхожие проблемы вероятно кто то уже решал и может поделиться примером или ссылкой.


Буду благодарен за подсказки о путях решения проблемы.

Поменял вложение.
Прикладываю часть исходного файла txt.

Это сообщение отредактировал(а) hudoi - 3.3.2005, 11:13

Присоединённый файл ( Кол-во скачиваний: 6 )
 форум_2.txt

1) Править надо именно исходный файл.
2) Делать это надо программно.
3) Судя по структуре твоего файла, это более чем элементарно - обычный поиск-замена в любом текстовом редакторе, поддерживающем спецсимволы (перевод строки).

Не вижу проблем с деланием этого при импорте.
Алгоритм будет прост.
Добавлено @ 10:10
Какой символ используется как разделитель колонок? Или там фиксированная позиция разделителей?

Для Naghual .

Поменял исходное вложение на часть исходного файла txt

Грузим в Ворд.
Правка - заменить.

Найти - [^p ]
Заменить на - [~]
Заменить все
Найти - [~ @([! ])]
Заменить на - [ \1]
Подстановочные знаки включить
Заменить все
Найти - [^p^p]
Заменить на - [^p]
Заменить все

Квадратные скобки не вводить.

Сделал по методу предложенным Akina

Получил "сплошной" файл где имеются условные разделения знаком ~

А как дальше такой файл "тащить" в Excel или Access? Файл надо обрабатывать - дополнять другими полями и т.д.... До обработки файл имел вид псевдо таблицы и Excel его "понимал" разнося данные по отдельным столбцам. Как обработать сплошной текст?

Цитата(hudoi @ 3.3.2005, 15:20)

Получил "сплошной" файл где имеются условные разделения знаком ~

Я делал ВСЕ что указал - у меня получилось нормально. Знаков тильды у тебя вообще не должно было остаться. Что-то сделал не так...

В конце концов всего три поиска-замены - ну разберись же, что делается на каждом этапе... все же просто как блин...

hudoi
Вот тебе файлик надстройки к Екселю. Дерзай!

(надеюсь, не нужно объяснять как его подключить?)


Присоединённый файл ( Кол-во скачиваний: 5 )
 ФорумИмпорт.xla

Благодарю Naghual.

Код

Private Sub CommandButton1_Click() Dim d Dim k As Integer d = UsedRange.Rows.Count For r = 1 To d If Range("A" & r).Value = 0 Then  k = k + 1  Range("C" & r - k).Value = Range("C" & r - k).Value & " " & Range("C" & r).Value  Else  k = 0  End If  Next r  Columns("C:C").Select    Selection.WrapText = True End Sub Private Sub CommandButton2_Click() Dim d ' ïîñòàâèøü ñê.íàäî d = UsedRange.Rows.Count For r = 1 To d If Range("A" & r).Value = 0 Then Rows(r).Delete Shift:=xlUp         End If Next r End Sub

Вторая кнопка удаляет ненужные строкию.Почему -то ее приходится нажимать несколько раз.Поэтому поставила отдельно.

Цитата

Почему -то ее приходится нажимать несколько раз.

наверное потому что не

Код

d = UsedRange.Rows.Count For r = 1 To d   If Range("A" & r).Value = 0 Then      Rows(r).Delete Shift:=xlUp   End If Next r

а

Код

r=1 While r < UsedRange.Rows.Count   While Range("A" & r).Value = 0      Rows(r).Delete Shift:=xlUp   Wend   r=r+1 Wend

Akina спасибо.Интересно было узнать.


Это сообщение отредактировал(а) Старуха - 3.3.2005, 20:27

С Днем Рождения!hudoi
Расти большой и не будь лапшой!

Для Старуха

Спасибо за код и за добрые слова.


Мне расти поздно... :-). Пора начинать думать о душе..

Цитата

Пора начинать думать о душе

- О жизнь только началась.Прочти мою подпись.

Это сообщение отредактировал(а) Старуха - 4.3.2005, 09:54