VBA simple array question

[Scotaidh]

hi,

I would like to have a static array, then have a string in which the only permitted characters are elements in my array.

Here is an example of what I would like without using an array:

Sub makemeanarray()
Str = "AGCTHC"
 For i = 1 To Len(Str)
    If Mid(seq, i, 1) = "A" Then
        ElseIf Mid(Str, i, 1) = "C" Then
        ElseIf Mid(Str, i, 1) = "G" Then
        ElseIf Mid(Str, i, 1) = "T" Then
        Else: MsgBox "problemo you have an unpermitted character!"
    End If
 Next
End Sub

Thus the only permitted characters in the string are A, G, C or T anything else should flag an error message.

Thank you for looking.

 

[Leith Ross]

Hello Scotaidh,

Here is an alternate method using the Regular Expressions script. It is more flexible and offers more features than an array.

Function CheckCharacters(ByVal Text As String) As Boolean

     Dim RegExp As Object
     Dim T As Boolean

    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.IgnoreCase = False
    RegExp.Pattern = "[^AGTHC]+"

    CheckCharacters = Not RegExp.Test(Text)

End Function

Example:

  result = CheckCharacters("HAT")    'TRUE

  result = CheckCharacters("SAT")    'FALSE

 

[VoG]

Maybe like this

Sub makemeanarray()
Const Str As String = "AGCTHC"
Dim MyArray(1 To 10)
Dim i As Long
For i = 1 To Len(Str)
    If IsError(Application.Match(Mid(Str(i, 1), Array("A,G,C,T"), 0))) Then MyArray(i) = Mid(Str, i, 1)
Next i
End Sub

 

[shg]

I think you have an extra character and need a $ in the pattern, Leith:

Function ACGT(ByVal sInp As String) As Boolean
    With CreateObject("VBScript.RegExp")
        .IgnoreCase = False
        .Pattern = "^[[COLOR=red]ACGT[/COLOR]]+[COLOR=red]$[/COLOR]"
        ACGT = .Test(sInp)
    End With
End Function

 

[Scotaidh]

Thank you for your responses!

 

[Rick Rothstein]

hi,

I would like to have a static array, then have a string in which the only permitted characters are elements in my array.

Here is an example of what I would like without using an array:

Sub makemeanarray()
Str = "AGCTHC"
 For i = 1 To Len(Str)
    If Mid(seq, i, 1) = "A" Then
        ElseIf Mid(Str, i, 1) = "C" Then
        ElseIf Mid(Str, i, 1) = "G" Then
        ElseIf Mid(Str, i, 1) = "T" Then
        Else: MsgBox "problemo you have an unpermitted character!"
    End If
 Next
End Sub

Thus the only permitted characters in the string are A, G, C or T anything else should flag an error message.

Thank you for looking.

I would not use Str as a variable name since that is the name of a built-in function in VB, so I'll use MyStr in my example. You can use the Like operator to do your testing...

Sub ContainsACGT()
MyStr = "AGCTHC"
  If MyStr Like "*[!ACGT]*" Then
    MsgBox "problemo you have an unpermitted character!"
  Else
    MsgBox "good set of characters
  End If
End Sub

 

[shg]

If MyStr Like "*[!ACGT]*" Then

We have a winner ...