怎么提取字符

如何提取字符
现在在list控件中有若干选项
比如
ppv1_11
pp2_33
PP3_44
P3_99
PP6_22
等等
怎样提取“_”前面的字符（但不包含最后一个数字），不重复，如提取出PPV,PP,P


[解决办法]
form1.list1数据照原文:
ppv1_11 
pp2_33 
PP3_44 
P3_99 
PP6_22 

下面的方法不用数组，减少数组循环查找重复费时。

暂时不是很明确楼主的目的，整了两套方案

1.

VB code

Private Sub Command1_Click()Dim ss$, s$(), i&ss = ","For i = 0 To Form1.List1.ListCount - 1     If 0 < InStr(Form1.List1.List(i), "_") Then        s = Split(Form1.List1.List(i), "_")        If 0 = InStr(UCase(ss), UCase("," & Left(s(0), Len(s(0)) - 1) & ",")) Then            ss = ss & Left(s(0), Len(s(0)) - 1) & "," '固定取消最后一位        End If     End IfNext iMsgBox Mid(ss, 2)End Sub
[解决办法]
了解一下Left$,Mid$()等函数的用法