我的自制函数GetPart

Miu.C

Function GetPart(strInput As String, Spil As String, Part As Integer) As String
Dim StartPos As Integer, EndPos As Integer, tmpstr As String, SpilCount As Integer
Dim i As Integer, j As Integer
    tmpstr = strInput
    SpilCount = 0
    For i = 1 To Len(tmpstr)
        If Mid(tmpstr, i, 1) = Spil Then SpilCount = SpilCount + 1
    Next i
    If Part > SpilCount Then
        For i = 1 To Part - SpilCount
            tmpstr = tmpstr + Spil
        Next i
    End If
    EndPos = 0
    For i = 1 To Part
        StartPos = EndPos + 1
        EndPos = InStr(StartPos, tmpstr, Spil, vbTextCompare)
    Next i
    GetPart = Mid(tmpstr, StartPos, EndPos - StartPos)
End Function

这个函数的作用很容易看出来吧，就是把一个语句的各个参数读出来，比如说：
s = "C:\Command.com,1"
GetPart(s,",",1)就可以得到s这个字符串中以","为分隔符的第一个参数"C:\Command.com"。

psic

很不错，支持

Canbitwell

VB6里直接用Split不就可以按分隔符分离成数组，然后之间访问特定索引的元素……

Canbitwell

我不能光说哈

Private Function Test(ByVal cmd As String, ByVal sSep As String, ByVal id As Integer) As String
    Dim aTmp() As String
   
    aTmp = Split(cmd, sSep)
   
    Test = aTmp(id)
End Function

Test("C:\Command.com,1", ",", 1)

天使的眼泪

楼主你贴这些有意义吗? 有时间做几个游戏还好了.

psic

这些东西要比完整游戏有意义得多

天使的眼泪

先学好你的语言吧！

psic

你先从初中数学学起吧……

天使的眼泪

psic: Re:我的自制函数GetPart

你先从初中数学学起吧……

既然数学是那么的厉害，怎么你见你做出什么伟大的游戏来？？

psic

天使的眼泪: Re: Re:我的自制函数GetPart



既然数学是那么的厉害，怎么你见你做出什么伟大的游戏来？？

不厉害啊，只是比你稍微好点，会点三角函数之类基础的东西而已……