Как Мне Парсить Текст Чтобы Получить Нужные Мне Данные

[ЛивАрт]

Всё супер только одна проблема при запросе получаю ответ Kristian Vogelberg - Rolf R\u00f6tgers GbR а нужно Kristian Vogelberg - Rolf Rötgers GbR не распознает немецкие буквы Ü, Ö, Ä, как исправить эту проблему
http://www.ulimatbach.de/links/unicode_entities.html вот таблицу нашол

Хм, ну тут два пути я вижу:
1. Разобраться с кодировкой(не уверен но возможно поможет STROKA := AnsiToUtf8(STROKA);)
Скинь под личный код с той ссылью откуда эти коды символов грузятся, посмотрю покумекаю)
2. Сделать замену символов например.

procedure TForm1.sButton1Click(Sender: TObject);
var
DE: string;
begin
de:= sEdit1.Text;
if pos('\u00f6',de)<>0 then
      begin
      sMemo1.Lines.Add(DE);
      sMemo1.Lines.Add('Заменили символ:');
      DE:=  StringReplace(DE, '\u00f6', 'ö', [rfReplaceAll]);
      sMemo1.Lines.Add(DE);
      end;
end;

 

[Sascha]

Хм, ну тут два пути я вижу:
1. Разобраться с кодировкой(не уверен но возможно поможет STROKA := AnsiToUtf8(STROKA);)
Скинь под личный код с той ссылью откуда эти коды символов грузятся, посмотрю покумекаю)
2. Сделать замену символов например.

procedure TForm1.sButton1Click(Sender: TObject);
var
DE: string;
begin
de:= sEdit1.Text;
if pos('\u00f6',de)<>0 then
      begin
      sMemo1.Lines.Add(DE);
      sMemo1.Lines.Add('Заменили символ:');
      DE:=  StringReplace(DE, '\u00f6', 'ö', [rfReplaceAll]);
      sMemo1.Lines.Add(DE);
      end;
end;

по второму варианту заменяет если только одна строка а когда много неработает
:(

 

[ЛивАрт]

по второму варианту заменяет если только одна строка а когда много неработает
:(

Сделай что то типо словарика, оформи в функцию внутри функции сделай цикл\ы
НО это по моему пятое колесо получается...
Как то же немецкие кодеры справляются с этим? Значит решение простое.
Нужен или код или го в скайп(если говорить можешь), покажешь оттуда что к чему.

 

[Sascha]

я на работе скайпа нету , вот код, глянь, я там коды прописал для теста но если водишь в Labelcode: 1 то всё неработает

 

[Sascha]

это что приходит, но как текст перекручивает

 

[Sascha]

Вот что нужно переводить:

Ä = \u00c4
ä = \u00e4
Ö = \u00d6
ö = \u00f6
Ü = \u00dc
ü = \u00fc
ß = \u00df

 

[ЛивАрт]

Вот что нужно переводить:

Ä = \u00c4
ä = \u00e4
Ö = \u00d6
ö = \u00f6
Ü = \u00dc
ü = \u00fc
ß = \u00df

Немогу запустить твой код - библиотек нехватает.

Вынес твой код в отдельную функцию и всё ок!

// замена символов!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
function Zamena(stroka: string): string;
begin
  if Pos('\u00c4', html) <> 0 then
  begin
    html := StringReplace(html, '\u00c4', 'Д', [rfReplaceAll]);
  end
  else if Pos('\u00e4', html) <> 0 then
  begin
    html := StringReplace(html, '\u00e4', 'д', [rfReplaceAll]);
  end
  else if Pos('\u00d6', html) <> 0 then
  begin
    html := StringReplace(html, '\u00d6', 'Ц', [rfReplaceAll]);
  end
  else if Pos('\u00f6', html) <> 0 then
  begin
    html := StringReplace(html, '\u00f6', 'ц', [rfReplaceAll]);
  end
  else if Pos('\u00dc', html) <> 0 then
  begin
    html := StringReplace(html, '\u00dc', 'Ь', [rfReplaceAll]);
  end
  else if Pos('\u00fc', html) <> 0 then
  begin
    html := StringReplace(html, '\u00fc', 'ь', [rfReplaceAll]);
  end
  else if Pos('\u00df', html) <> 0 then
  begin
    html := StringReplace(html, '\u00df', 'Я', [rfReplaceAll]);
  end;
end;

Это в коде отправки запроса
html := IdHTTP1.post('http://labelcode.gvl.de/interfaces/data.php', post);
  Zamena(html);         // Задействуем функцию!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Сделал рабочий код в одном из прошлых твоих исходах!
Проблем со встройкой в текущий код не должно быть

 

[Sascha]

Немогу запустить твой код - библиотек нехватает.

Вынес твой код в отдельную функцию и всё ок!

// замена символов!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
function Zamena(stroka: string): string;
begin
  if Pos('\u00c4', html) <> 0 then
  begin
    html := StringReplace(html, '\u00c4', 'Д', [rfReplaceAll]);
  end
  else if Pos('\u00e4', html) <> 0 then
  begin
    html := StringReplace(html, '\u00e4', 'д', [rfReplaceAll]);
  end
  else if Pos('\u00d6', html) <> 0 then
  begin
    html := StringReplace(html, '\u00d6', 'Ц', [rfReplaceAll]);
  end
  else if Pos('\u00f6', html) <> 0 then
  begin
    html := StringReplace(html, '\u00f6', 'ц', [rfReplaceAll]);
  end
  else if Pos('\u00dc', html) <> 0 then
  begin
    html := StringReplace(html, '\u00dc', 'Ь', [rfReplaceAll]);
  end
  else if Pos('\u00fc', html) <> 0 then
  begin
    html := StringReplace(html, '\u00fc', 'ь', [rfReplaceAll]);
  end
  else if Pos('\u00df', html) <> 0 then
  begin
    html := StringReplace(html, '\u00df', 'Я', [rfReplaceAll]);
  end;
end;

Это в коде отправки запроса
html := IdHTTP1.post('http://labelcode.gvl.de/interfaces/data.php', post);
  Zamena(html);         // Задействуем функцию!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Сделал рабочий код в одном из прошлых твоих исходах!
Проблем со встройкой в текущий код не должно быть

Попробую сейчас, я пезалил прогу и убрал всё лишнее попробуй

 

[ЛивАрт]

Попробую сейчас, я пезалил прогу и убрал всё лишнее попробуй

 

[ЛивАрт]

Всё меняет, незнаю только как поведет себя с большим кол-вом строк

 

[Sascha]

я наверно много строк поставил 100, сейчас поставил 20 все вроде работает, Спасибо за помощь

 

[ЛивАрт]

я наверно много строк поставил 100, сейчас поставил 20 все вроде работает, Спасибо за помощь

Незачто, много строк придется обрабатывать в потоке...

 

[Sascha]

Незачто, много строк придется обрабатывать в потоке...

я 20 оставлю хватит,восновном обработка идёт от 1 до 5 строк

 

[Sascha]

Спасибо всем за участие в помащи, всё работает великалепно решениее Unicode найдено выложу код может кому пригодится hacker в uses прописываем DBXJSON и сам код

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  JSON: TJSONValue;
begin
  s := RichEdit1.Text;
  JSON := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(s), 0);
  RichEdit1.Clear;
  RichEdit1.Lines.add(JSON.ToString);
//  ShowMessage(JSON.ToString);
end;

Bow вот такой маленький а такой мощный