请问：如何对字符串进行分割，不区分大小写。

[gq]

如何对字符串进行分割，不区分大小写。
使用Split进行分割，好象是区分大小写的。

[饮水需思源]

ucase(字符串名)

[xiaoHitler]

先转成大写或者小写撒

[gq]

就是不希望对要分割的字符进行转换啊，难道没有其它 办法？

[opqhjb_2002]

copy();可以.你试试

[Fanks]

那还是自己写循环判断分割吧。

[gq]

如果没有别的办法，只能转换大小写，然后对其进行处理了。。不过麻烦点。也不用写循环。

[小嘉茗的爸爸]

顶一楼

[zlt982001]

自定义Split 函数

Public Function Split( _
ByRef Expression As String, _
Optional ByRef Delimiter As String = " ", _
Optional ByVal Count As Long = -1, _
Optional ByVal Compare As VbCompareMethod = vbBinaryCompare _
) As Variant
Dim DelimiterLen As Long
Dim Index As Long
Dim Start As Long
Dim Strings() As String
Dim StringsCount As Long
Dim StringsUBound As Long
Dim StringsPtr As Long

If Count And Len(Expression) > 0 Then

DelimiterLen = Len(Delimiter)
If DelimiterLen Then
'Speicher reservieren:
If Count < 0 Then
Count = Len(Expression) \ DelimiterLen
Else
Count = Count - 1
End If
If Count < 2048 Then
StringsUBound = Count
Else
StringsUBound = 1024
End If
ReDim Strings(StringsUBound)

'String splitten:
Start = 1
For StringsCount = 0 To Count - 1
'Nächsten Delimiter suchen:
Index = InStr(Start, Expression, Delimiter, Compare)
If Index = 0 Then Exit For

'Ggf. Array vergrößern:
If StringsCount > StringsUBound Then
StringsUBound = StringsCount * 2
ReDim Preserve Strings(StringsUBound)
End If

'Teilstring speichern:
Strings(StringsCount) = _
Mid$(Expression, Start, Index - Start)
Start = Index + DelimiterLen
Next StringsCount
Strings(StringsCount) = Mid$(Expression, Start)

'Ggf. Array verkleinern:
If StringsCount < StringsUBound Then _
ReDim Preserve Strings(StringsCount)

Else
'Delimiter ist Leerstring:
ReDim Strings(0)
Strings(0) = Expression
End If 'DelimiterLen
Split = Strings

Else
'Nichts zu tun:
Split = Array()
End If 'Count And Len(Expression) > 0
End Function

[Winters_lee]

哇！好长好长，呵呵

[bwldwb6]

学习前辈经验

[gq]

最终使用小写转换后进行计算,对朋友的算法没有测试,但是还是感谢.结贴.