`
- 浏览:
35603 次
-
[转] ACCESS 97 类似 replace 及 split 函數
Function replace(ByVal sstr As String, ByVal stag As String, ByVal srep As String) As String
Dim l1, l2, l3, x, i As Long
Dim st As String
x = InStr(sstr, stag)
If x < 1 Then
replace = sstr
Exit Function
End If
st = sstr
l1 = Len(sstr)
l2 = Len(stag)
l3 = Len(srep)
For i = 0 To l1
st = Left(st, x - 1) & srep & Right(st, Len(st) - x - l2 + 1)
x = InStr(x + l3, st, stag)
If x < 1 Then Exit For
Next
replace = st
End Function
Function split(ByVal sstr As String, ByVal spstr As String) As Variant
Dim star, lenstr, lensp, cur As Integer
Dim backstr() As String
Dim i As Integer
ReDim backstr(0)
lenstr = Len(sstr)
lensp = Len(spstr)
star = InStr(sstr, spstr)
If star < 1 Then
backstr(0) = sstr
split = backstr()
Exit Function
End If
backstr(0) = Left(sstr, star - 1)
cur = star + lensp
For i = star + lensp To lenstr
star = InStr(star + lensp, sstr, spstr)
If star > 0 Then
ReDim Preserve backstr(UBound(backstr) + 1)
backstr(UBound(backstr)) = Mid(sstr, cur, star - cur)
cur = star + lensp
Else
Exit For
End If
Next
ReDim Preserve backstr(UBound(backstr) + 1)
backstr(UBound(backstr)) = Mid(sstr, cur, lenstr - cur + 1)
split = backstr()
End Function
分享到:
Global site tag (gtag.js) - Google Analytics
相关推荐
access基本函数介绍。 类型 函数名 函数格式 说明 算 术 函 数 绝对值 Abs(<数值表达式>) 返回数值表达式的绝对值 取整 Int(<数值表达式>) 返回数值表达式的整数部分值,参考为负值时返回大于等于参数值的第一个...
Access97官方下载,Office97下载中文专业完整版,Access97下载,Access下载 含有Access97,Excel97,Word97,PowerPoint97等,您可以下载Access97官网完整版本自定义选择安装.
在ACCESS中通过小写人民币转大写ACCESS函数可以把金额这项数据作为汉字显示或打印。支票、电汇凭证、记账凭证。
ACCESS 函数,!
access函数大全access函数大全access函数大全access函数大全access函数大全access函数大全
Access函数汇总将VBA编程所需的主要函数作了详细的介绍.
for each in 用法举例 asp中如何循环取出split中的值
Access函数大全.pdf
老难找了,access97原版,可以直接运行在xp下
Access VBA 函数 Access VBA 函数是 Microsoft Access 中的一组内置函数,用于执行各种操作,例如数学运算、字符串处理、日期时间处理等。本文将对 Access VBA 函数进行详细的介绍,涵盖函数的语法、参数、返回值、...
ACCESS高级操作 Access函数大全 access中有效性规则的写法 设置表中数据的格式
ACCESS函数详解是一种非常方便查找的小软件
在使用ACCESS做本地数据开发的时候,经常会用到的一些access函数
access内置函数
常用Access数据库函数 方便大家学习
说 明:允许用户定义按钮的背景颜色和旋转文字的函数
Access数据库函数大全,里边有Access数据库使用的所有函数
ACCESS常用函数
说 明:Geoff Lovis写的用代码来创建关系的源码原来是ACCESS97 版本,我增加了ACCESS2000 版本
全面的access的日期和时间函数 1.Cdate(日期表达式) 将日期表达式转换成日期类型的数据。 日期表达式是任何可以解释成日期的表达式,包含日期文字,可以看作日期的字符串以及从函数返回的日期。 比如:myDate = ...