0
Private Function readCSVFile(ByVal fileName As String) As String()
    Open fileName For Binary As #1
    Dim MyData As String
    MyData = Space$(LOF(1))
    Get #1, , MyData
    Close #1
    readFile = Split(MyData, vbCrLf)
End Function

Sub Sample()
    Dim strData() As String
    strData() = readCSVFile("csv_file.txt")
...

Но strData почему-то приходит пустой, хотя данные точно есть.

2 ответа 2

3

Нет присвоения значения функции. Надо:

readCSVFile = Split(MyData, vbCrLf)
2
  • Опс.... Спасибо!!!
    – lightharut
    13 фев 2017 в 11:53
  • Пожалуйста, обращайтесь ) 13 фев 2017 в 12:47
1

В качестве возвращаемого функцией значения можно использовать флаг - как результат удачного выполнения функции. А возвращаемый массив поместить в список аргументов:

Private Function readCSVFile(ByVal fileName As String, ArrayRet() as String) As Boolean
    ....
    ' В таком случае обращение выглядит: '

    Dim strData() As String
    if readCSVFile("csv_file.txt", strData()) then
       msgbox "Error opening file",16
    Else 
       ' все ОК '
    end if
end function

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.