Nach über 3 Jahren Pause bin ich wieder zurück beim Coden. Nun nutze ich Lazarus 0.2.29 auf meiner Linux Distribution und komm nach langem Suchen hier im Forum nicht zum Nenner.

Mein Problem ist wie folgt:

Ich hab eine List wie zum Beispiel

markieren

Code:

la             Laos
latam          Latin American
lt             Lithuania
lv             Latvia
mao            Maori

Die Ausgabe soll wie folgt sein:

markieren

Code:

Laos (la)
Latin America (latam)
Lithuania (lt)
Latvia (lv)
Maori (mao)

In CPP ist es wie folgt gelöst:

markieren

Code:

QStringList Backend::keyLayouts()
{
    QStringList _layouts;
    QString code, desc, line;

    Process p(QStringList() << "xkeyboard-layouts");

    if (p.waitForFinished()) {
        while (p.canReadLine()) {
            line = p.readLine();
            code = line;
            code.truncate(line.indexOf(" "));
            desc = line.remove(0, line.indexOf(" "));
            _layouts.append(desc.simplified() + " - (" + code.simplified() + ")");
        }
    }
    return _layouts;
}

Die Ausgabe von xkeyboard-layouts ist wie in der ersten Code-Box.
Ich werd nun weiter Suche ...

zusammenfalten · markieren

Delphi-Quellcode:

//Function ProccessAndWait
procedure Processandwait(Executable : String);
var
  AProcess1: TProcess;
  AStringList: TStringList;
  AMemo: TMemo;
  Result : String;
  i : integer;

begin
  AStringList := TStringList.Create;
  AMemo := TMemo.Create(Form1);
  Result:=' ';
  try
  AProcess1 := TProcess.Create(nil);
  AProcess1.CommandLine := Executable;
  AProcess1.Options := AProcess1.Options+ [poUsePipes];

 {Execute}
  AProcess1.Execute;
  {Wait to finish}
  while AProcess1.running = true do
  begin
       AStringList.LoadFromStream(AProcess1.Output);
       AMemo.lines.add(Astringlist.text);
  end;
  finally
    // Fill Keyboard Models
    if Processcmd = 'xkeyboard-models' then
    begin
          for i := 0 to AMemo.Lines.Count - 1 do
          if AMemo.lines[i] = '' then
              // do nothing
          else
              Form1.Page2Combobox.items.add(AMemo.lines[i]);
    end;
    // Fill Keyboard Layouts
    if Processcmd = 'xkeyboard-layouts' then
    begin
          for i := 0 to AMemo.Lines.Count - 1 do
          if AMemo.lines[i] = '' then
              // do nothing
          else
              begin
                     Form1.Page2Layoutlist.items.add(Delete(AMemo.lines[i], 1, Pos('', AMemo.lines[i])));
              end;
    end;
    //Clean up;
    AProcess1.Free;
    AStringlist.Free;
    AMemo.Free;
  end;
end;

markieren

Code:

Form1.Page2Layoutlist.items.add(Delete(AMemo.lines[i], 1, Pos('', AMemo.lines[i])));

... funktioniert nicht um zum Beispiel (siehe weiter unten) cd zu bekommen.

markieren

Code:

Form1.Page2Layoutlist.items.add(AMemo.lines[i]);

... liefert mir zum Beispiel:

markieren

Code:

cd             Congo, Democratic Republic of the

Steh noch immer auf dem Schlauch um:

markieren

Code:

Congo, Democratic Republic of the (cd)

Ich müsste cd rausfiltern, was aber auch mal nec_vndr/jp

markieren

Code:

nec_vndr/jp    Japan (PC-98xx Series)

sein kann, und Democratic Republic of the finden wobei es unterschiedliche Anzahlen von Leerzeichen pro Zeile geben kann. Verzwickt das zu lösen, wenn man so lang aus dem Coden raus ist ...

Hallo Amnon82,
worüber genau stolperst Du?
Wenn ich das richtig verstanden habe, dann hast Du mehrere Zeilen Text.
Jede Textzeile ist so aufgebaut, daß an der Stelle 1..n ein Code/Wort steht, der/das kein Leerzeichen enthält.
An der Stelle n+1 folgt mindestens ein Leerzeichen.
An der Stelle n+1+x folgt weiterer Text (Langtext zum vorhergehenden Code)

also sollte so etwas funktionieren:

markieren

