تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف استخراج نص من كود جافا
#1
السلام عليكم كيف استخرج معين من هالكود
<script type="text/javascript">
s.prop1="xpt\x2fCustomer\x2faccount\x2fWelcome";
s.prop6="2NE67919GC577384B";
s.prop10="US";
s.prop20="1403113533";
s.prop25="My\x20Account\x20Overview";
s.prop35="in";
s.prop40="e78298b4dad6f";
s.prop50="en_US";
s.prop51="My\x20Account\x20Overview";
s.prop64="";
s.eVar5="US";
s.eVar7="personal\x3aunverified\x3aunrestricted";
s.eVar19="personal";
s.eVar25="My\x20Account\x20Overview";
s.eVar31="My\x20Account\x20Overview";
s.eVar50="wRrkbFuJ6Wpw5gz\x252bCfb7gobzQj0HzIEjJeSVODaijbK8y67Hy2aw0g\x253d\x253d\x5f146b0156ab0";
s.pageName="My\x20Account\x20Overview";
s.prop56="no";
s.prop18="";
s.prop16="";
s.prop34="PayPalCredit:Servicing:CO:NoTransactions";
</script>
<script type="text/javascript"><!--

بقوم بتحويل الصفحه لتكست واريد استخراج هالنص s.prop10="US";
US <<<<<<
الرد }}}}
تم الشكر بواسطة:
#2
كود :
<script type="text/javascript">
s.prop1="xpt\x2fCustomer\x2faccount\x2fWelcome";
s.prop6="2NE67919GC577384B";
s.prop10="US";
s.prop20="1403113533";
s.prop25="My\x20Account\x20Overview";
s.prop35="in";
s.prop40="e78298b4dad6f";
s.prop50="en_US";
s.prop51="My\x20Account\x20Overview";
s.prop64="";
s.eVar5="US";
s.eVar7="personal\x3aunverified\x3aunrestricted";
s.eVar19="personal";
s.eVar25="My\x20Account\x20Overview";
s.eVar31="My\x20Account\x20Overview";
s.eVar50="wRrkbFuJ6Wpw5gz\x252bCfb7gobzQj0HzIEjJeSVODaijbK8y67Hy2aw0g\x253d\x253d\x5f146b0​156ab0";
s.pageName="My\x20Account\x20Overview";
s.prop56="no";
s.prop18="";
s.prop16="";
s.prop34="PayPalCredit:Servicing:CO:NoTransactions";
</script>
<script type="text/javascript"><!--

كود :
s.prop10="US";
US <<<<<<
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
تفضل الكلاس
كود :
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        's.prop10="US";
        Dim str As String = "(s\.prop10=""US""?;)"
        Dim reg As New Regex(str)
        Dim ma As Match = reg.Match(TextBox1.Text)
        If ma.Success Then
            TextBox2.Text = ma.Value
        End If
    End Sub
End Class
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
هل رقم 10 ثابت؟
ان لم يكن ثابت فيمكنك التعديل على الباترن ليناسب المطلوب
كود :
[0-9]{1,}
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
(18-06-14, 10:53 PM)سعود كتب : هل رقم 10 ثابت؟
ان لم يكن ثابت فيمكنك التعديل على الباترن ليناسب المطلوب
كود :
[0-9]{1,}

رقم 10 ثابت لكن us المتغير يعنى ممكن تكون uk ue gb fr
انا تواصلت لكود دا
Dim doc As New HtmlAgilityPack.HtmlDocument()
doc.Load("33.html")
' Dim script = doc.DocumentNode.SelectSingleNode("//script[contains(text(), 'Blablabla')]").InnerHtml
For Each link As HtmlNode In doc.DocumentNode.SelectNodes("//script[@type='text/javascript']")
MsgBox(link.SelectNodes("//script[@type='text/javascript']")(0).InnerHtml)
Next
بس انا اريد استخرج النص اللى هو بيساو ى us
الثابت هو s.prop10= اريد النص اللى بيساوى اخى الفاضل ارجوك سعدنى واشكرك ع اهتمامك الله يكرمك
الرد }}}}
تم الشكر بواسطة:
#6
بعد التعديل
كود :
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        's.prop10="US";
        ' Dim str As String = "(s\.prop10=""US""?;)"
        Dim str As String = "(s\.prop10="")(US)(""?;)"

        Dim reg As New Regex(str)
        Dim ma As Match = reg.Match(TextBox1.Text)
        If ma.Success Then
            '  TextBox2.Text = ma.Value
            TextBox2.Text = ma.Groups(2).Value
        End If
    End Sub
End Class
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#7
Bug 
(18-06-14, 11:14 PM)سعود كتب : بعد التعديل
كود :
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        's.prop10="US";
        ' Dim str As String = "(s\.prop10=""US""?;)"
        Dim str As String = "(s\.prop10="")(US)(""?;)"

        Dim reg As New Regex(str)
        Dim ma As Match = reg.Match(TextBox1.Text)
        If ma.Success Then
            '  TextBox2.Text = ma.Value
            TextBox2.Text = ma.Groups(2).Value
        End If
    End Sub
End Class
اسف ولله تعبتك معى بس جرب تشيل US وتحط مثلا
FR فى التكست مش هيطلع حاجه وهيعمل خطا مينفعش تتعمل * ويدينى النص اليساوى اى ان كان؟ ومش عايز دى تظهر خالص s.prop10="US";
انا عاوز البلد بس
الرد }}}}
تم الشكر بواسطة:
#8
اسف عدل على الباترن ليكون هكذا
كود :
Dim str As String = "(s\.prop10="")([a-z-A-Z]{1,})(""?;)"
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: ابراهيم مراد
#9
(18-06-14, 11:40 PM)سعود كتب : اسف عدل على الباترن ليكون هكذا
كود :
Dim str As String = "(s\.prop10="")([a-z-A-Z]{1,})(""?;)"

الف شكر جزاك الله كل خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استخراج رقم السطر rabeh.ram 2 68 08-11-16, 12:18 AM
آخر رد: rabeh.ram
  [كود] اريد كود استخراج سورس موقع تحويل تلقائي sharo.azad 0 68 08-10-16, 03:10 PM
آخر رد: sharo.azad
  [سؤال] اريد كود استخراج كلمة من سورس كود موقع sharo.azad 3 106 07-10-16, 01:01 PM
آخر رد: sharo.azad
  استخراج واسبتدال Kian Tech 0 61 18-09-16, 12:40 AM
آخر رد: Kian Tech
  [سؤال] OCR استخراج الكتابة من الصور mohamed haroon 4 188 23-06-16, 05:10 AM
آخر رد: محمد كريّم
  [سؤال] هل من الممكن استخراج رقم من الصور VB.NET 1 200 06-04-16, 12:40 PM
آخر رد: ممدوح
  بخصوص استخراج كشف اكسل من داتا جريد freedoas 3 334 28-03-16, 01:12 AM
آخر رد: freedoas
  سؤال عن الريورس (كيفية استخراج ملف من نوع bitmap سعود 1 343 16-03-15, 12:42 AM
آخر رد: ameerah
  [سؤال] الى خبراء HtmlAgilityPack كيف استطيع استخراج جميع Form من صفحة html silverlord 0 317 24-02-15, 03:01 AM
آخر رد: silverlord
Bug مساعده فى استخراج نص من richhtextbox ابراهيم مراد 7 560 25-08-14, 11:22 PM
آخر رد: سعود

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم