Mam plik zakodowany jako UTF-8. Potrzebuję odczytać z niego pewną zmienną JobName/ i wyświetlić ją w Memo. Oto przykłądowa zawartość pliku:
/NoCopies 1
/CtCopies 1
/QueueType true
/JobNumber 1028
/PageNumber 1
/JobName (1. teczka.cdr (C))
/Locked false
/MediaCenterPageWidth false
/ColorType 1
/ColorBits
Bardzo proszę o pomoc.
0
0
ściągnij sobie to http://download.4programmers.net/cUnicodeCodecs i zamien kodowanie UTF8 (funkcja UTF8StringToWideString)... wtedy juz bedziesz miał "normalny" tekst z którym sobie poradzisz ;)
0
a jak wczytać tą linię o którą mi chodzi opierając się na zmiennej prze ukośnikiem?
0
masz funkcje... (pisana na szybko ale działa) ;)
function GetValue(Name: String; List: TStrings): String;
var
I: Integer;
S: String;
begin
for I:=0 to List.Count -1 do
begin
S:=List[I];
Delete(S, 1, Pos('/',S)-1);
Delete(S, Pos(' ', S), Length(S));
if S = Name then
begin
S:=List[I];
Delete(S, 1, Pos('/',S)-1);
Delete(S, 1, Pos(' ',S));
Result := S;
end;
end;
end;
używanie
Edit1.Text := GetValue('/JobName', Memo1.Lines);
(do memo1 wsadzasz zawartosc tego twojego pliku)