string - 使用 vbscript 从字符串中获取双精度部分

Question

我想用 vbscript 创建一个条形码，它将从我公司的 erp 解码（我公司将 nubers 与 10000 分开。条形码应该有这种类型的外观：99XXXXXXXXXQQQQQQQQQQPPPPP 其中：X是我的条形码，Q是数量，P是价格。用连接我有：

Result = 99 & [sheet$.BARCODE] & right("00000000" & quantity*10000, 8) & right("00000" & VBScript1*10000,5)

现在 VBScript1 有这种风格，因为它在程序的其他地方使用：

VBScript1 = "PRICE: "& FormatCurrency([sheet$.TIMH SAKOYLAKI]/[sheet$.SAKOYLAKI TWN]*1.3*(Round((40*CDbl(zyg))/CDbl([sheet$.GR/40 TEM]))),2)

所以输出VBScript1就像Price: $0,40

现在我的问题是如何从字符串中只提取数字，然后将其乘以 10000，以便在上面使用它？

对于我的示例，我希望 Price:Price: $0,40用作04000条形码。

Answer 1

使用 $ 上的 Split() 获取（例如）“价格：$0,40”的数字部分，处理小数点逗号，在左侧填充：

>> s = "Price: $0,40"
>> p = CDbl(Replace(Split(s, "$")(1), ",", "."))
>> t = Right(String(5, "0") & p * 10000, 5)
>> WScript.Echo t
>>
04000
>>

Answer 2

就像 Marc B 说的那样，我试过了，效果很好，很简单：）

Result =[...]right("00000" & CDbl((Mid(VBScript1,7,7)))*10000,5)[...]