请教：在textbox中取文本并分离的问题

Question

示例文本：天花板<上 中 下>天大中草药天花板，<新 旧>高手如<上 中 下>去要求分离为如下格式：上 中 下
新 旧
上 中 下

Answer 1

Split函数
      描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分：部分 描述 
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 
设置值compare参数的设置值如下：常数 值 描述 
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。 
vbBinaryCompare 0 执行二进制比较。 
vbTextCompare 1 执行文字比较。 
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。 

Answer 2

楼上这位帮试一下，分离时用split，没有达到相应的效果。顶一下！

Answer 3

循环字串
先找<再找 >能够配对，中间的字符就是要保留的
然后再找.......

Answer 4

a=split ( "天花板<上 中 下>天大中草药天花板，<新 旧>高手如<上 中 下>去","<")
a(0)="天花板"
a(1)="上 中 下>天大中草药天花板，"
a(2)="新 旧>高手如"
a(3)="上 中 下>去"
在分别处理数组中 含有">"

Answer 5

 Public Function a1()
a = Split("天花板<上 中 下>天大中草药天花板，<新 旧>高手如<上 中 下>去", "<")    For i = 0 To UBound(a)
        
        b = Split(a(i), ">")
        If UBound(b) > 0 Then
        Debug.Print b(0)
        End If
       Next End Function
  
Private Sub Form_Load()
a1
End Sub

Answer 6

Private Sub Command1_Click()
x = "天花板<上 中 下>天大中草药天花板，<新 旧>高手如<上 中 下>去"Do While InStr(x, "<") > 0
n = InStr(x, "<")
y = Mid(x, n + 1)m = InStr(y, ">")
t = Left(y, m - 1)
Print t
x = Mid(y, m + 1)
Loop答案（已测试）：
上 中 下
新 旧
上 中 下