求一个VB函数,能将一个字符串(支持中文),按照给定的个数count,分成count个元素组成的数组
最新回答
念河山远
2024-11-04 11:41:56
我给你写一段代码吧
这个是 vb.net 的代码
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim AAA As String = "abc中defaghdfjhfgrjktukasgewrgerhrtjdjfgagsdgqwerghefhjwerhq文ghi字" '指定的字符串
Dim SpliteCount As Integer = 3 '分割成3个段
Dim Str(SpliteCount - 1) As String '分割后的3个元素组成的数组
Dim LenSpliteA As Integer '得到前几段的长度
If InStr(AAA.Length / SpliteCount, ".") <> 0 Then
LenSpliteA = Mid(AAA.Length / SpliteCount, 1, InStr(AAA.Length / SpliteCount, ".")) + 1
Else
LenSpliteA = AAA.Length / SpliteCount
End If
For i As Integer = 0 To Str.Length - 1
If i = 0 Then
Str(i) = Mid(AAA, 1, LenSpliteA)
End If
If i > 0 And i < Str.Length - 1 Then
Str(i) = Mid(AAA, LenSpliteA * i + 1, LenSpliteA)
End If
If i = Str.Length - 1 Then
Str(i) = Mid(AAA, LenSpliteA * i + 1)
End If
Next
MsgBox("已经分割成 " & SpliteCount & " 段")
End Sub
浪子寻欢
2024-11-04 06:56:59
热门标签
