السلام عليكم كيف استخرج معين من هالكود
<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 <<<<<<

تفضل الكلاس

هل رقم 10 ثابت؟
ان لم يكن ثابت فيمكنك التعديل على الباترن ليناسب المطلوب

(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= اريد النص اللى بيساوى اخى الفاضل ارجوك سعدنى واشكرك ع اهتمامك الله يكرمك

بعد التعديل

(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";
انا عاوز البلد بس

اسف عدل على الباترن ليكون هكذا

(18-06-14, 11:40 PM)سعود كتب : اسف عدل على الباترن ليكون هكذا

كود :

Dim str As String = "(s\.prop10="")([a-z-A-Z]{1,})(""?;)"

الف شكر جزاك الله كل خير