Форматирование текста

[Lotreck]

Возможно ли программно отформатировать следующий пример текстового файла.
Текст имеющий вид:

Код: Выделить всё

     xxxxxx      xx        xxxx   x
xxxx xxxx   x     xxxxxxx
      x  x    x xx                             

Привести к виду:

Код: Выделить всё

xxxxxx    xx        xxxx      x
xxxx      xxxx      x         xxxxxxx
x         x         x         xx                 

Длинна, количество слов и строк и интервалы между колонками взяты произвольно.

[alibek]

Да.

[Lotreck]

Каким образом, не подскажите?

[alibek]

Нет, не подскажу.
Сформулируй задачу и в ней будет 70% решения.

[Lotreck]

Попал ко мне текстовый файл с данными скопированными из таблицы. Слова упорядоченные в таблице по полям в текстовом файле сместились в пределах стороки. Пытаюсь их обратно упорядочить по "колонкам" уже в текстовом файле.

[RayShade]

Это бессмысленная задача. Такого рода форматирование будет очень сильно зависеть от программы отображения.

Разные редакторы по разному интерпретуируют последовательные пробелы, символы tab и так далее. Вдобавок, форматирование такого рода сильно зависит от используемого шрифта (моноширинный/переменный).

Я бы, нарисовал таблицу в HTML скажем (если цель - отображение) или в CSV (если цель - хранение и обработка). Это было бы более правильно.

[alibek]

Тогда убираешь все последовательности пробелов, сводя их к одному пробелу, и форматируешь колонки, разделяя их по пробелу.

[iGrok]

Для начала сделать из нескольких пробелов - один.
Потом этот один заменить на vbTab.

Это - частный случай. Для общего - надо больше подробностей.

[Lotreck]

А как размер табуляции задавать? Если я правильно понял через него назначается ширина колонки.

[Antonariy]

Никак.

Разные редакторы по разному интерпретуируют последовательные пробелы, символы tab и так далее. Вдобавок, форматирование такого рода сильно зависит от используемого шрифта (моноширинный/переменный).

Если конечная цель - создать ровную табличку для просмотра блокнотом и в каждой ячейке не более одного слова, то нужно множественные пробелы заменить на один, текст разбить на строки, строки на слова, для каждой колонки найти самое длинное слово, остальным словам соответствующей колонки добавлять необходимое количество пробелов.

[Lotreck]

Каким образом определить это самое необходимое количество пробелов для постоянного числа слов в пределах одной строки?

[Antonariy]

Необходимое число пробелов вычисляется для конкретного слова в конкретном столбце, а не "в пределах одной строки".
МакмальнаяДлинаДляСтолбца - Len(ТекущееСловоВСтолбце).

Код: Выделить всё

'убираем лишние пробелы
Do
    pLen = Len(sText)
    sText = Replace(sText, "  ", " ")
Loop Until pLen = Len(sText)

Dim MaxLengths() As Integer
Dim Lines() As String
Dim Words() As String

'разбиваем на строки
Lines = Split(sText, vbCrLf)

'оределяем кол-во столбцов
Words = Split(Lines(0)," ")
x = UBound(Words)
Redim MaxLengths(x)

'находим максимальные длины слов для каждого столбца
For x=0 to UBound(Lines)
    Words = Split(Lines(x)," ")
    For y = 0 To UBound(Words)
        If Len(Words(y))>MaxLengths(y) Then MaxLengths(y) = Len(Words(y))
    Next
Next

'получаем наконец отформатированный текст
For x=0 to UBound(Lines)
    Words = Split(Lines(x)," ")
    For y = 0 To UBound(Words)
        s = s & Words(y) & Space(MaxLengths(y) - Len(Words(y) + 1) '+1 чтобы максимальные слова не липли к соседям
    Next
    s = s & vbCrLf
Next

Это способ "в лоб", может есть более оптимальный.

[Lotreck]

Респект за детальную информацию.

[Saturn.65]

При диалоге выбора файла он записывается в list1 с полным путем. Например C:\WINDOWS\regedit.exe
Как получить именно название файла, без пути? Можно ли отфильтровать? А то не хорошо получается при выводе
MsgBox "Файл " & Text1.Text & " добавлен в список.", vbInformation.

Код: Выделить всё

Dim ofn As OPENFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Form1.hwnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "Исполняемые файлы (*.exe)" + Chr$(0) + "*.exe" + Chr$(0)
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = CurDir
ofn.lpstrTitle = "Our File Open Title"
ofn.flags = 0
Dim a
a = GetOpenFileName(ofn)

If (a) Then
Text1.Text = Trim$(ofn.lpstrFile)

MsgBox "Файл " & Text1.Text & " добавлен в список.", vbInformation

Else
'MsgBox "Cancel was pressed"
End If

[alibek]

FileTitle
InStrRev

[Saturn.65]

alibek спасибо!
Это то я нашел. Все усложняется тем, что список файлов помещается в ListBox с путями, а надо, чтобы при клике, в другом ListBoх отображались только имена без путей. Пускай даже и с расширением.

[iGrok]

alibek спасибо!
Это то я нашел. Все усложняется тем, что список файлов помещается в ListBox с путями, а надо, чтобы при клике, в другом ListBoх отображались только имена без путей. Пускай даже и с расширением.

InStrRev по "\" + Mid$
Ну или
http://msdn.microsoft.com/en-us/library/bb773589.aspx

[Хакер]

Не или, а только.

[Saturn.65]

Не или, а только.

Да. Самое то! Но кто бы это в пример на VB переделал? Я пошел другим путем. В период нахождения файла в коммон диалоге извлекаю его имя без пути

Код: Выделить всё

Text1.Text = ofn.lpstrFileTitle

. Правда оно идет с расширением.exe. Расширение мне мешает, так как поиск окна следящей программы идет по названию окна. Пришлось мне применить такую замену:

Код: Выделить всё

Private Sub Text7_Change()
iInput = Text7.Text
Text7.Text = Replace(iInput, ".exe", "")
End Sub