Как удалить из txt пустую строку? Ъ

← →
FANAT © (2005-05-31 07:34) [0]

не могу ни как додуматься как удалить из txt.
вообще подразумевается что приоткрытии документа считывается последнии 4 символа и переводятся в integer....
но бывает иногда что в txt пишется пустая строка Ъ.
вот как бы в планах при открытии удалять эту Ъ - а потом брать 4 символа....
все как бы легко, но не могу избавиться от Ъ.
подскажите пожалуйста...

← →
Alx2 © (2005-05-31 08:34) [1]

Четыре символа - они обязательно из множества ["0".."9"]? Или хранятся в бинарном виде?

Если для случая ["0".."9"], то примерно так:

Function ReadLast4DigitsFiltered(Const FileName: String): Integer; Var Buf: Array[1..7] Of char; k: Integer; Begin With TFileStream.Create(FileName, fmOpenRead) Do Try If Size > 5 Then Begin Seek(Size - 6, soFromBeginning); If Read(Buf, 6) <> 6 Then Raise Exception.Create("Read error"); For k := 1 To 6 Do If Not (Buf[k] In ["0".."9"]) Then Buf[k] := " "; Buf[7] := #0; Result := StrToInt(Buf) End; Finally Free; End; End;

← →
Antonn © (2005-05-31 08:35) [2]

FANAT © (31.05.05 7:34)
может TIniFile попробывать:)

← →
Alx2 © (2005-05-31 08:38) [3]

к посту [1]
Надо бы для "If Size > 5 Then" добавить обработку в "else"

← →
Alx2 © (2005-05-31 08:47) [4]

Сорри. Пост [1] с глюками :)

← →
FANAT © (2005-05-31 09:01) [5]

блин.... слава всевышнему...
оказывается это сложно.... а то я уж подумал что я вообще ни чего не могу...
так какие еще идеи есть?

← →
Digitman © (2005-05-31 09:07) [6]

> какие еще идеи есть?

если файл небольшой по размеру, грузить его в стринг-лист, в цикле от последней строки до первой искать непустую строку и взять из нее ожидаемые символы

← →
Anatoly Podgoretsky © (2005-05-31 09:13) [7]

А есть ли мальчик?

FANAT © (31.05.05 9:01) [5]
>оказывается это сложно....

Ничего сложного. Просто то, что я написал впервые - глючное. Так как не проверял на случаях пустая строка + конец файла.

Этот вариант ловит четыре подряд идущих цифры ["0".."9"] если они располагаются не далее, чем в трех байтах от конца файла и конвертирует их в integer :)

Function ReadLast4DigitsFiltered(Const FileName: String): Integer; Const BufSize = 7; Var Buf: Array[1..BufSize] Of char; k, CharCount, WasDigits: Integer; Begin With TFileStream.Create(FileName, fmOpenRead) Do Try If Size < BufSize Then CharCount := Size Else CharCount := BufSize; Seek(Size - CharCount, soFromBeginning); If Read(Buf, CharCount) <> CharCount Then Raise Exception.Create("Read error"); WasDigits := 0; For k := 1 To BufSize Do If Not (Buf[k] In ["0".."9"]) Then If WasDigits > 0 Then Buf[k] := #0 Else Buf[k] := " " Else inc(WasDigits); If WasDigits <> 4 Then Raise Exception.Create("Data error"); Result := StrToInt(Buf) Finally Free; End; End;

Не мешало бы увидеть эту "неправильную" строку в шестнадцатиричном виде.

Как удалить из txt пустую строку? Ъ Найти похожие ветки