分解特殊字符:“123456789012345678-80/95”
时 间:2017-08-03 14:56:22
作 者:易勋 ID:35404 城市:上海
摘 要:分解特殊字符:“123456789012345678-80/95”
123456789012345678
123456789012345679
123456789012345680
123456789012345695
正 文:
函数:
Public Function SplitInCo(strChar As String) As String Dim strInvoiceNumber As String Dim strInvoiceCode As String Dim intS As Integer Dim intLen As Integer Dim inti As Integer Dim strInv As String Dim strTemp As String Dim strType As String Dim arrInvoice() As String Dim intArr As Integer Dim strInvoice As String Dim lngInv As Long Dim strFormat As String intLen = Len(strChar) Select Case intLen Case Is < 18 SplitInCo = "" Case Is = 18 If Not strChar Like "*-*" And Not strChar Like "/" Then SplitInCo = strChar strInvoiceCode = Left(strChar, 10) strInvoiceNumber = Right(strChar, 8) Else SplitInCo = "" End If Case 19 SplitInCo = "" Case Is > 19 If Mid(strChar, 19, 1) = "-" or Mid(strChar, 19, 1) = "/" Then strInvoice = Left(strChar, 18) intArr = 0 inti = 0 strType = Mid(strChar, 19, 1) For intS = 20 To intLen strTemp = Mid(strChar, intS, 1) strInv = strInv & strTemp If strTemp = "-" or strTemp = "/" or intS = intLen Then If intS <> intLen Then strInv = Left(strInv, Len(strInv) - 1) End If Select Case strType Case "-" For inti = 1 To Len(strInv) strFormat = strFormat & "0" Next If Val(Right(Split(strInvoice, "|")(intArr), Len(strInv))) < Val(strInv) Then For lngInv = Val(Right(Split(strInvoice, "|")(intArr), Len(strInv))) + 1 To Val(strInv) strInvoice = strInvoice & "|" & Left((Split(strInvoice, "|")(intArr)), 18 - Len(strInv)) & Format(lngInv, strFormat) intArr = intArr + 1 Next End If strFormat = "" Case "/" If Len(strInv) <= 8 Then strInvoice = strInvoice & "|" & Left((Split(strInvoice, "|")(intArr)), 18 - Len(strInv)) & strInv intArr = intArr + 1 Else strInvoice = strInvoice & "|" & strInv intArr = intArr + 1 End If ' Case Else ' strInvoice = strInvoice & "|Error" End Select strInv = "" strType = strTemp End If Next SplitInCo = intArr + 1 SplitInCo = strInvoice Else SplitInCo = "" End If End Select End Function
用法:
SplitInCo("123456789012345678-80/95")
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)