字符集,截取字符串

输入:任意字符串 string类型

输出:该字符串的顺序所有不重复的组合

方法:截取字符串(要被截取的字符串 string类型,截取的方法 string类型)

返回:字符串数组 string()类型

Public Function 截取字符串(ByVal 字符串 As String, ByVal 截取方式 As String)

Dim 获取字符串 As String = 字符串

Dim 新的字符串 As String = ""

Dim 开始位置 As Integer = 1

Dim 截取长度 As Integer = 1

If 截取方式 = "所有组合" Then

While 截取长度 < 字符串.Length + 1'使用双循环来获得字符串的所有不限长度的顺序组合

While 开始位置 < 字符串.Length + 1

If 截取长度 + 开始位置 < 字符串.Length + 2 Then'当截取的字符串长度小于截取的最长字符串时执行,否则放弃,以免重复截取.

If InStr(新的字符串, Mid(字符串, 开始位置, 截取长度)) = 0 Then'确定输入的字符串没有重复的字,当不为零时说明已经存在了,跳过.等于0表示不存在.

新的字符串 = 新的字符串 & Mid(字符串, 开始位置, 截取长度) & vbCrLf'所有不重复的组合

End If

End If

开始位置 = 开始位置 + 1

End While

截取长度 = 截取长度 + 1

开始位置 = 1

End While

Dim 获取输入的字符串组合数组() As String = Split(新的字符串, vbCrLf)'这句为输出的字符串的所有组合数组

Return 获取输入的字符串组合数组

End If

Return "错误:没有定义输出"

End Function