Odczyt pliku utf-8

0

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

ś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)

1 użytkowników online, w tym zalogowanych: 0, gości: 1