我有以下字符串,我想在单词的基础上将其拆分。
细绳:
Your meaning <b>is unclear here</b>: please revise.
我想在<b>
标签的基础上分离字符串的数据
所以结果会像
Array[0] = "Your meaning ";
Array[1] = "is unclear here";
Array[2] = ": please revise.";
请提出建议。
南治!尽管不是代码编写服务等,但我很喜欢您的问题。您可以使用以下方法:
Option Explicit
Sub Remove()
Dim str_note As String
Dim str_arr() As String
Dim str_arr2() As String
Dim l_counter As Long
Dim l_counter2 As Long
str_note = "Your meaning <b>is unclear here</b>: please revise."
str_note = Replace(str_note, ">", "<")
Debug.Print str_note
str_arr = Split(str_note, "<")
For l_counter = 0 To UBound(str_arr)
If l_counter Mod 2 = 0 Then
If l_counter <> 0 Then l_counter2 = l_counter2 + 1
ReDim Preserve str_arr2(l_counter2)
str_arr2(l_counter2) = str_arr(l_counter)
End If
Next l_counter
End Sub
答案是str_arr2。尝试进一步阅读!
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句