Multiple strings in multidimensional array vbscript

后端 未结 3 1245
面向向阳花
面向向阳花 2021-01-06 13:18

I am trying to add multiple strings into a multidimensional array in VBScript. I hope I can explain it in a short way: Every string contains some data separated by commas. N

3条回答
  •  庸人自扰
    2021-01-06 13:50

    @Tomalak's answer is a neat way of doing it but in case you did want a native Multi-Dimensional Array approach closer to your original request you would use a Dynamic Array, like this.

    Option Explicit
    
    'Named constants for the three dimensions
    Const COND_DATE = 0
    Const COND_TEMPERATURE = 1
    Const COND_HUMIDITY = 2
    
    Dim Dates, Temperatures, Humidity, i
    Dim AmbientConditions()
    
    Dates = Split("12.02.2016, 13.08.2017, 19.05.2018", ", ")
    Temperatures = Split("23.1, 24.9, 75.3", ", ")
    Humidity = Split("26, 29, 95", ", ")
    
    ReDim AmbientConditions(2, UBound(Dates))
    
    For i = 0 to Ubound(Dates)
        AmbientConditions(COND_DATE, i) = Dates(i)
        AmbientConditions(COND_TEMPERATURE, i) = Temperatures(i)
        AmbientConditions(COND_HUMIDITY, i) = Humidity(i)
    Next
    
    For i = 0 To UBound(AmbientConditions, 2)
        WScript.Echo AmbientConditions(COND_DATE, i)
        WScript.Echo AmbientConditions(COND_TEMPERATURE, i)
        WScript.Echo AmbientConditions(COND_HUMIDITY, i) & vbCrLf
    Next
    

    Output:

    12.02.2016
    23.1
    26
    
    13.08.2017
    24.9
    29
    
    19.05.2018
    75.3
    95
    

    Also followed @Tomalak's suggestion to use Named Constants for the various dimensions.

提交回复
热议问题