|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Alexander Chelmodeev 2:5062/17.5 18 Jun 2003 23:01:26
To : Anton Martynov
Subject : TABs -> Spaces
--------------------------------------------------------------------------------
10 Июн 2003 Вт в 14:57 : Anton Martynov --> Alexander Chelmodeev:
>> AM> есть файл. текстовый. кое-где в строках встречаются TABы,
>> AM> которые мне надо преобразовать в пробелы... пользуюсь функцией:
>>
>> Function tab2space(s:String; i:integer):string;
>> begin
>> result:=copy(s,1,i-1)+copy(' ',1,9-(i mod 8));
>> result:=result+copy(s, i+1, maxint);
>> end;
AM> привет...
AM> не, александр, это не катит. в твоем примере неаакуратная замена
AM> происходит. я сделал так:
AM> function ReplaceTabs(s: string): string;
AM> var
Hаконец-то я собрался проверить работу твоей функции (свою-то я давно
проверил). Оказалось, что твоя где-то глючит. Вроде бы на строках, где более
одного символа табуляции и строка начинается с него же.
Вот вызов моей функции:
While Pos(#9, stroka)>0 do stroka:=Tab2Space(stroka, Pos(#9, stroka));
---------------------------------------
| Александр Челмодеев,
| http://ichip.rbcmail.ru, ichip.chat.ru
| mailto: ichip(а)rbcmail.ru
... NS-Soft
--- GoldED+/386 1.1.5-20010807 rev.0813 (MS-DOS 7.10 pc) * Chip&Deal *
* Origin: Кaждaя женщинa пpи жизни имеет пpaвo нa бюcт (2:5062/17.5)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
