كيف أقدر أقرأ Text كلمة كلمة وكل كلمة تطبع في سطر

[NOna]

[COLOR="Navy"][FONT="Comic Sans MS"]السلام عليكم


كيف أقدر أقرأ Textfile كلمة كلمة وكل كلمة تطبع في سطر
سمعت ان في (Procudure or method) تقدر تسوي هذا الشي أحد يفدر يساعدني

Note: I use Delphi version 2007
ـ تحباتي
NOna[/COLOR]

[hanipino]

السلام عليكم
على حسب ما فهمت.

PHP كود :

Function MotParMot(Str:String):String;
Const Cha = ' ';
var
  I,y:Integer;
  Mot:String;
  Sl:TStringList;
begin
  Y:=0; Result:='';
  Trim(Str);
  Str:=Str+Cha;
  Sl:=TStringList.Create;
  for I:= Y to length(Str)do
  if Str[i]in[Cha] then
   begin
    Mot:=Copy(Str,Y+1,I-Y);
    Sl.Add(Mot);
    Y:=I;
   end;
 Result:=Sl.CommaText;
 Sl.Free;
end; 


PHP كود :

LST1.Items.CommaText:=MotParMot(Edt1.Text); 


[mourad39]

الكود الذي وضعه الاخ hanipino صحيح لكن النص الذي يتم تحويله هو نص عادي String موجود في سطر واحد
يستحسن مراعات حتى النصوص متعددة الأسطر أكثر من سطر TstringList

[hanipino]

يستحسن مراعات حتى النصوص متعددة الأسطر أكثر من سطر TstringList

يعمل بشكل عادى مع النصوص متعددة الأسطر .
مثلا :

PHP كود :

Mmo1.Lines.LoadFromFile('C:\Mot.txt');
 LST1.Items.CommaText:=MotParMot(Mmo1.Text); 


باءضافة هذا الكود فى اعلى الدالة .. تتحسن نوعا ما المخرجات .

PHP كود :

for i:= 0 to length(Str) do
   Str:=StringReplace(Str, '  ', ' ', [rfReplaceAll]); 


[mourad39]

يعمل بشكل عادى مع النصوص متعددة الأسطر .

اخي العزيز هذا الكود لتجاهل الفراغين مع بعض و جعلها فراغا واحدا
لكن لنفترض أنه يوجد بين الكلمة و أخرى أكثر من فراغين إذن بقي المشكل قائم
و الحل لتعميم أكثر من فراغ هو كالتالي :
نضيف الكود التالي و هو

PHP كود :

if Mot <> '' then 
 Sl.Add(Mot); 


بدلا من

PHP كود :

Sl.Add(Mot); 


[hanipino]

لكن لنفترض أنه يوجد بين الكلمة و أخرى أكثر من فراغين إذن بقي المشكل قائم

فراغين او 3 او 4 ... لا يوجد اى مشكل .
بسبب ان الكود موجود فى عدة حلقات و بالتالى يقضى على كل الفراغات .
اخى mourad39



لا اعتقد انك جربت الكود ب هذه الاضافة

PHP كود :

if Mot <> '' then  
 Sl.Add(Mot); 


لان المخرجات كانت متدهورة .

[NOna]

أخي hanipino
أنا مبتدئة في الدلفي
حاولي في هذا الكود لكن ما اشتغل معي أنا عملت الأتي

PHP كود :

if not OpenDialog1.Execute then Exit;
  Memo1.Clear;
  AssignFile(myfile,OpenDialog1.FileName);
  Reset(MyFile);
    while not Eof(MyFile) do
     begin
     Readln(MyFile,Text1);
.
.
.
.

 end;
     CloseFile(MyFile);
end; 


[hanipino]

الله اعلم هذه هى احسن طريقة .

PHP كود :

ExtractStrings([' '],
                [' ',',','.'],
                Pchar(Memo1.Text),
                Memo2.Lines); 


دالة طايبة

[starideas]

أخي الكريم لقد حاولت تتطبيق هذا المثال ولكن لم اعرف اوزع الكود في مكانه
لكم جزيل الشكر

[hanipino]

وجود 2 ميموا و زر .
فى حدث الضغط على زر . اكتب الكود اعلاه .