vbs 通讯录

原创 2018年04月17日 10:35:41
Dim NewName '名字
Dim NewNum  '号码
Dim FindIn '输入号码
Dim strLine,strLineCase,strNewFile 
Dim Ch '选择操作
Set fso = CreateObject("Scripting.FileSystemObject")


Sub LoadFile
  If Not fso.FileExists("d:\Telephone.txt") Then
'MsgBox "cant find Telephone.txt"
fso.CreateTextFile("d:\Telephone.txt")
End If
End Sub
 
 '添加号码
Sub AddNumber
NewName=InputBox("Please Enter Your Name:","电话簿")
NewNum=InputBox("Please Enter Your Phonenumber:","电话簿")
MsgBox "phonebook:"&NewName&":"&NewNum&",please clik ok"
fso.openTextFile("d:\telephone.txt",8).writeline(NewName&":"&NewNum)
fso.openTextFile("d:\telephone.txt",8).close
End Sub


'查询号码
Sub FindData
Findin=InputBox("name","电话簿")
Findout=Len(Findin)
Set FindText=fso.OpenTextFile("d:\Telephone.txt",1)
FindNum=""
Do While Not FindText.AtEndOfLine
FindTemp=FindText.Read(Findout)
If Findin=FindTemp Then  '如果输入的姓名和通讯录中姓名相同的话
FindNum=FindText.ReadLine
Else
FindText.SkipLine
End If
Loop

FindText.Close

If FindNum="" Then
MsgBox "cant find peoplle"
Else
MsgBox  Findin&FindNum
End If
End Sub




'删除号码
Sub DeleteData
Findin=InputBox("name","电话簿")

Set fso=CreateObject("Scripting.FileSystemObject") 
Set FindText=fso.OpenTextFile("d:\telephone.txt",1) 
Do Until FindText.AtEndOfStream 
strLine=FindText.Readline 
If instr(strLine,Findin) or instr(strLineCase,Findin) or Findin="" then 
strNewFile=strNewFile 
Else 
strNewFile=strNewFile&strLine&vbcrlf
End If 
msgbox "delete complete"
Loop 

FindText.Close 
Set fso=CreateObject("Scripting.FileSystemObject") 
Set FindText=fso.OpenTextFile("d:\telephone.txt",2) 
FindText.Write strNewFile 
FindText.Close 
End Sub


LoadFile
'选择操作
Do 
Ch=InputBox("what will you do?please input number.1:ADD,2:Find,3:delete,4:exit","电话簿")


Select Case Ch
Case 1: 
AddNumber
Case 2:
FindData
Case 3:
DeleteData
Case 4:
Wscript.Quit
Case Else 
msgbox "enter wrong "
End Select


Loop

vbs 编程实例vbs 编程实例

  • 2011年06月12日 23:31
  • 98KB
  • 下载

VBS基础篇 - 运算符(6) - 逻辑运算符

And 运算符 —— 对两个表达式进行逻辑“与”运算 Result = expression1 And expression2 参数 Result:任意数值变量。 expression1:任意...
  • hai673580326
  • hai673580326
  • 2014-08-26 11:28:40
  • 481

VBS中inlcude另一个vbs脚本的方法

VBS中inlcude另一个vbs脚本的方法54powerman Test program for the IncludeFile and ReadConfigFile functions. Auth...
  • 54powerman
  • 54powerman
  • 2007-08-12 17:49:00
  • 2603

vbs常用例子

1.返回当前的目录 Dim objfso '创建FileSystemObject对象 Set objfso = createobject("Scripting.FileSystemObject") '...
  • icanlove
  • icanlove
  • 2015-01-09 10:57:28
  • 1495

VBS 字符串操作

1. Split(expression, delimiter, count, compare) 返回基于 0 的一维数组,其中包含指定数目的子字符串。 expression:必选。字符串表达式,包...
  • allenguo123
  • allenguo123
  • 2014-10-11 20:15:27
  • 716

【VBS教程1】:基本输入输出

关于输入输出就只需要掌握两个函数即可inputbox 和 msgbox 关于inputbox:(输入函数,返回输入的值) inputbox(“”,”“,”“) 有三个参数,第一个参数提醒用,第二个参...
  • qq_23100787
  • qq_23100787
  • 2015-10-04 00:59:23
  • 1391

vb 调用 VBS

vb.net调用 vbsfile= chr(34)+ app.path+ "\GB.vbs"+chr(34) shell "wscript.exe " + vbsfile ...
  • a771948524
  • a771948524
  • 2013-05-05 21:17:29
  • 2019

VBS后台运行程序

VBS后台运行程序,程序隐藏! 代码: Set shell = Wscript.createobject("wscript.shell") a = shell.run ("d:\1.vbs",0) ...
  • qiu5213173
  • qiu5213173
  • 2015-05-30 11:34:18
  • 2576

新手问题:vbs连接数据库

我用以下js连接正常 var conn = Server.CreateObject("ADODB.Connection"); var myconn = "Provider=SQLNCLI;Se...
  • peili4094
  • peili4094
  • 2017-01-08 16:42:04
  • 518

Script_Notepad++如何调试VBS脚本

一、NotePad++安装 1. 下载并安装Notepad++,安装步骤一路Next就可以了。 二、NppExec插件安装和配置 1. 下载并解压 NppExec_041_dll...
  • jiguanghoverli
  • jiguanghoverli
  • 2012-08-02 11:20:42
  • 3450
收藏助手
不良信息举报
您举报文章:vbs 通讯录
举报原因:
原因补充:

(最多只允许输入30个字)