vbscript中的语句区分大小写（如何用VB或vbscript编程查找文本中的数字，并相加）

本文目录

• 如何用VB或vbscript编程查找文本中的数字，并相加
• 若要利用表单提交大数据量的数据，则应采用 提交方法，表单提交后的数据处理程序由表单的 属性指定
• 请教excel高手啊！有没有办法（公式或者函数），在一段文字里，取没有书名号、双引号、冒号的句子出来

如何用VB或vbscript编程查找文本中的数字，并相加

用正则 "\d+元“
这里有篇文章专门讲正则的
***隐藏网址***
如果你想直接用的话， 就等一下， 我给你写一个
以VB6为例，首先在菜单栏找到 工程-引用
引用 Microsoft VBScript Regular Expression 5.5
在窗口上加入一个按钮Command1
贴入如下代码
Function RegExpTest(patrn, strng) ’此函数是我自己写的正则提取函数 ,用于使用正则表达式
’第一个参数为正则串，第二个参数为被提取的完整字符串，返回值是一个数组
Dim regEx, Match, Matches ’建立变量。
Set regEx = New RegExp ’建立正则表达式。
regEx.Pattern = patrn ’设置模式。
regEx.IgnoreCase = True ’设置是否区分字符大小写。
regEx.Global = True ’设置全局可用性。
’msgbox strng
Set Matches = regEx.Execute(strng) ’执行搜索。
num = 0
For Each Match In Matches ’遍历匹配集合。
’RetStr = RetStr & Match.Value & vbcrlf
num = num + 1
Next
Dim arr()
ReDim arr(0)
If num 《》 0 Then
ReDim arr(num - 1)
For i = 0 To num - 1 ’遍历匹配集合。
arr(i) = Matches(i)
Next
End If
RegExpTest = arr
End Function
Private Sub Command1_Click()
Dim str As String, tmpstr As String, AllPrice As Double
Open App.Path & "\1.txt" For Input As #1 ’1.txt可更改为你存放数据的文件
Do While Not EOF(1)
Line Input #1, str
tmpstr = RegExpTest("\d+元", str)(0) ’此句用于提取 ***元
If tmpstr 《》 "" Then
AllPrice = AllPrice + CInt(Left(tmpstr, Len(tmpstr) - 1)) ’此句将***元中的 元 字去掉，转换为整数，加到总价中
End If
Loop
Close #1
MsgBox "总价为：" & AllPrice & "元"
End Sub

若要利用表单提交大数据量的数据，则应采用 提交方法，表单提交后的数据处理程序由表单的 属性指定

