چطور تشخیص دادن @ در یک تکس اکس ؟

[maxtools]

با سلام

چطور می شه تشخیص داد که @ در یک تکس باکس وجود داره ؟

[ramzdar]

با استفاده از دستور Like
If Text1 Like "*@*" Then Print Text1

[saied_hacker]

نمی دونم منظورتونو درست فهمیدم یا نه ولی با این کد میشه تشخیص داد که ایا @ وجود داره یا نه
Dim i As Integer
Private Sub Command1_Click()

For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "@" Then
MsgBox "Ok"
End If
Next i

End Sub

با کمک دستور mid می تونی استرینگ ها رو به هر تعداد که بخای جدا کنی
i هم در دستور محل شروع جدا سازی رو مشخص می کنه و 1 هم تعداد حرفی رو که می خای جدا کنی

[_behnam_]

Dim i As Integer
Private Sub Command1_Click()

For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "@" Then
MsgBox "Ok"
End If
Next i

End Sub


چرا لقمه رو دور سرمون بچرخونیم و حلقه بزاریم وقتی که با یه خط میشه اینکارو انجام داد :لبخندساده:

If InStr(1, Text1.Text, "@", vbTextCompare) Then MsgBox "ok"

یا

If InStr(1, Text1.Text, "@", vbTextCompare) > 0 Then MsgBox "ok"

[محسن واژدی]

سلام
دستور Like استاندارد میباشد همانگونه که جناب ramzdar نیز در پست 2 اشاره فرمودند در درجه بعد نیز میتوان از دستور InStr نیز استفاده کرد که آقا بهنام در پست 4 فرمودند
اما برای زمانی که قصد تطابق چند کاراکتر را در یک متن داشته باشیم به عنوان نمونه قصد بررسی اینکه آیا .Com و @ هردو در متن است استفاده از Like بهینه تر میباشد

موفق باشید