в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:55Z

1 версия

Новая страница

==Use Like to compare strings==



<source lang="vb">

Sub CompareStrings()
Dim strString1 As String
Dim strString2 As String

strString1 = "Microsoft"

If strString1 Like "Micr*" Then
Debug.Print "True"
End If

If strString1 Like "Mic*t" Then
Debug.Print "True"
End If

End Sub
</source>

==Wild Cards Used to Build Patterns with Like==



<source lang="vb">

Character Matches
* Zero or more characters
? Any single character
# Any single digit (0-9)
[list] Any single character in the specified list
[!list] Any single character not in the specified list

Sub str()
Dim str1 As String
str1 = "Exit"
result = (str1 Like "E*") "result holds False
result = (str2 Like "E*") "result holds True
result = (str2 Like "?x?*") "result holds True
result = (str1 Like "##") "result holds True
result = (str2 Like "[E,e]*") "result holds True
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/String Functions/Like - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия