[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程批处理在线视频分享
返回列表 发帖

[问题求助] vbs如何实现弹出对话框选择是否输出/写入内容到文本

本帖最后由 pcl_test 于 2017-1-9 06:52 编辑

vbs语言写入文件前增个选择就这么难?
刚来真不知道有vbs专版,  顺便请教一下这里的vbs语言大神 在下面一段脚本中,我想加入,确定,和取消功能,当确定时,会继续执行下面脚本,当取消时就在当前退出不执行下面脚本了
我现在在文件写入前的一处加入了一段是否继续脚本,
  1. For Each file In WSH.Arguments
  2.         Set oexec = ws.Exec("%comspec% /c ""certutil -hashfile """ & file & """ MD5""")
  3.         hash = replace(Split(oexec.StdOut.ReadAll, vbCrLf)(1), " ", "")
  4.         If dict.Exists(hash) Then
  5.             value = Split(dict.Item(hash), "|")
  6.             dict.Item(hash) = value(0) &vbCrLf & fso.GetFileName(file) & "|" & (CInt(value(1))+1)
  7.         Else
  8.             dict.Add hash, "记录中的文件【" & fso.GetFileName(file) & "】|1"
  9.             Return = MsgBox("是否继续", vbOKCancel, "Title")    <------ 注释:我就是想在这里加入选择是否写入文件,但点击取消时为什么仍然会写入文件呢? 点击确定时又不能批量确定
  10.             fso.OpenTextFile(result, 8).WriteLine hash & " " & fso.GetFileName(file)
  11.         End If
  12.     Next
复制代码
这是我的贴子,有兴趣的请移步
http://www.bathome.net/thread-42869-1-1.html

If 语句
  1. Return = MsgBox("是否继续", vbQuestion+vbOKCancel, "Title")
  2. If Return = vbOk Then
  3. Msgbox "你选择了OK!"
  4. Else
  5. Msgbox "你没有选择OK!"
  6. End If
复制代码
1

评分人数

『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

TOP

回复 2# yu2n


    但点击取消时为什么仍然会写入文件呢? 点击确定时又不能批量确定  几百个文件时要1次1次的点击几百次  这不科学吧

TOP

本帖最后由 Nsqs 于 2017-1-8 20:53 编辑
  1. Return = MsgBox("是否继续", vbOKCancel, "Title")
  2. if return=1 then
  3.     For Each file In WSH.Arguments
  4.         Set oexec = ws.Exec("%comspec% /c ""certutil -hashfile """ & file & """ MD5""")
  5.         hash = replace(Split(oexec.StdOut.ReadAll, vbCrLf)(1), " ", "")
  6.         If dict.Exists(hash) Then
  7.             value = Split(dict.Item(hash), "|")
  8.             dict.Item(hash) = value(0) &vbCrLf & fso.GetFileName(file) & "|" & (CInt(value(1))+1)
  9.         Else
  10.             dict.Add hash, "记录中的文件【" & fso.GetFileName(file) & "】|1"
  11.             fso.OpenTextFile(result, 8).WriteLine hash & " " & fso.GetFileName(file)
  12.         End If
  13.     Next
  14. end if
复制代码
题外话:标题说的真难听,自己不会还要怪柜台
1

评分人数

TOP

你们家茅坑真难用。拉不出屎都。
提问的智慧
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

趁早转C#吧 (逃
综合型编程论坛
Writing Code That Nobody Else Can Read.

TOP

本帖最后由 win.BAT 于 2017-1-9 10:52 编辑

在Linux这些需求我都可以完成  毕竟有7年使用体验,但这些文件是在windows环境下产生的  也要在这环境下完成这些需求   所以才来到这里

来了后,才知道这论坛大牛真的牛   能摘叶飞花**   上顺下顺一气跑通   代码言语文采,无人能及   如果真的和这里的大牛学习得时间长了,说不定有一天我也会像这里的大牛那样的厉害(甚至更厉害),想想如果真有这可能,真不敢想像啊,那时的我会不会像这里的大牛这么的牛B哄哄的!其实自己偷偷的反思一下,我将来是不是也会像这里的大牛这么的牛哄哄
1

评分人数

TOP

本帖最后由 win.BAT 于 2017-1-9 13:25 编辑

谢谢回复代码 及 提出意见思路的

TOP

回复 8# win.BAT

TOP

回复 10# Nsqs


    这只能说明你7年只学到了皮毛,根本没有认真学。只要精通一门随便百度一下楼楼的问题也是很简单。不需要基础自己就能修改。

TOP

回复 8# win.BAT


    说的很好, 你可以向 CrLf 学习

TOP

好水的帖子……
Change the world by program!
My CodePage:https://code.csdn.net/qq_23693343

TOP

返回列表