MID 的小问题

Question

本帖最后由 qiwen15302 于 2011-09-15 17:44:58 编辑

Answer 1

              x = StrConv(MidB(StrConv("茵汤____________88.00", vbFromUnicode), 1, 16), vbUnicode) ' = "茵汤____________"
 x = x & vbCrLf & StrConv(MidB(StrConv("红烧海虎翅一位__288.00", vbFromUnicode), 1, 16), vbUnicode) ' = "红烧海虎翅一位__288.0"
Debug.Print x

Answer 2

Option Explicit
Dim int_Pos As Integer '读取第一个_ 的位置
Dim strMenu As String
Private Sub Command1_Click()
    Dim strP As String
    int_Pos = InStr(1, strMenu, "_", vbTextCompare)
    If int_Pos <= 1 Then Exit Sub
    strP = Mid(strMenu, 1, int_Pos - 1)
    Debug.Print strP
End SubPrivate Sub Form_Load()
    strMenu = "茵汤____________88.00"
End Sub