تقييم الموضوع :
  • 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] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 37 13-10-18, 03:53 PM
آخر رد: mervandzz
  [VB.NET] استخراج regex mervandzz 2 76 08-10-18, 04:20 PM
آخر رد: عبدالله الدوسري
  [VB.NET] استخراج نسسبة الارباح حسب اسم المندوب فراس الغزي 16 434 12-09-18, 08:47 PM
آخر رد: elgokr
Star استخراج جميع الروابط ذات صلة من المواقع YousefOkasha 0 216 20-07-18, 03:35 AM
آخر رد: YousefOkasha
  استخراج عدد السنين من مجموع عدد الاشهر aftfm 19 469 29-06-18, 07:13 PM
آخر رد: elgokr
  [سؤال] حماية ملف الdll من استخراج الاكواد mohamed haroon 8 1,200 25-06-18, 12:52 PM
آخر رد: YousefOkasha
  [سؤال] OCR استخراج الكتابة من الصور mohamed haroon 5 845 20-06-18, 02:18 AM
آخر رد: YousefOkasha
  استخراج الملفات من ال Resources YousefOkasha 3 142 27-05-18, 01:03 AM
آخر رد: elgokr
  استخراج مجلد وملفات من داخل قرص ابو روضة 8 300 26-05-18, 07:36 PM
آخر رد: ابو روضة
  [Solved] - تغير أسماء الأعمدة عند استخراج البيانات الى excel Rabeea Qbaha 10 337 02-02-18, 12:49 AM
آخر رد: طالب برمجة

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


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