VB 字符串转换问题

来源：百度知道 编辑：UC知道 时间：2024/06/12 05:58:11
窗体上有一个command1按钮 当点击以后在事件中 把data/a/0.548548.wav转换成0.548548 显示到text1上，中间的这个单精度是个不定值。其他都是定值，请问怎么编写代码？？？

Private Sub Command1_Click()
Dim Str As String
Dim Ln As Integer
Dim Lx As Integer
Dim Ly As Integer
Lx = 8
Str = Text1.Text
Ln = Len(Str)
Ly = Ln - 4
Text2.Text = Mid(Str, Lx, Ly - Lx + 1)

End Sub

可以把text1.text换成你需要获得的数据。

Private Sub Command1_Click()
Dim s, p1, p2
s = "data/a/0.548548.wav"
p1 = InStrRev(s, "/")
p2 = InStrRev(s, ".")
Text1 = Mid(s, p1 + 1, p2 - 1 - p1)
End Sub