Office中国论坛/Access中国论坛

标题: [分享]重复字符的方法 & 字符串自增函数 [打印本页]

作者: gzh97730 时间: 2006-3-30 00:20
标题: [分享]重复字符的方法 & 字符串自增函数
快贴 & 骗贴

函数：Replace(Space(n), Space(1), str)

？Replace(Space(3), Space(1), "0")

000

'字符串自增函数
Function StrAdd(myStr As String, Optional parm As Integer = 1)
Dim strL As String, strR As String, formatStr As String
Dim L As Byte, m As Byte, n As Long
  If Len(myStr & "") = 0 Then Exit Function
L = Len(myStr)
m = L
Do Until Mid(myStr, m, 1) Like "[!0-9]"    '从右边截取有效数字
m = m - 1
If m = 0 Then Exit Do
Loop
If m = L Then
      StrAdd = myStr
Else
      formatStr = Replace(Space(L - m), Space(1), "0") '格式
      strL = left(myStr, m)                         '左边
      n = Right(myStr, L - m) + parm                '新值
      strR = Format(Right(n, L - m), formatStr)       '右边
      StrAdd = strL & strR
End If
End Function

?StrAdd("1d1",1)

1d2

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)