主题：字符串的查找匹配问题

这样？

if gs.contains("xxxx") then

    code

end if

Dim m As Integer
Dim gs1,g As String
Dim gs As String ="lkijdhyjekloesmufpamhndmnidmokmnbukasmahdikduPlkadlajflasjfl"
Do While gs.length>0
    gs1 =left(gs,4)
    m = gs.length
    gs= gs.Replace(gs1,"")

    g = g & gs1 & ","
Loop

Dim s As String = "okmn"    '文本框输入的内容 e.form.controls("textbox1").text
For n As Integer = 0 To g.trim(",").split(",").length -1
    If g.trim(",").split(",")(n) = s
        output.show("ok")
        Exit For
    End If
Next