vbs脚本里面，如何使原本属于字符串类型的数字格式，转变为数值型格式

答案:5 悬赏:0 手机版

解决时间 2021-03-20 20:36

提问者网友：那叫心脏的地方装的都是你
2021-03-19 20:48

最佳答案

五星知识达人网友：行路难
2021-03-19 22:05

字符串-->数值转换函数： Val
字符串-->整数类型转换函数：Cint

字符串-->长整型：Clng

全部回答

1楼网友：山君与见山
2021-03-20 01:15

val(str1)>val(str2) 返回TURE则证明str1>str2，FALSE则证明str1不大于str2

2楼网友：神的生死簿
2021-03-20 00:58

dim a,b
a="100"
b="80"
if csng(a)>csng(b) then msgbox ""

3楼网友：轻雾山林
2021-03-20 00:37

dim n1 as Long
if IsNumeric(str1) then n1=Clng(str1)
'如果确定是数值可以直接转，否则先判断是否为数字，然后转换成long，有空格会认为是字符串，可用Trim()

4楼网友：几近狂妄
2021-03-19 23:44

用int命令。比如你得到的值分别为str1，str2，那么这样写：
str1 = int(str1)
str2 = int(str2)
但是这样写，只适合获得的是整数，对于小数，运算后会去掉小数位。

还有一个方法比较合理，不会去掉小数，那就是在你想加前加一个0，这样：0+str1
下面给你一个例子：
Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set red = fso.OpenTextFile(CreateObject("wscript.shell").specialfolders("desktop") &"\123.txt",1)
str1 = 0 + red.ReadLine
red.close

Set res = fso.OpenTextFile(CreateObject("wscript.shell").specialfolders("desktop") &"\122.txt",1)
str2 = 0 + res.ReadLine
red.close

If str1 > str2 Then MsgBox str1 &">"& str2
If str1 < str2 Then MsgBox str1 &"<"& str2

其中，桌面123.txt里面的第一行存的是100，122.txt里面存的是80，最后比较的结果是100>80
希望对你有帮助。。。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息

vbs脚本里面， 如何使原本属于字符串类型的数字格式，转变为数值型格式

vbs脚本里面，如何使原本属于字符串类型的数字格式，转变为数值型格式