返回列表 发新帖

[原创] 关于除法运算中,小数位取2位整数的脚本

[复制链接]
发表在  2014-2-8 19:49:23  | 显示全部楼层 | 阅读模式
如题,达到效果10/3=3.33,
count.vbs的内容
dim a,b,c
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("temp.txt") Then
objFSO.DeleteFile("temp.txt")
End If
a=InputBox("请输入数值",,"10")
b=InputBox("请输入数值",,"3")
c=a/b
wscript.echo c
set fso=createobject("scripting.FileSystemObject")
set file=fso.createtextfile("temp.txt",forwriting)
file.writeline(c)
file.close
set shell=createobject("wscript.shell")
shell.run "result.bat",1,true
result.bat的内容
@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
for /f "tokens=1,2 delims=." %%i in (temp.txt) do (
set two=%%j
set two=!two:~0,2!
set data=%%i.!two!
echo !data!
)
pause

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?马上加入

x

发表回复

您需要登录后才可以回帖 登录 | 马上加入

本版积分规则