别是最后一问，好像有点奇怪，如何用Sql语句返回一个记录集的字段数？我都不明白！一下答案仅供参考啊！
一、单项选择题：（每空2分，共30分）
1．在编写ASP动态网页时，通常使用的脚本语言是（ A ）。
A. VBScript或JavaScript B. C# C. VB D. VB.net
2．若要获得名为form1的表单中文本框架user的值，以下方法正确的是（ D ）。
A. username= form1. user B. username=document. form1. user
B. username=document. user.value D. username=document. form1. user.value
3．以下标记中，可用来产生滚动文字或图片的是（ B ）。
A．《scroll》 B. 《marquee》 C. 《textarea》 D. 《iframe》
4．以下标记符中，用于设置页面标题的是（ A ）。
A. 《title》 B. 《caption》 C. 《head》 D. 《html》
5．若要设置网页的背景图像为bg.jpg，以下用法中正确的是（ A ）。
A. 《body background=bg.jpg》 B. 《body bground=bg.jpg》
C. 《body image=bg.jpg》 D. 《body bgcolor=bg.jpg》
6．在静态网页中嵌入ASP代码时，为了与HTML标记符区分开来，这部分代码应使用（ A ）符号将其括起来。
A. 《%...%》 B. 《 ?... ?》 C. 《.../》 D. 《#...#》
7．ASP动态网页中的ASP代码是由（ B ）负责解释执行的。
A. 客户端浏览器 B. IIS Web服务器 C. 服务器端浏览器 D. HTML解释器
8．在ASP提供的内置对象中，利用（ B ）对象的write方法，可实现从Web服务器向客户端浏览器输出内容。
A. Request B. Response C. Server D. Session
9．服务器端要获得客户端所提交的表单数据，应使用（ B ）对象来实现。
A. Response B. Request C. Server D. Session
10. 记录集对象创建后为使其生效，应使用记录集对象的（ A ）方法来打开记录集。
A．open B. execute C. close D.openrecordset
11. 若要将记录集指针定位到记录集的最后一条记录，则可使用（ D ）方法来实现。
A．movefirst B. movenext C. moveprevious D. movelast
12．若要将虚拟路径转换为真实的物理路径，以下语句中正确的是（D ）。
A．Response.mappath(虚拟路径) B. Request.mappath(虚拟路径)
C. Server.URLEncode(虚拟路径) D. Server.mappath(虚拟路径)
13．若要创建一个对于访问网站的所有用户都有效的变量flag，以下方法中正确的是（ C ）。
A．Session(“flag”)=0 B. Session(flag)=0
C. Application(“flag”)=0 D. Application(flag)=0
14．在服务器端，若要将页面导航到index.asp，应使用Response对象的（ C ）方法。
A．href B. Transfer C. Redirect D. flush
15．以下连接对象的创建方法，正确的是（ D ）。
A．conn=CreateObject(“ADODB.Connection”)
B. conn=Server.CreateObject(“ADODB.Connection”)
C. Set conn= Server.CreateObject(ADODB.Connection)
D. Set conn= Server.CreateObject(“ADODB.Connection”)
二、多选题（每题3分，共30分）
1. 下面哪些标记是用于HTML文件的头部的（ ABD ）
A.《Title》 B.《Meta》 C.《Embed》 D.《Base》
E.《Frame》 F.《Bgsound》 G.《Form》 H.《Pre》
2. 要获得记录集rs中，当前记录的“用户名”字段的值，该字段的顺序号为2，以下用法中，不正确的是（ AEG ）。
A．fdvalue=rs(2) B. fdvalue=rs.fields(“2”) C. fdvalue=rs.fields(2)
D. fdvalue=rs.fields(“用户名”) E. fdvalue=rs.fields(“用户名”).value
F. fdvalue=rs(用户名) G. fdvalue=rs(“用户名”)
3. 以下标记符中，没有对应的结束标记的是（BEGH ）。
A. 《body》 B. 《br》 C. 《html》 D. 《title》 E. 《img》 F. 《a》
G. 《input》 H. 《link》
4．若表单提交时采用的是Get方式，则服务器端要获得表彰所提交的数据，可采用（ BC ）来实现。
A. Request.Form(“表单域名”) B. Request.QueryString(“表单域名”)
C. Request(“表单域名”) D. Request.QueryString(表单域名)
E. Request.Form(表单域名) F. Request(表单域名)
5．服务器向客户端输出“注册成功”，以下语句中能实现该操作要求的是（ CD ）。
A．Response.write 注册成功 B. Response.write(注册成功)
C．Response.write(“注册成功”) D. Response.write “注册成功”
6. 下面的HTML语句中，可以实现将文字颜色设置成黑色的是（ AB ）
A.《FONT Color=Black》 B.《FONT Color=”#000000”》
C.《FONT Color=”000000”》 D.《 FONT Color=”FFFFFF”》
7．以下对ASP的描述，正确的是（ ABCD ）
A．ASP是一种Web编程语言 B. ASP页面运行于服务器端
C．ASP默认的脚本编程语言是VBScript，但也可使用其他的脚本语言
D．ASP除了可使用内置的对象外，也可根据需要创建其他对象，但所创建的对象必须在服务器上注册
8．以下对象哪些属于ASP内置的对象（ ABDEG ）
A．Request B. Response C. RecordSet D. Server E. Session
F. Connection H. Command G. Application
9．在VBScript中，字符串连接可使用的运算符有（ AD ）。
A. + B. - C. $ D. &
10．在以下事件中，属于浏览器自身产生的事件有（ AC ）。
A．Load B. Submit C. UnLoad D. MouseOver
三、填空题（每空1分，共15分）
1．判断记录指针是否到了记录集的末尾的属性是（ EOF ），向下移动指针，可调用记录集对象的（ MoveNext ）方法来实现。
2．关闭连接并彻底释放所占用的系统资源，应调用连接对象的（ Close ）方法，并使用（ Set ）语句来实现。
3．为了建立与数据库的连接，必须调用连接对象的（ Connection ）方法，连接建立后，可利用连接对象的（ Execute ）方法来执行SQL语句。
4．表单对象的名称由（ name ）属性设定；数据提交方式由（ method ）属性来指定；若要提交大数据量的数据，则应采用（ post ）方法；表单提交后的数据处理程序由（ action ）属性指定。
5．若要获得当前记录集的记录条数，可使用（ recordset ）对象的（ recordcount ）属性来实现。另外，也可通过执行SQL语句（ select count(数据名) from 数据表 ）来获得表记录的总数，此时SQL语句执行后，所返回的记录集有（ rs.count(0) ）条记录，该记录有（ ）个字段。
四、判断题：（每题1分，共10分）
1．SQL语句不区分大小写，而VBScript语句则区分大小写。（ F ）
2．利用SQL的delete语句可删除一个表或索引。（T ）
3．利用Application对象存储变量，可创建作用域跨页或跨用户的变量。（T ）
4．Session对象所存储的变量，在当前用户所请求的每个页面中均有效。（ F ）
5、HTML文件存储在任何目录下都可以正常浏览到，而ASP文件只有存储在网站的虚拟目录或主目录下才能正常浏览到。（ T ）
6、表单使用Post方法传递数据，则接收页面可用Request.Querysting(“表单对象名称”)获取表单数据。( F )
7、在SQL语句中，用“%”表示一个任意字符。( T )
8．在JavaScript中，内置的对象在使用时必须创建它的实例。（ T ）
9. 要筛选出成绩表中数学成绩在80~90分之间(含80和90分)，可用“Select * From 成绩表 where 数学 Between 80 To 90”语句。( X )
10．在浏览器中通过“查看”菜单下的“源文件”项，可查看ASP网页的真实源代码。（ F ）
五、程序填空：（每空3分，共15分）
（请按要求在相应位置填写合适的语句，或写出语句的作用）
《%
Set newconn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("MyDatabase.mdb") ‘该语句作用：将数据库虚拟路径转换为物理路径，并且赋值到Dbpath上_______________________
newconn.Open "provider=Microsoft.jet.oledb.4.0;data source=" & DBPath
SQLcmd = "select * from STOCK"
Set RS = newconn.Execute(SQLcmd)
%》
《table align="center"》
《tr bgcolor="aqua"》
《%For i = 0 To RS.Fields.Count - 1%》
《th》《%=RS(i).Name%》
《%Next%》
《%DO While _not rs.eof_______________ %》 《!--填语句：当指针没有指向文件尾的时候进行循环--》
《tr bgcolor="yellow"》
《%For i = 0 To RS.Fields.Count - 1%》
《td》《%=RS(i)%》 ‘该语句作用：___循环输出当前计数___________________________
《%Next%》
《%
RS.MoveNext ‘该语句作用：____移动记录集指针到下一条____________________
Loop
RS.Close
newconn .colse______________ ‘关闭数据库连接对象
%》
《/table》

请教excel高手啊！有没有办法（公式或者函数），在一段文字里，取没有书名号、双引号、冒号的句子出来

Sub RegTest()
’定义正则表达式对象
Dim oRegExp As Object
’定义匹配字符串集合对象
Dim oMatches As Object
Dim m As Variant, t As Variant
t = ""
’创建正则表达式
’定义要执行正则查找的文本变量
Dim sText As String
sText = Range("a1")
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
’设置是否匹配所有的符合项，True表示匹配所有, False表示仅匹配第一个符合项
.Global = True
’设置是否区分大小写，True表示不区分大小写, False表示区分大小写
.IgnoreCase = True
’设置要查找的字符模式
.Pattern = "+\。{1}"
’判断是否可以找到匹配的字符，若可以则返回True
’ MsgBox .Test(sText)
’对字符串执行正则查找，返回所有的查找值的集合，若未找到，则为空
Set oMatches = .Execute(sText)
For Each m In oMatches
t = t + m
MsgBox m
MsgBox t
Next
Range("b1") = t
’把字符串中用正则找到的所有匹配字符替换为其它字符
’ MsgBox .Replace(sText, "$1")
End With
Set oRegExp = Nothing
Set oMatches = Nothing
End Sub