[أبو نوره]

مرحبا اخى

اذا استخدمت (Mid(StrSource, 9, 7 ستواجه مشكله لو نقص طول الرقم عن سبعه

الافضل تستخدم RegEx وهذه طريقتها

اضف المرجع التالى Microsoft VBScript Regular Expressions 5.5
وهذا تعديل الكود

PHP كود :

Private Sub cmdGetPrice_Click()

    cmdGetPrice.Enabled = False
    
    Dim StrSource As String
    StrSource = GetHTMLSource("http://www.goldsilverapps.com/gs/lp/v1/lp/1")
    
    'Reference: Microsoft VBScript Regular Expressions 5.5'
    
    Dim myRegExp As RegExp
    Set myRegExp = New RegExp
    myRegExp.Pattern = "(\d+\.?\d+)"
    Dim myMatches As MatchCollection
    Set myMatches = myRegExp.Execute(StrSource)
    If myMatches.Count > 0 Then
        lblPrice.Caption = myMatches(0).Value
    End If
    
    cmdGetPrice.Enabled = True
End Sub