+- 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 - 15-06-2011
هذا جزء من list كيف تستطيع استخدام عمليات التفجير
ex/mplodeكود :
"htm";"http://exodus.googlecode.com/svn/trunk/COMGuiGenerator/"
"htm";"http://exodus.googlecode.com/svn/trunk/Exodus.bdsgroup"
"pas";"http://exodus.googlecode.com/svn/trunk/MemCheck.pas"
"pl";"http://exodus.googlecode.com/svn/trunk/build.pl"
"htm";"http://exodus.googlecode.com/svn/trunk/build.xml"
"htm";"http://exodus.googlecode.com/svn/trunk/docs/"
"htm";"http://exodus.googlecode.com/svn/trunk/exodus/"
"htm";"http://exodus.googlecode.com/svn/trunk/jopl/"
"htm";"http://exodus.googlecode.com/svn/trunk/jopl_tests/"
"htm";"http://exodus.googlecode.com/svn/trunk/plugin.xml"
"htm";"http://exodus.googlecode.com/svn/trunk/redist/"
"pl";"http://exodus.googlecode.com/svn/trunk/release.pl"
"htm";"http://exodus.googlecode.com/svn/trunk/restart.py"
"txt";"http://exodus.googlecode.com/svn/trunk/roadmap.txt"
"htm";"http://exodus.googlecode.com/svn/trunk/shutdown.py"
"htm";"http://exodus.googlecode.com/svn/trunk/sqlite/"
"pl";"http://exodus.googlecode.com/svn/trunk/stage.pl"التعامل مع النصوص - cargem - 15-06-2011
إقتباس :DelimitedText CommaText Delimiter QuoteCharغير مفهوم
PHP كود :
var
names : TStringList; // Define our string list variable
ageStr : String;
i : Integer;
begin
// Define a string list object, and point our variable at it
names := TStringList.Create;
// Now add some names to our list
names.CommaText := 'Neil=45, Brian=63, Jim=22';
// And now find Brian's age
ageStr := names.Values['Brian'];
// Display this value
ShowMessage('Brians age = '+ageStr);
// Now display all name and age pair values
for i := 0 to names.Count-1 do
begin
ShowMessage(names.Names[i]+' is '+names.ValueFromIndex[i]);
end;
// Free up the list object
names.Free;
end;
Brians age is 63
Neil is 45
Brian is 63
Jim is 22
PHP كود :
var
cars : TStringList; // Define our string list variable
i : Integer;
begin
// Define a string list object, and point our variable at it
cars := TStringList.Create;
// Now add some cars to our list - using the DelimitedText property
// with overriden control variables
cars.Delimiter := ' '; // Each list item will be blank separated
cars.QuoteChar := '|'; // And each item will be quoted with |'s
cars.DelimitedText := '|Honda Jazz| |Ford Mondeo| |Jaguar "E-type"|';
// Now display these cars
for i := 0 to cars.Count-1 do
ShowMessage(cars[i]); // cars[i] equates to cars.Strings[i]
// Free up the list object
cars.Free;
end;
Honda Jazz
Ford Mondeo
Jaguar "E-type"
PHP كود :
var
animals : TStringList; // Define our string list variable
i : Integer;
begin
// Define a string list object, and point our variable at it
animals := TStringList.Create;
// Now add some names to our list
animals.Add('Cat');
animals.Add('Mouse');
animals.Add('Giraffe');
// Now display these animals
for i := 0 to animals.Count-1 do
ShowMessage(animals[i]); // animals[i] equates to animals.Strings[i]
// Free up the list object
animals.Free;
end;
Cat
Mouse
Giraffe
سحب الموقع يأخد وقت كبير
على كل حال الف شكر
انت يكفينا ردك
لكن رد مع هدية
هذا كثير
التعامل مع النصوص - kachwahed - 15-06-2011
إقتباس :سحب الموقع يأخد وقت كبيرليس الموقع بأكمله، بل ملفات السورس فقط
وله خاصية التصدير (Export) لحفظه في مجلد دون ملفات SVN. المدرجة.
إقتباس :غير مفهومأدخل في CommaText النص الذي سيتم تفجيره بـ Delimiter
ثم اقرأ الناتج من كل سطر
انسخ الكود، ثم جرب وحاول...
التعامل مع النصوص - Agmcz - 16-06-2011
السلام عليكم
ألم يفي المثال الدي وضعته بالغرض
أظن أنه أدا كانت list روابط يكفي استعمال IdURI
التعامل مع النصوص - cargem - 16-06-2011
اخي رامي مثالك رائع
وانا نجحت في عمل برنامج
واحاول ان اجرب افكار اصدقائنا
تحياتي للجميع
اخي kachwahed انضر الى هذا البرنامج
المشكلة يسحب الموقع
كيف يمكن الاستفاده من خصائص البرنامج
وجعلها تعرض الروابط فقط دون تحميل
شيء اخر هل لديكم سورس كود لبرامج بنفس الهدف
Web Data Extractor v8.1
كود :
http://www.webextractor.com/download.htm