[已解决]关于mid函数求解

mki999

    If InStr(1, strTemp, ",") Then           '  strTemp 是string型
        Mid(strTemp, InStr(1, strTemp, ",")) = "."    '这实现什么功能，没见过mid =什么的
    End If

最佳答案

月排行榜 / 总排行榜

zjdh

2015-10-11 15:02

你运行以下语句就明白啦
Sub test()
    strTemp = "123,45"
    If InStr(1, strTemp, ",") Then
        Mid(strTemp, InStr(1, strTemp, ",")) = "."
    End If
    MsgBox strTemp
End Sub
是将“逗号”替换为“点”

跳转到最佳答案楼层

zjdh

你运行以下语句就明白啦
Sub test()
    strTemp = "123,45"
    If InStr(1, strTemp, ",") Then
        Mid(strTemp, InStr(1, strTemp, ",")) = "."
    End If
    MsgBox strTemp
End Sub
是将“逗号”替换为“点”

金樽空对月

Mid(strTemp, InStr(1, strTemp, ",")) = "."   
这是MID的一种扩展用法，相当于把字符内的逗号替换成半角的句号。

mki999

zjdh 发表于 2015-10-11 15:02
你运行以下语句就明白啦
Sub test()
    strTemp = "123,45"

不如直接用replace（strtemp，",","."）

mki999

请教。
Private Function ConvertToString(number As Double) As String
    Dim strTemp As String
    strTemp = Format$(number, "0.000E+0")
    If InStr(1, strTemp, ",") Then
        Mid(strTemp, InStr(1, strTemp, ",")) = "."
    End If
    ConvertToString = strTemp     '最后这句什么意思？？？是把strTemp最为参数给                                                                                                ConvertToString（strTemp），但类型不匹配呀？
End Function

金樽空对月

mki999 发表于 2015-10-11 16:11
不如直接用replace（strtemp，",","."）

用法是不一样的，MID是可以有选择性的替换的，而REPLACE则是符合条件的全部替换。