qiaoliangih

Dim tangshui,gansu,touxi

tangshui=InputBox("瓶数")

gansu=InputBox("支数")

touxi=InputBox("次数")
if gansu = "0" then
end if 
if gansu = ">0" then 
WshShell.SendKeys ""&gansu&""

if touxi = "0" then
end if 
if touxi = ">0" then 
WshShell.SendKeys ""&touxi&""
复制代码

这样的结构可以实现吗？

qiaoliangih

5# batman
谢谢版主大大
我想问下如何用if判断值呢？

第一种药是必须有的，输入多少数值，就模拟键盘输入相应的数量
第二种药是非必须的，有人要，就输入相应数值，然后用模拟键盘输入相应的数量。要是不要这个，就输入0，就不调用模拟键盘。也就是不输入。
第三个是化验，有人要，就输入相应数值，然后用模拟键盘输入相应的数量。要是不要这个，就输入0，就不调用模拟键盘。也就是不输入。
复制代码

if gansu = "0" then
end if
if gansu = ">0" then
WshShell.SendKeys ""&gansu&""

if touxi = "0" then
end if
if touxi = ">0" then
WshShell.SendKeys ""&touxi&""

batman

还是用数组来处理吧，下面给个示例，楼主对照着修改罗

'假如有4种药，每种药有3种剂量，每种药有2种化验
Dim chufan(3, 2, 1), a, b, c, name, number, test
namearray = Array("头胞", "葡萄糖", "阿期匹林", "刺五加")
numberarray = Array("2ml", "4ml", "6ml")
testarray = Array("甲类", "乙类")
For a = 0 To 3
  name = name & a+1 & ":" & namearray(a) & " "
  For b = 0 To 2
    If a = 0 Then number = number & b+1 & ":" & numberarray(b) & " "
    For c = 0 To 1
      If a & b = "00" Then test = test & c+1 & ":" & testarray(c) & " "
      chufan(a, b, c) = namearray(a) & "-" & numberarray(b) & "-" & testarray(c)
    Next
  Next
Next
input = InputBox(name & vbcrlf & number & vbcrlf & test & vbcrlf & "请分别输入药品、剂量、化验的序号，中间请用-符号格开：")
inputsplit = Split(input, "-")
MsgBox chufan(inputsplit(0)-1, inputsplit(1)-1, inputsplit(2)-1)
复制代码

qiaoliangih

类似于这种

Dim name,sex,birth
name=InputBox("请输入姓名")
sex=InputBox("请输入姓别")
birth=InputBox("请输入出生日期")
Set fso=CreateObject("scripting.filesystemobject")
Set file=fso.createtextfile("" & name & ".txt",True)
file.Close
MsgBox name 
set fi=fso.opentextfile("" & name & ".txt",2) 
s="姓名:"&name&vbCrLf&"姓别:"&sex&vbCrLf&"出生日期:"&birth
fi.write  s 
fi.close 
复制代码

qiaoliangih

可否改用vbs来做判断？

冷玉公子

批处理不能调用按键的，不过你可以用批处理调用VBS的WshShell.SendKeys动作

如果你对批处理有了解过的话 就是连个命令就可以解决你的问题

用 Set /P = 命令等待输入值 然后用 IF 命令去判断这个值 然后调用相应的VBS即可

例如

@echo off
Echo 1 是我  2 是你
Set /P Var= 请输入值：
if "%Var%" == "1" goto :1
if "%Var%" == "2" goto :2
:1
Echo 是我
:2
Echo 是你
复制代码

就是这样的思路了