如何在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...