| | |
Using array like pattern matching?
![]() |
Hi,
You can use Like Operator or StrComp Function for Pattern Matching in Array Variable or any other Variable. You can compare the Values like below Given:
1) Bring the Array Values in loop and check the Value like this
IF a(I) LIKE "*a*" THEN
-----
-----
END IF
You can refer more about the Like Operator in
http://msdn.microsoft.com/en-us/libr...xw(VS.71).aspx
2) You can use StrComp Function like this
IF StrComp(a(I), "a") THEN
-----
-----
END IF
Shailaja
You can use Like Operator or StrComp Function for Pattern Matching in Array Variable or any other Variable. You can compare the Values like below Given:
1) Bring the Array Values in loop and check the Value like this
IF a(I) LIKE "*a*" THEN
-----
-----
END IF
You can refer more about the Like Operator in
http://msdn.microsoft.com/en-us/libr...xw(VS.71).aspx
2) You can use StrComp Function like this
IF StrComp(a(I), "a") THEN
-----
-----
END IF
Shailaja
hi,
You can do like below when using the variable instead of values.
IF a(0) like "*" & b & "*" THEN
-----------
-----------
END IF
Shailaja
You can do like below when using the variable instead of values.
IF a(0) like "*" & b & "*" THEN
-----------
-----------
END IF
Shailaja
•
•
Join Date: Jul 2008
Posts: 36
Reputation:
Solved Threads: 6
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click() Dim A(2) As String Dim B(4) As String A(0) = 3 A(1) = 2 A(2) = 67 B(0) = 89 B(1) = 3 B(2) = 2 B(3) = 67 B(4) = 99 If A(0) Like "*" & B & "*" Then MsgBox "ahoy" End If End Sub
It looks like ill have to use loops, because these is not working. And i don't need one value i need to find is one entire dimension of array in other. I am afraid loops will last too long.
Last edited by Teropod; Jul 18th, 2008 at 4:11 am.
hi,
Array can be used only by loops and that could be very if u understand wel.
Try the below coding and if you have any doubts in below codings you can ask me i will explain u in detail.
In Below coding, i had used nested loop (i.e). Loop is nothing but Loop is to make a rotation until it gets the end value. If it is Nested Loop then 2 loops used (i.e)
For i = 0 to 10 'Outer Loop
For j = 0 to 5 'Inner Loop
---------
Next
Next
Outer Loop have the value and comes to the inner loop. Then the inner loop starts the rotation until it getting the end value after that move to the outer loop and goes on until the outer loop ends. Simply we can say one element of outer loop compare with all element in the inner loop.
If u understand the loop concept clearly then only u can do anything in any language.
[QUOTE=Teropod;650258]
Shailaja
Array can be used only by loops and that could be very if u understand wel.
Try the below coding and if you have any doubts in below codings you can ask me i will explain u in detail.
In Below coding, i had used nested loop (i.e). Loop is nothing but Loop is to make a rotation until it gets the end value. If it is Nested Loop then 2 loops used (i.e)
For i = 0 to 10 'Outer Loop
For j = 0 to 5 'Inner Loop
---------
Next
Next
Outer Loop have the value and comes to the inner loop. Then the inner loop starts the rotation until it getting the end value after that move to the outer loop and goes on until the outer loop ends. Simply we can say one element of outer loop compare with all element in the inner loop.
If u understand the loop concept clearly then only u can do anything in any language.
[QUOTE=Teropod;650258]
Private Sub Command1_Click() Dim A(2) As String Dim B(4) As String Dim intI as Integer 'intI Variable for A() Dim intj as Integer 'intJ Variable for B() A(0) = 3 A(1) = 2 A(2) = 67 B(0) = 89 B(1) = 3 B(2) = 2 B(3) = 67 B(4) = 99 'Nested Loop For intI = 0 to Ubound(A) For intJ = 0 to Ubound(B) 'Loop works until the size of the B() Array If A(intI) Like "*" & B(intJ) & "*" Then 'A() compared with the all element in the B() MsgBox A(intI) End If Next Next End Sub
Shailaja
•
•
•
•
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click() Dim A(2) As String Dim B(4) As String A(0) = 3 A(1) = 2 A(2) = 67 B(0) = 89 B(1) = 3 B(2) = 2 B(3) = 67 B(4) = 99 If A(0) Like "*" & B & "*" Then MsgBox "ahoy" End If End Sub
It looks like ill have to use loops, because these is not working. And i don't need one value i need to find is one entire dimension of array in other. I am afraid loops will last too long.
Hi,
Try this one. I think this may be useful to u.
To Know more
http://www.vb6.us/tutorials/vb-strin...it-join-filter
Shailaja
Try this one. I think this may be useful to u.
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click() Dim A(2) As String Dim B(4) As String Dim C as String A(0) = 3 A(1) = 2 A(2) = 67 B(0) = 89 B(1) = 3 B(2) = 2 B(3) = 67 B(4) = 99 IF UBound(Filter(B, A(0), True, vbTextCompare)) >-1 THEN C=Filter(B, A(0), True, vbTextCompare) MsgBox C(0) End If End Sub
To Know more
http://www.vb6.us/tutorials/vb-strin...it-join-filter
Shailaja
![]() |
Similar Threads
- Binary File IO (C#)
- Problem with String Matching (C++)
- pass the value to the text box (JavaScript / DHTML / AJAX)
- preg_replace (PHP)
- code tags (DaniWeb Community Feedback)
- Javascript and Firefox ISSUES (JavaScript / DHTML / AJAX)
- Trying to creating an array from a text file (C++)
- Need help making simple random images (PHP)
- matching regular expressions (Java)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: sum up a fields
- Next Thread: How to leave NULL value in access database table in VB6
| Thread Tools | Search this Thread |
* 6 429 2007 access activex add age application basic beginner birth bmp calculator cd cells.find click client code college component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report save search sendbyte sites sort sql sql2008 sqlserver subroutine tags textbox time urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows





