如何在 Excel VBA 中解析完整字符串并拆分为多个字符串？

Question

我需要 Excel VBA 方面的帮助。我有需要从一个字符串中拆分成几个数据的情况。现在有了特定的分隔符，条件只是一个关键字。

我得到的完整字符串数据的例子是这样的：

/*ORDER FORM*/
Name: Randy
Full Address: Unknown Street 123 ABC
Phone:0246854612
Order: 1x G Action Figure
1x Y Action Figure
2x Z Action Figure

/*Fill Bank and Amount of Transfer*/
Bank: ABC
Total: 2000

/*If you Reseller, Fill Data below*/
Sender:
SenderPhone:

/*Thank you for your Order*/

并且，从该数据中，我需要将多个数据发送到多个单元格或变量中。例如，如果我想得到这个：

var Name = "Randy"

var address = "Unknown Street 123 ABC"

var phone = "0246854612" {Text format}

var Bank = "ABC"

var amount = 2000

var item1 = "G Action Figure"

var qty1 = 1 {from 1x G Action Figure}

var item2 = "Y Action Figure"

var qty2 = 1

var item3 = "Z Action Figure"

var qty3 = 2

我怎样才能做到这一点。

非常感谢

Answer 1

数据是否总是以相同的顺序出现并且总是有相同的行数？您可以使用回车符拆分整个字符串。

MySplit = Split(MyString,VbCrLf)

然后将数组的每一部分分配给一个变量。

Name = MySplit(0)
Address = MySplit(1)
Phone = MySplit(2)
'...etc...