freebasic里的Split函数

今天讲一下FB里面的split函数。其语法:Function Split(TEXT as String, DELIMIT as String, RET() as String) as Integer。

TEXT为要分割的字符串,DELIMIT为分隔符。第三参数为存放分割后的元素的数组。Split返回的值是ret这个数组的元素数量。下面我们来试试。

Dim s As String = "中国/捷恩斯/日本/中国/日本/中国/韩国/中国/韩国/中国/日本/韩国/中国/日本/中国/日本"
Dim arr() As String 
dim U as Integer =Split(s,"/",arr())  'U为split分割成的数组的成员的个数,arr(0)返回的是arr数组元素的个数,元素从1开始。
For i As Integer = 0 To U
 Print arr(i) '检查arr数组里的元素
Next

 打印的结果如下图。我们可以看到arr的数组下标是从0开始,但是这个arr(0)存放的是元素的数量。从1-U存放的是分割后的各个元素。如果只取得元素。从1开始遍历即可。

猜你喜欢

转载自blog.csdn.net/qq_24499417/article/details/104463186