关于数据转换！

rongjun

以下是引用清风_ll在2004-11-30 13:30:00的发言：

strTemp返回一个数组,

strTemp = Split(strISBN, "-")

就是从参数strISBN中返回一个以“-”分隔的数组

比如如果strISBN=“123-456-789”,则strTemp返回一个数组

strISBN(0)="123"

strISBN(1)="456"

strISBN(2)="789"

LBOUND(strISBN)=0

UBOUND(strISBN)=2

太感谢清风_ll 了，这下我终于可以理解版主的代码了！非常感谢！

清风_ll

strISBN(0)="123"

strISBN(1)="456"

strISBN(2)="789"

LBOUND(strISBN)=0

UBOUND(strISBN)=2 一时大意写错了,上面的各strISBN应为strTemp[em04]

hzg7818

if intResult=0 then

应为if intResult=10 then

hzg7818

Function GetTXM(strISBN As String) As String Const strHead As String = "978" Dim strResult As String Dim intResult As Integer Dim intLen As Integer Dim intJsh As Integer Dim intOsh As Integer Dim strTemp() As String Dim i As Integer strTemp = Split(strISBN, "-") If UBound(strTemp) < 3 Then GetTXM = "" Exit Function End If For i = 0 To 2 strResult = strResult & strTemp(i) Next i strResult = strHead & strResult intLen = Len(strResult) For i = 1 To intLen Step 2 intJsh = intJsh + CInt(Mid(strResult, i, 1)) intOsh = intOsh + CInt(Mid(strResult, i + 1, 1)) Next i intResult = 10 - CInt((Right(CStr(intJsh + intOsh * 3), 1))) if intResult=0 then

GetTXM=strResult & "X"

exit function

end if

GetTXM = strResult & intResult

'这回试试看 End Function

[此贴子已经被作者于2004-11-28 21:29:46编辑过]