关于VB或ASP的函数

ASP如何调用定义函数~

Asp调用自定义函数有多种方式
第一、用Call 函数名（参数）
第二、函数名 参数
第三、仅限Function，用在表达式中。例如有一个名为abs的函数，a = abs(-7)

一、asp里面的函数返回值是不用申明类型的，因为ASP里的变量是万能变量。ASP自定义函数的格式：
<%
'----------------------------------------------
function myfunction(str1,str2)
dim str3 '变量申明都用dim
…
操作语句
…
myfunction=str3 '返回值（ASP返回值得方法和其他语言不同，不用return）
end function
'--------------------------------------------
%>

二、其他页面引用方法：
1.首先你要写一个函数文件function.asp：
<%
function function1(str1,str2)
……
end function

function function2()
……
end function

function function3()
……
end function

function function4()
……
end function
%>

2.在要引用的页面user.asp里用include file语句把这个文件包含进去：

<%
'开始引用
dim a,b,c
a=function1(b,c); '引用完成
%>

如果文本格式固定不会变可以用REPLACE把汉字全部去掉，再变成数组就方便使用了，以下为VBS的Replace用法

Replace
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。

Replace(expression, find, replacewith[, compare[, count[, start]]])
参数
expression
必选项。字符串表达式包含要替代的子字符串。
Find
必选项。被搜索的子字符串。
Replacewith
必选项。用于替换的子字符串。
Start
可选项。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用
count
可选项。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。
Compare
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。
设置
compare 参数可以有以下值：

常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。

返回值
Replace 返回以下值：

如果 Replace 返回
expression 为零长度 零长度字符串 ("")。
expression 为 Null 错误。
find 为零长度 expression 的副本。
replacewith 为零长度 expression 的副本，其中删除了所有由 find 参数指定的内容。
start > Len(expression) 零长度字符串。
count 为 0 expression 的副本。

说明
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。

下面的示例利用 Replace 函数返回字符串：

Dim MyString
MyString = Replace("XXpXXPXXp", "p", "Y") '二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", '文本比较从第三个字符开始。返回 "YXXYXXY"。3，, -1, 1)

你问题补充得倒让人迷糊了。
如果你是单纯的想取到41的话就用这个。

str=mid(str,instr(str,"41"),2)

就是先返回41在str串里边的位置，再从str的那个位置上取两个字符。

如果有其它说明的话，再找我。嘻嘻。

Private Sub Command1_Click()
bj = "受理41件，办结35件，即办件0件"
Dim a() As String
Dim s As String
If InStr(bj, ",") Then s = "," Else s = "，" '判断使用中文逗号还是英文逗号
a = Split(bj, s)
n = UBound(a)
ReDim Preserve a(n)
For i = 0 To n
If InStr(1, a(i), "受理") Then temp = a(i)
Next

Dim t As String
t = ""
For i = 1 To Len(temp)
b = Mid(temp, i, 1)
Select Case b
Case "0" To "9": t = t & b
End Select
Next

Print t
End Sub

用VB的instr函数获取字符出现位置，再用mid函数就完成了

用Mid函数啊

例如:
A = Val(Mid(bj, 3, 2))

---

迁安市18391499122： VB常用函数 - ？
中叔莲纳尔： 用的数字函数,如:Abs()、Val()、Int()、Rnd()、Sin() 用的字符函数,如:Len()、Instr()、Left()、right()、trim()、str() 常用的日期与时间函数,如:date()、time()、now()、year()、month()、day()

迁安市18391499122： vb中常用标准函数的意思? - ？
中叔莲纳尔： 1. p=ABS(X):取X的绝对值.2. p=Log(X):求X的自然对数.3. Y=Sgn(X):符号函数.说明: X>0时Y=1;X=0时 Y=0;X<0 时Y=-1.例: Response.write sgn(5) 输出: 14. Sin(x),Cos(x), Tan(x),Atn(x): 三角函数5. Ctype(x):类型转换:P=Cbool(x) 把X...

迁安市18391499122： asp中如何使用VB函数 - ？
中叔莲纳尔： 晕<br>asp里面不能直接使用vb函数的<br>你可以写成js的<br><script>alert(＂密码错误!＂)<&#47;script><br>如果写在asp里面就用response.write把这句写出来

迁安市18391499122： 我初学VB 、 谁能将一些基本常用函数发给我? - ？
中叔莲纳尔： Abs 函数 返回数的绝对值. And 运算符 执行两个表达式的逻辑连接. Array 函数 返回含一数组的 变体 . Asc 函数 返回字符串首字母的 ANSI 字符代码. 赋值运算符 (=) 给变量或属性赋值. Atn 函数 返回数的反正切值. 调用语句 将控制移...

迁安市18391499122： VB内部函数都有哪些?？
中叔莲纳尔： AscB(String As String) As Byte 返回字符串中第一个字节的值 例如:AscB(＂坦然＂)则返回102 AscW(String As String) As Integer 返回字符串中第一个字符的本机字符代码 (Unicode 或 ANSI) 例如:AscW(＂坦然＂)则返回22374 ChrW(...

迁安市18391499122： vb编程的代码和函数 - ？
中叔莲纳尔： 我自己整理了一些,不多,你看看吧.如果要有列子的再找我. (一)类型转换类函数1. CType(X) [格式]:P=CBool(X) ' 将X转换为“布尔”(Boolean)类型 P=CByte(X) ' 将X转换为“字节”(Byte)类型 P=CCur(X) ' 将X转换为“金额”(Currency)...

迁安市18391499122： 在VB中有哪些算术函数 - ？
中叔莲纳尔： 展开全部1、Abs() 返回数值表达式的绝对值.如:Abs(-3)=32、Int() 向下取整.如:Int(3.25)=3,Int(-3.25)=-43、Fix() 取整函数.如:Fix(3.25)=3,Fix(-3.25)=-34、Round([,]) 按指定位数四舍五入.如:Round(3.2553,1)=3.3,Round(3.754,0)...

迁安市18391499122： 求VB实用函数 - ？
中叔莲纳尔： VB实用函数 Time返回系统时钟的当前时间. Date返回系统时钟的当前日期. Now返回代表当前日期和时间的编码值.该函数经常用作其它系统时钟函数的参数. Hour(Time)返回指定时间的小时部分(0到23). Minute(Time)返...

迁安市18391499122： 计算机VB等级考试中经常要考到的函数有哪些?麻烦动动手指告诉一下 - ？
中叔莲纳尔： Abs(x) 绝对值 Abs(-50.3) 50.3 Fix(x) 取整(取参数的整数部分) Fix(-99.8) -99 Int(x) 取整(取小于或等于参数的最大整数) Int(-99.8) Int(99.8) -100 99 这个是最常用的函数了…… Rnd 随机产生0~1的单精度值 Int(6*Rnd)+1 1~6 要产生一个从Min到...

迁安市18391499122： VB里面的函数都是什么? - ？
中叔莲纳尔： VB里的函数分内部函数和外部函数两类.内部函数有数学函数和类型转换函数等.外部函数指user-defined function(用户自定义函数),即由用户创建的,可返回一个值的代码.用户自定义函数包括以 .PRG 扩展名保存的独立的程序,以及程序中的过程和函数.如果你的机器装有VISUAL STUDIO的MSDN参考文档资料,你可从中学习VB的各种函数及用法.祝成功.