我必须在字段中搜索一些字符串并执行计算。
比如我有这个字段100KSGD,
我必须得到 K,然后将 100 的值乘以 1000,所以我会得到 100,000SGD。
接下来是,我必须得到 SGD 并乘以 SGD 对 USD 的汇率。这就是我必须得到的价值。
我使用 Instr 来获取 K,如果字段中没有其他字符串,我能够执行计算。
这是我的代码:
If InStr(1 , OEMTEST_String$ , HasString_K$, 5) > 0 Then
Print "Searching for letter K in OEMTEST field..."
MsgBox("Letter K is found in OEMTEST field!")
Print "Converting OEMTEST field..."
'Replace All occurrences of K
tempPosition = InStr( 1, OEMTEST_String$, HasString_K$ )
If( ( Len( OEMTEST_String$ ) - Len( HasString_K$ ) ) + 1 = tempPosition ) Then
OEMnvar = Left( OEMTEST_String$, tempPosition - 1 )
MsgBox "The number value in OEMTEST field is " & OEMnvar
OEMnewvar = CDbl(OEMnvar) 'change nvar from string to double
OEMupdatedVar = CDbl(OEMnewvar * 1000) 'multiply the value by 1000
MsgBox "new value of OEMTEST is " & OEMupdatedvar 'check message box
'replace the value and save the document
Print "Saving converted value of OEMTEST field..."
Call note.ReplaceItemValue("OEMTEST", OEMupdatedVar)
Call note.Save(True, False)
End If
Else
Print "Letter K not found in OEMTEST field..."
End If
我怎样才能达到我需要的价值?我如何做一个嵌套的 Instr?
非常感谢!