نوشته شده توسط
hackershz
والا من روی همون تست کردم جواب نداد یعنی کلمه ی welcome رو عوض کردم بازم نشد یعنی ارور میده اگه میشه رو این یه مثال بزنید ممنون میشم چون با عمل خیلی بهتر یاد میگیرم تا خواندن ممنونم
حق با جناب XXXXX_XXXXX است
متاسفانه در بدیهیات و مسائل ابتدایی از پایه مشکل دارید.یک فکری به حال خودتون بفرمایید.اینجوری برنامه نویس نمی شید ها.از ما گفتن.
Private Function ReturnFirstElementInstance(strDocument As String, strElement As String) As String
Dim strOpenElement As String
Dim strCloseElement As String
Dim intStartPos As Integer
Dim intElementLength As Integer
strOpenElement = "<" & strElement & ">"
strCloseElement = "</" & strElement & ">"
If InStr(strDocument, strOpenElement) > 0 Then
intStartPos = InStr(strDocument, strOpenElement) + Len(strOpenElement)
intElementLength = InStr(strDocument, strCloseElement) - intStartPos
ReturnFirstElementInstance = Mid$(strDocument, intStartPos, intElementLength)
End If
End Function
Private Sub Command1_Click()
Text1 = ReturnFirstElementInstance(RichTextBox1.Text, "welcome")
End Sub