问题描述

在思考中想到若是一个文本中的值需要作为变量在后续程序中应用。这需要如何来解决呢？
在思考后想到可以将输入的值作为一个数组，中间假设用，分开在后续数组中得到变量

代码

建立如图ui

Class MainWindow
    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        FileOpen(1, "c:\a.txt", OpenMode.Output)
        WriteLine(1, "a", "b", "c", "d")
        FileClose(1)
        FileOpen(1, "c:\a.txt", OpenMode.Input)
        Dim array1(4) As String
        array1 = Split(Trim(LineInput(1)))
        FileClose(1)
        For i As Integer = 0 To array1.GetUpperBound(0)

            Textbox1.Text += array1(i)&" "

        Next

    End Sub
End Class

得到结果如下

得到一个如下数组，都为字符串型可以应用