تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد جلب جزء من نص
#11
(25-07-17, 04:46 AM)أبو نوره كتب : اخي ابو روضه

جرب كده
PHP كود :
Dim wc As New WebClient
Dim sourceString 
As String wc.DownloadString("https://pastebin.com/raw/fK79BjW7")

Dim s As String Regex.Match(sourceString"(?<=""access_token"":"").+?(?="")").Value

MsgBox
(s


الله يسعدك ويمن عليك بالزيادة فى العلم اخى العزيز ابو نوره...

والله فرحتنى لان الموضوع ده بقالو كتير جدا محيرنى وكنت بصراحة مكسوف اساله..
فجزاك الله خيرى الدارين....
ممكن لو وقتك يسمح شرح بسيط للكود لآفهمه ؟ وطبعا لو وقتك لا يسمح والله عادى جدا
ومش هازعل بالعكس♥
فعلا نجح تمام
الرد }}}
تم الشكر بواسطة: أبو نوره
#12
تحت امرك  ♥

PHP كود :
Dim wc As New WebClient
Dim sourceString 
As String wc.DownloadString("https://pastebin.com/raw/fK79BjW7"
ده اكيد واضح بالنسبه لك وهو انه يعمل دونلود للنص ويحط النص في المتغير sourceString

PHP كود :
Dim s As String Regex.Match(sourceString"(?<=""access_token"":"").+?(?="")").Value 
افتكر ده اللي انت عاوز شرح ليه
الكود ده يستخدم RegularExpressions ودي مكتبة شرحها يحتاج دورة من عدة دروس
لكن فيه موضوع هنا يشرحه اسمه [مقال] شرح التعابير القياسية Regex
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة
#13
الأخ أبو روضه

أولا : لا حياء في العلم ....


لو ألقيت نظرة سريعة علي التكست ستلاحظ انه تكست تفصيل و مبني بطريقة بسيطة و اعتقد نه تم بناؤه باستخدام StringBuilder
و غالبا هذا التكست أساسه عبارة عن كلاس له مدخلات جميعها String

و هو مقسم علي التوالي الي مجموعة تكست هي
session_key
UId
secret
access_token
machine_id
confirmed
identifier

و تم الفصل بينهم جميعا باستخدام Char هو ","

ثم بعد ذلك تم الفصل بين كل تكست منهم باستخدام Char هو ":"

اي انك التكست مقسم الي مصفوفة تكست عبارة عن سبعة اجزاء
و كل تكست في المصفوفة عبارة عن مصفوفة اخري صغيرة من جزئين

يمكنك استخدام الدالة التالية للحصول علي كل String تريده

الدالة تقوم بفصل التكست الي مصفوفات

PHP كود :
   Private Function GetString(As Stringindex As Integer) As String
        Dim bool 
As Integer 0
        Dim result 
As String ""
 
       Dim item As String ""
 
       If Not String.IsNullOrEmpty(valueThen
            s
.TrimStart("{")
 
           s.TrimEnd("}")
 
           Dim values value.Split(",")
 
           item += values(index)
 
           Dim itemStrings As String() = item.Split(":"c)
 
           result += itemStrings(1)
 
           bool bool 1
        End 
If

 
       If bool 0 AndAlso Not String.IsNullOrEmpty(resultThen
            Return result
        End 
If
 
       Return Nothing
    End 
Function 

للحصول علي access_token مثلا وهي ترتيبها لثالث تقريبا
استخدم الدالة بالشكل التالي

PHP كود :
       Dim wc As New WebClient
        Dim s 
As String wc.DownloadString("https://pastebin.com/raw/fK79BjW7")
Dim token As String GetString(s3


فعليا الافضل لك بناء كلاس يقرأ التكست و يفصله الي مجموعة Property هي علي التوالي كالأتي

PHP كود :
   Public ReadOnly Property SessionKey As String
     
    Public ReadOnly Property ID 
As String
   
    Public ReadOnly Property Secret 
As String
      
    Public ReadOnly Property AccessToken 
As String
 
    Public ReadOnly Property MachineID 
As String
  
    Public ReadOnly Property Confirmed 
As String
    
    Public ReadOnly Property Identifier 
As String
     
أخيرا
طبعا لو انت من قام ببناء الملف فإن الأمور ستكون أسهل قليلا
خاصة ان معظم التكست التي سيتم استردادها من الملف هي تكست تم تشفيرها غاليا
Retired
الرد }}}
تم الشكر بواسطة: ابو روضة
#14
(25-07-17, 12:15 PM)silverlight كتب : الأخ أبو روضه

أولا : لا حياء في العلم ....


لو ألقيت نظرة سريعة علي التكست ستلاحظ انه تكست تفصيل و مبني بطريقة بسيطة و اعتقد نه تم بناؤه باستخدام StringBuilder
و غالبا هذا التكست أساسه عبارة عن كلاس له مدخلات جميعها String

و هو مقسم علي التوالي الي مجموعة تكست هي
session_key
UId
secret
access_token
machine_id
confirmed
identifier

و تم الفصل بينهم جميعا باستخدام Char هو ","

ثم بعد ذلك تم الفصل بين كل تكست منهم باستخدام Char هو ":"

اي انك التكست مقسم الي مصفوفة تكست عبارة عن سبعة اجزاء
و كل تكست في المصفوفة عبارة عن مصفوفة اخري صغيرة من جزئين

يمكنك استخدام الدالة التالية للحصول علي كل String تريده

الدالة تقوم بفصل التكست الي مصفوفات

PHP كود :
   Private Function GetString(As Stringindex As Integer) As String
        Dim bool 
As Integer 0
        Dim result 
As String ""
 
       Dim item As String ""
 
       If Not String.IsNullOrEmpty(valueThen
            s
.TrimStart("{")
 
           s.TrimEnd("}")
 
           Dim values value.Split(",")
 
           item += values(index)
 
           Dim itemStrings As String() = item.Split(":"c)
 
           result += itemStrings(1)
 
           bool bool 1
        End 
If

 
       If bool 0 AndAlso Not String.IsNullOrEmpty(resultThen
            Return result
        End 
If
 
       Return Nothing
    End 
Function 

للحصول علي access_token مثلا وهي ترتيبها لثالث تقريبا
استخدم الدالة بالشكل التالي

PHP كود :
       Dim wc As New WebClient
        Dim s 
As String wc.DownloadString("https://pastebin.com/raw/fK79BjW7")
Dim token As String GetString(s3


فعليا الافضل لك بناء كلاس يقرأ التكست و يفصله الي مجموعة Property هي علي التوالي كالأتي

PHP كود :
   Public ReadOnly Property SessionKey As String
     
    Public ReadOnly Property ID 
As String
   
    Public ReadOnly Property Secret 
As String
      
    Public ReadOnly Property AccessToken 
As String
 
    Public ReadOnly Property MachineID 
As String
  
    Public ReadOnly Property Confirmed 
As String
    
    Public ReadOnly Property Identifier 
As String
     
أخيرا
طبعا لو انت من قام ببناء الملف فإن الأمور ستكون أسهل قليلا
خاصة ان معظم التكست التي سيتم استردادها من الملف هي تكست تم تشفيرها غاليا

الله يسعد قلبك اخى العزيز ويبارك بعمرك ويجزيك كل الخيرات على هذا التوضيح المبسط
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد طباعة تقرير ريبورت فيو مباشرة فور عرض التقرير mh66 1 557 22-03-25, 09:59 AM
آخر رد: mh66
  اريد كود لو سمحتم خالد كامل1 10 1,197 15-02-25, 02:15 PM
آخر رد: خالد كامل1
  اريد كود معين اثابكم الله خالد كامل1 1 456 04-02-25, 09:28 PM
آخر رد: aliday03
  اريد كود يحذف جميع سجلات جدول بقاعدة بيانات اكسس دفعه واحده khalidalwdi 2 633 18-11-24, 01:02 AM
آخر رد: rdxdz
  اريد جلب عدد محدد من السجلات من قاعدة بيانات اكسس الى الداتا قراد فيو يوجد مثال khalidalwdi 2 665 12-11-24, 12:19 PM
آخر رد: khalidalwdi
  [نقاش] اريد مسااعدة انا مبتدئة ف بحر غارق?? ..N 1 341 29-09-24, 11:16 PM
آخر رد: justforit
Exclamation [VB.NET] اريد كود لتصدير البيانات من DataGridView الى ملف Excel zazasami 1 494 04-08-24, 09:15 PM
آخر رد: mrfenix93
  اريد إحصاء مجموع التأخير والغياب للموظف أبووسم 2 441 31-07-24, 02:16 PM
آخر رد: أبووسم
  اريد طباعة الباركود من غير ظهور نافذة المعاينة new_programer 1 529 23-05-24, 03:55 AM
آخر رد: new_programer
  اريد اضافة حفظ PDF فى مسار على الهارد- مثال الاستاذ عبدالله الدوسري new_programer 1 514 28-04-24, 04:52 PM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: