Question

VB代码，通过form1的text1内容代码，按Command1弹出form2即见所得？

form1有text1和Command1,另form2是按Command1弹出。目的就是通过form1的text1内容代码，按Command1弹出form2即见所得。
例：text1内容代码
[@aaa]
<a/@b> <b/@c>
form2即见所得就是：a b
a b之间空格
判断是否已经输入[@***],<*/@*>
就是在text1文本输入这些代码
[@***](*代表包括英文数字中文)
<***/@***> <***/@***>
输入了后，按钮Command1弹出form2窗体，窗体2显示的时候已经去掉了
哪些代码。只显示<***/@***>前面部分***。
例子：
[@你]
<我/@你> <他/@我>
显示效果：
我 他

Answer 1

Private Sub Command1_Click()
Dim s As String
Dim t As String
s = Text1.Text
Dim l As Long
Dim IGF As Boolean
Dim igs As String
igs = "<>/@" & vbCrLf
For l = 1 To Len(s)
If Mid(s, l, 1) = "[" Or Mid(s, l, 2) = "/@" Then
IGF = True
End If
If IGF = False Then
If InStr(igs, Mid(s, l, 1)) = 0 Then
t = t & Mid(s, l, 1)
End If
End If
If Mid(s, l, 1) = "]" Or Mid(s, l, 1) = ">" Then
IGF = False
End If
Next l
Form2.Show
Form2.Print t

End Sub