• 字符串和数组的转换


    1.将字符串转为数组

    方法:先创建一个动态数组,数组大小等于字符串的长度,然后依次取出字符串中的每个字符存入该动态数组中,最后将数组返回,代码如下:

    '将字符串string1转换为数组

    Public Function StringToArray(ByVal string1)

        Dim i,Array1()

        Redim Array1(Len(string1))

        For I=1 to Len(String1)

            Array1(I-1)=Mid(string1,I,1)

        Next

        StringToArray=Array1

    End Function

    2.将数组转换为字符串

    方法:先定义一个字符串变量;然后根据数组的维度依次将数组中的字符赋给字符串,最后将字符串返回,代码如下:

    '将数组Array1转换为字符串

    Public Function ArrayToString(ByVal Array1)

        Dim i,string1

        For i=0 to UBound(Array1)

            string1=string1 & Array1(I)

        Next

        ArrayToString=string1

    End Function

  • 相关阅读:
    学习进度笔记13
    学习进度笔记12
    学习进度笔记11
    学习进度笔记10
    学习进度笔记9
    《架构之美》读书笔记1
    学习进度笔记8
    电话拨号盘(带触摸振动反馈)
    堆排序(小根堆)
    图论起步(长期更新)
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2035744.html
Copyright © 2020-2023  润新知