INSTR with 5 condition

[sal21]

I have:

dim STRINGA as string

i need to intecept into this strong 5 condition.

actually i use OR statment, similar:

if instr(STRINGA,"1") OR instr(STRINGA,"9")instr(STRINGA,"b") ... Ecc

Short solution?

Tks

[HansV]

Five conditions isn't much, I'd simply write them out.
If you had many more, you could do something like this:

Code: Select all

Function Contains(STRINGA As String, CHARS As String) As Boolean
    Dim i As Long
    For i = 1 To Len(CHARS)
        If InStr(STRINGA, Mid(CHARS, i, 1)) Then
            Contains = True
            Exit Function
        End If
    Next i
End Function

Sub Test()
    Dim STRINGA As String
    STRINGA = "..."
    If Contains(STRINGA, "19bdgikqstwz=!@>") Then
        ' STRINGA contains at least one of the characters
    Else
        ' STRINGA contains none of the characters
    End If
End Sub

but for 5 characters that is overkill.

[snb]

Code: Select all

Sub M_snb()
   MsgBox [sum(find(mid("abcde",row(1:5),1),"abzwqcdefghijkl"))>0]
End Sub

[HansV]

Sal21 is working in VB6, as always, so an Excel formula will fail.

[SpeakEasy]

Could always use a Regular Expression ...

[sal21]

Could always use a Regular Expression ...

Tks bro....
But never used

[sal21]

Five conditions isn't much, I'd simply write them out.
If you had many more, you could do something like this:

Code: Select all

Function Contains(STRINGA As String, CHARS As String) As Boolean
    Dim i As Long
    For i = 1 To Len(CHARS)
        If InStr(STRINGA, Mid(CHARS, i, 1)) Then
            Contains = True
            Exit Function
        End If
    Next i
End Function

Sub Test()
    Dim STRINGA As String
    STRINGA = "..."
    If Contains(STRINGA, "19bdgikqstwz=!@>") Then
        ' STRINGA contains at least one of the characters
    Else
        ' STRINGA contains none of the characters
    End If
End Sub

but for 5 characters that is overkill.

HUMMMMM....
But my really prob is...

i put the value of STRINGA in to a Access table via sql and ADO.

if i insert with:

..

COMUNE = Split(RIGA, ";")(1)
COMUNE=Ucase(COMUNE)
...
other values
...

SQL = "INSERT INTO SAM_COMUNI (ISTATEXT, CF, CAP, COMUNE, PRFX, AGG) VALUES ('" & ISTAT & "', '" & CF & "', '" & CAP & "','" & Replace(COMUNE, "'", "''") & "', '" & PRFX & "','" & Date & "')"
CON.Execute (SQL)

Sorry but in string i just have this:

001001;Agliè;;A074;10011;0124;Torino

[HansV]

My guess is that VB6 cannot handle Unicode characters. But perhaps someone else has a workaround.

[sal21]

My guess is that VB6 cannot handle Unicode characters. But perhaps someone else has a workaround.

correct my post

[sal21]

Five conditions isn't much, I'd simply write them out.
If you had many more, you could do something like this:

Code: Select all

Function Contains(STRINGA As String, CHARS As String) As Boolean
    Dim i As Long
    For i = 1 To Len(CHARS)
        If InStr(STRINGA, Mid(CHARS, i, 1)) Then
            Contains = True
            Exit Function
        End If
    Next i
End Function

Sub Test()
    Dim STRINGA As String
    STRINGA = "..."
    If Contains(STRINGA, "19bdgikqstwz=!@>") Then
        ' STRINGA contains at least one of the characters
    Else
        ' STRINGA contains none of the characters
    End If
End Sub

but for 5 characters that is overkill.

HUMMMMM....
But my really prob is...

i put the value of STRINGA in to a Access table via sql and ADO.

if i insert with:

..

COMUNE = Split(RIGA, ";")(1)
COMUNE=Ucase(COMUNE)
...
other values
...

SQL = "INSERT INTO SAM_COMUNI (ISTATEXT, CF, CAP, COMUNE, PRFX, AGG) VALUES ('" & ISTAT & "', '" & CF & "', '" & CAP & "','" & Replace(COMUNE, "'", "''") & "', '" & PRFX & "','" & Date & "')"
CON.Execute (SQL)

Sorry but in string i just have this:

001001;Agliè;;A074;10011;0124;Torino

is a result of API REST output

[HansV]

I'm afraid I cannot help with that.

[sal21]

I'm afraid I cannot help with that.

to share the solution...

i call the api with:

Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")

change with:

Set Request = CreateObject("Microsoft.XMLHTTP")

and all work, perferct.


is a unicode prob, as you mentioned.

[HansV]

Thanks for the update.