vb 循环结构

[qq_44828337]

如何做到筛选text1文本框中输入的字母字符，并反序在text 2中存放？

[脆皮大雪糕]

    Dim i As Long
    Dim strtmp As String
    For i = 1 To Len(Text1.Text)
        If Mid(Text1.Text, i, 1) > "A" Then '这个筛选条件自己去写
            strtmp = Mid(Text1.Text, i, 1) & strtmp '反序
        End If
    Next
    Text2.Text = strtmp

[milaoshu1020]

除了正常比较,也可以用正则表达式:

dim reg
set reg = createobject("vbscript.regexp")
reg.global = true
reg.ignorecase = true
reg.multiline = false
reg.pattern = "[a-zA-Z]"

dim colMatches
set colMatches = reg.execute(Text1)

dim strTemp
strTemp = ""

dim objMatch
for each objMatch in colMatches
    strTemp = objMatch.value & strTemp
next

Text2 = strTemp