التعامل مع النصوص

[cargem]

هذا جزء من 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]

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]

سحب الموقع يأخد وقت كبير

ليس الموقع بأكمله، بل ملفات السورس فقط
وله خاصية التصدير (Export) لحفظه في مجلد دون ملفات SVN. المدرجة.

غير مفهوم

أدخل في CommaText النص الذي سيتم تفجيره بـ Delimiter
ثم اقرأ الناتج من كل سطر
انسخ الكود، ثم جرب وحاول...

[Agmcz]

السلام عليكم
ألم يفي المثال الدي وضعته بالغرض
أظن أنه أدا كانت list روابط يكفي استعمال IdURI

[cargem]

اخي رامي مثالك رائع
وانا نجحت في عمل برنامج
واحاول ان اجرب افكار اصدقائنا
تحياتي للجميع

اخي kachwahed انضر الى هذا البرنامج
المشكلة يسحب الموقع
كيف يمكن الاستفاده من خصائص البرنامج
وجعلها تعرض الروابط فقط دون تحميل
شيء اخر هل لديكم سورس كود لبرامج بنفس الهدف
Web Data Extractor v8.1

كود :

http://www.webextractor.com/download.htm