Как в ассемблерном тексте заменить TAB на пробел??? Чтобы строки не съехали. Может где - то есть алгоритм.
Подскажите.
Спасибо.
Что ли в редакторе TAB на пробел заменить? Так все равно Replace. И ничего не расползается по идее.Dimon111 писал(а):Replace это тоже самое, что замена в редакторе. От этого разъезжаются строки и программа становится нечитаемой. Корректировать вручною 5000 строк не хочется.
Dimon111 писал(а):Похоже никто не сталкивался. Текст с TAB поразному выглядит в разных редакторах. Плохо выводится на принтер.
Вкратце попробую объяснить:
Там где метка из 7 символов вместо TAB нужно вставлять один пробел.
Там где метка из 6 символов вместо TAB нужно вставлять два пробела.
Таких ситуаций множество. Несоблюдение приводит к стому, что текст на языке ассемблера не выглядит колонками.
Sub Main()
Open "input.txt" For Input As 1
Open "output.txt" For Output As 2
While Not EOF(1)
Dim l As String
Line Input #1, l
Dim p As Integer, i As Integer
p = 0
For i = 1 To Len(l)
Dim c As String
c = Mid(l, i, 1)
If c = vbTab Then
Dim r As Integer
r = (p \ 8) * 8 + 8
Print #2, Space(r - p);
p = r
Else
p = p + 1
Print #2, c;
End If
Next
Print #2,
Wend
Close 1, 2
End Sub
Dimon111 писал(а):Хочу предостеречь от пользования TABами. В редакторе (даже в Word'е) при масштабировании некоторые строки тоже съезжают. Таким образом текст выглядит колонками только при определенном масштабе. Это глюк, хотя в редакторе стоит моноширный курьер.
alibek писал(а):Dimon111 писал(а):Хочу предостеречь от пользования TABами. В редакторе (даже в Word'е) при масштабировании некоторые строки тоже съезжают. Таким образом текст выглядит колонками только при определенном масштабе. Это глюк, хотя в редакторе стоит моноширный курьер.
Если что, то в редакторах (и в Word тоже) можно выставлять позиции табуляции.
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 63