String Parçalama

[PTT]

Merhaba,
Şöyle Bir Stringimiz olsun.
s:=('11 KAP 22 KG 33 ADET 44 VARİL 55 BİDON ');

Her Bir Brimini Kendi Labeline ayırmak istiyorum fakat tam yapamadım.

LblKap.Caption:='11';
LblKg.Caption:='22';
LblAdet.Caption:='33';
LblVaril.Caption:='44';
LblBidon.Caption:='55';

Kod: Tümünü seç

var
s:string;
yer,i:Integer;
begin
      s:=(''11 KAP 22 KG 33 ADET 44 VARİL 55 BİDON');
      aranan:='KAP';
      for i:=1 to 4 do
      begin
      yer:=pos(aranan,s);
          if yer>0 then begin  
              yer:=yer+length(aranan);
              s:=copy(s,yer,length(s)-yer);
              s:=trim(s);
              Mmo1.Lines.Add(aranan +' ' + s);
               aranan:='KG'; 
                ...
                ...
                ...
          end;
      end;

[SimaWB]

StringList kullanarak çok kolay bir şekilde string'inizi parçalayabilirsiniz:

Kod: Tümünü seç

sl := TStringList.Create;
try
  sl.LineBreak := ' ';//her boşlukta yeni satıra geçsin
  sl.Text := s;//sizin stringiniz
  //buradan sonra sl[Index] ile istediğiniz kısma ulaşabilirsiniz
  //sl[0] = 11
  //sl[1] = KAP
  //...
finally
  st.Free;
end;

[baypipox]

arkadaşım aşağıdaki linke bir göz at istesen, ordaki procedure mutlaka işine yarayacaktır.. Gelen Frame başına ve sonuna ilk önce boşluk ekle, sonra istediğin aralıkları belirle, işlem tmm olacaktır..

viewtopic.php?f=19&t=27479

Kod: Tümünü seç

S:='11 KAP 22 KG 33 ADET 44 VARİL 55 BİDON';
S:=' '+S+' '; 
Lkap.caption:=karakterarsi(S,' ',' ',1,2);
Lkg.caption:=karakterarsi(S,' ',' ',3,4);
Ladet.caption:=karakterarsi(S,' ',' ',5,6);
Lvaril.caption:=karakterarsi(S,' ',' ',7,8);
Lbidon.caption:=karakterarsi(S,' ',' ',9,10);

[dpcmsx]

Kod: Tümünü seç

s := '11 KAP 22 KG 33 ADET 44 VARİL  55 BİDON';
i := 0;

Repeat
  if (s[i+1] in ['0'..'9']) then Memo1.Lines.Add(Copy(s,i,2));
    i := i + 2 ;
  Until i > length(s);

s string içinde 5. item tek sayılı haneye denk geldiği için 1 aralık fazla bıraktım.

[PTT]

Sn. dpcmsx;
Stringdeki değerlerin hepsi 2 karakter olmadıgını belirtmeliyim. Yani şu şekilde de olabiliyor string. O zaman tam uyduramıyorum sizin methodu

s := '12 KAP 123 KG 1234 ADET 1234567 VARİL 123 BİDON';

yada

s := '1 KAP 123 KG 12 ADET 123456790 VARİL 123456 BİDON';

gibi..

[unicorn64]

fetch
(uses idGlobal)

[PTT]

İyi Akşamlar arkadaşlar
Belki daha pratik yolları vardır ama ben biraz basit yoldan şu şekilde çözümümü buldum.

Kod: Tümünü seç

procedure TForm1.btnTestClick(Sender: TObject);
var
  metin,aranan, oncesi, sonrasi:AnsiString;
  i, Kacincideger1, Kacincideger2,Kacincideger3,Kacincideger4, Kacincideger5:Integer;
begin
      metin:='199 KAP 22 KG 33 ADET 44 VARİL 55 BİDON';
      aranan:='KAP';

              Kacincideger1:=AnsiPos(aranan,metin);       //Aranan kaçıncı karakter
              //ShowMessage(IntToStr(Kacincideger1));
              oncesi:=AnsiLeftStr(metin,Kacincideger1-1); //Aranandan öncesi
              sonrasi:=AnsiMidStr(metin,Kacincideger1+1+Length(aranan),Length(metin)+Kacincideger1);   //  x karakterden sonraki x karakteri al

              //Aranandan sonrasını al
              Mmo1.Lines.Add(aranan +' = ' + oncesi);
          
             aranan:='KG';
              Kacincideger2:=AnsiPos(aranan,sonrasi);       //Aranan kaçıncı karakter   (Kalan sonrasından işlem yapılıyor)
              oncesi:=AnsiLeftStr(sonrasi,Kacincideger2-1); //Aranandan öncesi
              sonrasi:=AnsiMidStr(sonrasi,Kacincideger2+1+Length(aranan),Length(sonrasi)+Kacincideger2);    //  x karakterden sonraki x karakter
              Mmo1.Lines.Add(aranan +' = ' + oncesi);

              aranan:='ADET';
              Kacincideger3:=AnsiPos(aranan,sonrasi);       //Aranan kaçıncı karakter   (Kalan sonrasından işlem yapılıyor)
              oncesi:=AnsiLeftStr(sonrasi,Kacincideger3-1); //Aranandan öncesi
              sonrasi:=AnsiMidStr(sonrasi,Kacincideger3+1+Length(aranan),Length(sonrasi)+Kacincideger3);    //  x karakterden sonraki x karakter
              Mmo1.Lines.Add(aranan +' = ' + oncesi);

              aranan:='VARİL';
              Kacincideger4:=AnsiPos(aranan,sonrasi);       //Aranan kaçıncı karakter   (Kalan sonrasından işlem yapılıyor)
              oncesi:=AnsiLeftStr(sonrasi,Kacincideger4-1); //Aranandan öncesi
              sonrasi:=AnsiMidStr(sonrasi,Kacincideger4+1+Length(aranan),Length(sonrasi)+Kacincideger4);    //  x karakterden sonraki x karakter
              Mmo1.Lines.Add(aranan +' = ' + oncesi);


              aranan:='BİDON';
              Kacincideger5:=AnsiPos(aranan,sonrasi);       //Boşluk kaçıncı karakter   (Kalan sonrasından işlem yapılıyor)
              oncesi:=AnsiLeftStr(sonrasi,Kacincideger5-1); //Aranandan öncesi
              sonrasi:=AnsiMidStr(sonrasi,Kacincideger5+1+Length(aranan),Length(sonrasi)+Kacincideger5);    // x. karakterden sonraki x karakter
              Mmo1.Lines.Add(aranan +' = ' + oncesi);

end;

[orhancc]

Bunu biraz kurcala işine yarar

Kod: Tümünü seç

uses HTTPUtil;

procedure TForm22.Button1Click(Sender: TObject);
var
  LTokenizer: IStringTokenizer;
begin
  Memo1.Clear;
  LTokenizer := StringTokenizer(Edit1.Text, ‘ ‘);
  while LTokenizer.hasMoreTokens do
    Memo1.Lines.Add(LTokenizer.nextToken);
  end;

[PTT]

Teşekkür ederim forumda sizin bu methodunuzu görmüştüm
Üzerinde farklı şeyler denemiştim. Benim bulduğum yoldan daha pratik olduğu kesin