+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أرتب كلمات ملف نصي من ال a الى z ؟ (/showthread.php?tid=729)
الصفحات:
1
2
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - NOna - 24-03-2009
محتوى ملفي عباره عن كلمات (كل كلمه في سطر )
كيف أرتب هذه الكلمات من ال a الى z ؟
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - kachwahed - 25-03-2009
السلام عليكم
يمكن فتح الملف في مكون TListbox بواسطة الإجراء LoadFromFile، وضبط خاصية Sorted على القيمة True.
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - NOna - 25-03-2009
للتوضيح
عمل برنامج يقرأ الكلمات من ملف تكست ثم يرتب الكلمات ابجديا لتكتب في ملف تكست أخر ، إستخدام خاصيه الليست بوكس لا تساعدني في هذا العمل
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - TF6M - 25-03-2009
فقط أظف هده الدالة :
كود :
Procedure LoadFileS(FilePath : String);
Var List:TStringList;
Begin
List:=TStringList.Create;
List.LoadFromFile(FilePath);
List.Sorted:=True;
List.SaveToFile(FilePath);
List.Free;
End;يمكنك التعديل على مكان الحفظ فقط أنا عملتها تعدل على الملف في حد ذاته :
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFileS('1.txt');
end;كيف أرتب كلمات ملف نصي من ال a الى z ؟ - TF6M - 25-03-2009
لكن من الأحسن أن نقوم بالتحقق من نوع الملف (*.txt ليس بالضرورة تعني أنه نصي)
لذا نضيف دالة للتحقق من نوع الملف (ShellApi : Uses):
كود :
Function MrsGetFileType(const strFilename: string): string;
var
FileInfo: TSHFileInfo;
begin
FillChar(FileInfo, SizeOf(FileInfo), #0);
SHGetFileInfo(PChar(strFilename), 0, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME);
Result := FileInfo.szTypeName;
end;كود :
ShowMessage('File type is: ' + MrsGetFileType('1.txt'));و عليه يمكنك الأن العمل بكل حرية مع تغييرات بسيطة على الكود.
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - hanipino - 26-03-2009
او ... ?
PHP كود :
procedure Sor_Str(TSL: TStringList; S: string);
begin
TSL.LoadFromFile(S);
TSL.Sorted := True;
TSL.SaveToFile(S);
end;
PHP كود :
Sor_Str(TStringList.Create,'c:\a.txt');
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - TF6M - 26-03-2009
لكن أليس من الأحسن بما أنك أنشأء صنف تحريره ؟؟.
الهدف من الامر الإعتماد مباشرة من الصنف دون إستعمال المركبات.
بالتوفيق ,,
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - hanipino - 26-03-2009
كيف احرره ?
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - NOna - 26-03-2009
شكرا على تجابكم
يس للأسف البرنامج بيوقف عند (TSL.Sorted := True;
) وماأعرف ليش
جزاكم الله خيرا
كيف أرتب كلمات ملف نصي من ال a الى z ؟ - TF6M - 26-03-2009
السلام علكم
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var DataList : TStringList;
SFilePath : String;
begin
If Not PromptForFileName(SFilePath,'Text files (*.txt)|*.txt','','Select your project file','',False) Then Exit;
Try
DataList:=TStringList.Create;
DataList.LoadFromFile(SFilePath);
DataList.Sort;
DataList.SaveToFile(SFilePath);
Finally
DataList.Free;
End;بالتوفيق ,,