+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع النصوص (/showthread.php?tid=3185)
الصفحات:
1
2
التعامل مع النصوص - cargem - 13-06-2011
كيف اقطع هذا السطر
"htm";"http://exodus.googlecode.com/svn/trunk/docs/presence.html"
بحيث يكون هكذا
PHP كود :
1- Str1= /svn/trunk/docs/presence.html
2- Str2= /svn/trunk/docs/
PHP كود :
T :=0;
Sname := Dfile.Strings[33];
Bname :=Sname;
Sname := SearchAndReplace(Sname, '/', '\');
LenFname := Length(Sname);
for i := 1 to LenFname do
begin
nPos := Pos('\', Sname[i]);
if nPos > 0 then
begin // Length(OpenDialog1.FileName) - nPos Length(OpenDialog1.FileName)
T := T + nPos;
if T > 2 then
begin
swebF := Copy(Bname, i, LenFname - 1);
Break;
end ;
Delete(Sname, i, LenFname);
Insert('/', Sname, i);
nPos :=0;
end;
end;
التعامل مع النصوص - kachwahed - 13-06-2011
السلام عليكم
ابحث عن DelimitedText CommaText
http://www.delphibasics.co.uk/RTL.asp?Name=TStringList
اختر عنوان مناسب
بالتوفيق.
التعامل مع النصوص - Agmcz - 14-06-2011
السلام عليكم
PHP كود :
uses IdURI
function Filterdz(Url: string): string;
var
URI: TIdURI;
LS: TStringList;
begin
LS := TStringList.Create;
URI := TIdURI.Create(Url);
try
LS.Add(URI.Path + URI.Document);
LS.Add(URI.Path);
Result := LS.Text;
finally
LS.Free;
URI.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
LS, LS2: TStringList;
i: Integer;
Data, Result: string;
begin
LS := TStringList.Create;
LS2 := TStringList.Create;
LS.Text := Data;
begin
for i := 0 to LS.Count - 1 do
begin
LS2.Add(Filterdz(LS[i]));
end;
Result := LS2.Text;
end;
end;
التعامل مع النصوص - cargem - 14-06-2011
الاخ rami
الاداه هي عملية ارجاع الملفات المنزله الى المجلد ات حسب الرابط
PHP كود :
1- Str1= /svn/trunk/docs/presence.html
2- Str2= /svn/trunk/docs/
اولا نعمل فولدرات
ثانيا نقل الملفات الى الفلدرات
ارفقت لك الملف
التعامل مع النصوص - Agmcz - 14-06-2011
السلام عليكم
هل اجريت اختبار لما وضعت في رد سابق أم لا
أظن أنه يفي بالغرض
التعامل مع النصوص - cargem - 14-06-2011
سأحاول الان
التعامل مع النصوص - cargem - 14-06-2011
لقد في الكود ليتناسب مع المتطلبات
والنتيجة 100/100
اشكرك جدا اخي رامي
![[صورة: picture0001r.png]](http://img7.imageshack.us/img7/6813/picture0001r.png)
التعامل مع النصوص - cargem - 15-06-2011
اخي kachwahed هديه لك الموقع كامل هنا
كود :
http://www.mirrorcreator.com/files/MYE4HA1U/Delphi_-_Basics__ingles_.7z_linksالتعامل مع النصوص - أبو محمد اللحياني - 15-06-2011
تستطيع التقطيع والجمع بواسطة
الدالتين : Explode, implode
كود :
function Explode(ch: string; sep: string = ';'): TStringList;
var
p: integer;
begin
p := pos(sep, ch);
explode := TStringList.Create;
while p > 0 do begin
explode.Add(copy(ch, 1, p - 1));
if p <= length(ch) then ch := copy(ch, p + length(sep), length(ch));
p := pos(sep, ch);
end;
if length(ch) > 0 then explode.Add(ch);
end;
//------------------------------
function Implode(lst: TStringList; sep: string = ';'): string;
var
i: integer;
s: string;
begin
i := 0;
while i < lst.Count - 1 do begin
s := s + lst[i] + sep;
i := i + 1;
end;
if i < lst.Count then s := s + lst[i]; //Ne mets pas de séparateur sur le dernier élément
result := s;
end;كود :
http://forum.hardware.fr/hfr/Programmation/Delphi-Pascal/string-tokeniser-explode-sujet_21714_1.htmالتعامل مع النصوص - kachwahed - 15-06-2011
إقتباس :الدالتين : Explode, implodeالدالتين : Explode, implode شهيرتين في PHP
هناك دوما البديل في دلفي
في الرابط السابق أمثلة عن استخدام DelimitedText CommaText Delimiter QuoteChar مع StringReplace أيضا
كود :
http://www.delphibasics.co.uk/RTL.asp?Name=StringReplaceلا تحاول برمجة شيء موجود من الصفر
انظر حولك (مكتبات النصوص StrUtils وأنماط TStringList أو أخرى...)
إقتباس :اخي kachwahed هديه لكشكرا على هدية أيا كانت
وهذه لك:
كود :
http://portableapps.com/node/13470بالتوفيق.