简单,思路:
1、将每行数据放到数组
2、把”:“作为分隔符拿到你想要的字符串
程序如下:
dim ArrTemp() as stringArrTemp=split(你的这堆字符,vbcrlf)dim i as intdim ArrTemp1() as stringfor i=0 to ubound(ArrTemp) ArrTemp1=split(ArrTemp(i),":") msgbox left(ArrTemp1(1),len(ArrTemp1(1))-1)next