Delphi-Quellcode:

pp:=pos(' ',Zeile);
codewort:=copy(Zeile,1,pp-1);
Langtext:=trimmleft(copy(Zeile,pp+1,length(zeile)-pp);
Zeile:=Langtext+'('+Codewort+')';

Gruß
K-H

Danke für den Tip. Ich hab noch ein bisschen weiter gesucht und folgendes zusammengeschrieben, was mir die Lösung bringt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Processandwait(Executable : String);
var
  AProcess1: TProcess;
  AStringList: TStringList;
  AMemo: TMemo;
  Result, AString1, AString2 : String;
  i : integer;

begin
  AStringList := TStringList.Create;
  AMemo := TMemo.Create(Form1);
  Result:=' ';
  try
  AProcess1 := TProcess.Create(nil);
  AProcess1.CommandLine := Executable;
  AProcess1.Options := AProcess1.Options+ [poUsePipes];

 {Execute}
  AProcess1.Execute;
  {Wait to finish}
  while AProcess1.running = true do
  begin
       AStringList.LoadFromStream(AProcess1.Output);
       AMemo.lines.add(Astringlist.text);
  end;
  finally
    // Fill Keyboard Models
    if Processcmd = 'xkeyboard-models' then
    begin
          for i := 0 to AMemo.Lines.Count - 1 do
          if AMemo.lines[i] = '' then
              // do nothing
          else
              Form1.Page2Combobox.items.add(AMemo.lines[i]);
    end;
    // Fill Keyboard Layouts
    if Processcmd = 'xkeyboard-layouts' then
    begin
          for i := 0 to AMemo.Lines.Count - 1 do
          if AMemo.lines[i] = '' then
              // do nothing
          else
              begin
                 Astring1:=copy(AMemo.lines[i],0,pos(' ',AMemo.lines[i])-1);
                 AString2:=copy(AMemo.lines[i],pos(' ',AMemo.lines[i])+1,length(AMemo.lines[i]));
                 Form1.Page2Layoutlist.items.add(trim(Astring2) + ' (' + Astring1 + ')');
              end;
    end;
    //Clean up;
    AProcess1.Free;
    AStringlist.Free;
    AMemo.Free;
  end;
end;

Ergebnis ist nun wie folgt:

Screenshot

Nächste Aufgabe ist aus:

markieren

Code:

crh            uz: Crimean Tatar (Turkish Q)
crh_f          uz: Crimean Tatar (Turkish F)
crh_alt        uz: Crimean Tatar (Turkish Alt-Q)
kr104           kr: 101/104 key Compatible

uz: finden und folgende Ausgabe hinzubekommen:

markieren

Code:

Crimean Tatar (Turkish F) [crh_f]
Crimean Tatar (Turkish Alt-Q) [crh_alt]

Ist doch genau das gleiche Strickmuster.
Hauptsache das erste Blank ist auch wirklich der Trenner.

Gruß
K-H

Ok Ich hab nun folgenden Code zusammengebaut:

zusammenfalten · markieren

Delphi-Quellcode:

// Fill Keyboard Variants
    if Processcmd = 'xkeyboard-variants' then
    begin
          Form1.Page2Variantlist.clear;
          Form1.Page2Variantlist.items.add('[None]');
          for i := 0 to AMemo.Lines.Count - 1 do
          if AMemo.lines[i] = '' then
              // do nothing
          else
              if pos(Processvar,AMemo.lines[i]) <> 0 then
              begin
                 Astring1:=copy(AMemo.lines[i],0,pos(' ',AMemo.lines[i])-1);
                 AString2:=copy(AMemo.lines[i],pos(' ',AMemo.lines[i])+1,length(AMemo.lines[i]));
                 AString2:=StringReplace(AString2,Processvar+' ','',[rfReplaceAll]);
                 Form1.Page2Variantlist.items.add(trim(Astring2) + ' [' + Astring1 + ']');
              end;
    end;

Den ich wie folgt aufrufe:

markieren

Delphi-Quellcode:

procedure TForm1.Page2LayoutListClick(Sender: TObject);
begin
          //Fill Keyboard Variants
          Processcmd:='xkeyboard-variants';
          Processvar:= Page2LayoutList.Items.Strings[Page2LayoutList.ItemIndex];
          Processvar:= copy(Processvar,pos('[',Processvar)+1,length(Processvar));
          Processvar:= StringReplace(Processvar,']',':',[rfReplaceAll]);
          Processandwait(Processcmd);
end;

Es funktioniert zwar aber es dauert ewig bis die Anzeige da ist. Die Liste die er durchgeht ist ca. 350 Zeilen lang. Es währe besser die Liste schon zu haben und nur diese durchzugehen. Mal sehen wie ich das hinbekommen. Ich denk ich hab schon was im Kopf ...

Wenn ich das richtig sehe, dann liegen Deine Rohdaten irgendwo auf dem form. Wie wäre es sie in einer Stringlist oder in Strings, unter zu bringen; das ist in der Verarbeiung um einiges schneller.

Gruß
K-H

Nun hab ichs endlich. Hier die Snippes:

Liste erstellen:

Aufruf bei Programmstart

markieren

Delphi-Quellcode:

  //Get Keyboard Variants
  AMemoVariants := TMemo.Create(Form1);
  Processcmd:='xkeyboard-variants';
  Processandwait(Processcmd);

Der ganze Process

zusammenfalten · markieren

Delphi-Quellcode:

//Function ProccessAndWait
procedure Processandwait(Executable : String);
var
  AProcess1: TProcess;
  AStringList: TStringList;
  AMemo: TMemo;
  Result, AString1, AString2 : String;
  i : integer;

begin
  AStringList := TStringList.Create;
  AMemo := TMemo.Create(Form1);
  Result:=' ';
  try
  AProcess1 := TProcess.Create(nil);
  AProcess1.CommandLine := Executable;
  AProcess1.Options := AProcess1.Options+ [poUsePipes];

 {Execute}
  AProcess1.Execute;
  {Wait to finish}
  while AProcess1.running = true do
  begin
       AStringList.LoadFromStream(AProcess1.Output);
       // Fill Keyboard Variants
       if Processcmd = 'xkeyboard-variants' then
       begin
         AMemoVariants.Lines.add(Astringlist.text);
       end
       else
         AMemo.lines.add(Astringlist.text);
  end;
  finally
    // Fill Keyboard Models
    if Processcmd = 'xkeyboard-models' then
    begin
          for i := 0 to AMemo.Lines.Count - 1 do
          if AMemo.lines[i] = '' then
              // do nothing
          else
              Form1.Page2Combobox.items.add(AMemo.lines[i]);
    end;
    // Fill Keyboard Layouts
    if Processcmd = 'xkeyboard-layouts' then
    begin
          Form1.Page2Layoutlist.clear;
          for i := 0 to AMemo.Lines.Count - 1 do
          if AMemo.lines[i] = '' then
              // do nothing
          else
              begin
                 Astring1:=copy(AMemo.lines[i],0,pos(' ',AMemo.lines[i])-1);
                 AString2:=copy(AMemo.lines[i],pos(' ',AMemo.lines[i])+1,length(AMemo.lines[i]));
                 Form1.Page2Layoutlist.items.add(trim(Astring2) + ' [' + Astring1 + ']');
              end;
    end;
    //Clean up;
    AProcess1.Free;
    AStringlist.Free;
    AMemo.Free;
  end;
end;

Aufruf im Programm

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Page2LayoutListClick(Sender: TObject);
var
  AString1, AString2 : String;
  i : Integer;
begin
          //Fill Keyboard Variants
          Processvar:= Page2LayoutList.Items.Strings[Page2LayoutList.ItemIndex];
          Processvar:= copy(Processvar,pos('[',Processvar)+1,length(Processvar));
          Processvar:= StringReplace(Processvar,']',':',[rfReplaceAll]);
          Form1.Page2Variantlist.clear;
          Form1.Page2Variantlist.items.add('[None]');
          for i := 0 to AMemoVariants.Lines.Count - 1 do
          if AMemoVariants.lines[i] = '' then
              // do nothing
          else
              if pos(Processvar,AMemoVariants.lines[i]) <> 0 then
              begin
                 Astring1:=copy(AMemoVariants.lines[i],0,pos(' ',AMemoVariants.lines[i])-1);
                 AString2:=copy(AMemoVariants.lines[i],pos(' ',AMemoVariants.lines[i])+1,length(AMemoVariants.lines[i]));
                 AString2:=StringReplace(AString2,Processvar+' ','',[rfReplaceAll]);
                 Form1.Page2Variantlist.items.add(trim(Astring2) + ' [' + Astring1 + ']');
              end;
end;