تقييم الموضوع :
  • 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,})(""?;)"

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



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


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