Конвертировать массив вариантов в строку

Я пытаюсь взять переменную варианта и преобразовать ее в строку, чтобы я мог запустить функцию разделения данных. Однако всякий раз, когда я пытаюсь переопределить вариант, я получаю ошибку несоответствия типов. Я использовал функции CStr (), Str () и ToString. Нет работы.

Что-то мне не хватает?

Function FlatLine(ByVal lines As Variant)

Dim flat() As String
ReDim Preserve flat(i)

For i = 0 To UBound(lines)
    flat(UBound(flat)) = lines(i)
    ReDim Preserve flat(LBound(flat) To UBound(flat) + 1)
Next i

Dim flat2 as String
flat2 = Cstr(flat)

^ errors there.
7 голосов | спросил user3428722 17 MarpmMon, 17 Mar 2014 17:56:34 +04002014-03-17T17:56:34+04:0005 2014, 17:56:34

1 ответ


0

Насколько я понимаю, for бесполезен. Лучше ReDim flat и генерируйте flat2, как показано ниже

ReDim flat(UBound(lines))
flat2 = Join(flat,"|")

на самом деле, учитывая, что строки поступают как ByVal, вы, вероятно, могли бы

flat2 = Join(lines,"|")
ответил bugmagnet 17 MarpmMon, 17 Mar 2014 18:03:51 +04002014-03-17T18:03:51+04:0006 2014, 18:03:51

Похожие вопросы

Популярные теги

security × 330linux × 316macos × 2827 × 268performance × 244command-line × 241sql-server × 235joomla-3.x × 222java × 189c++ × 186windows × 180cisco × 168bash × 158c# × 142gmail × 139arduino-uno × 139javascript × 134ssh × 133seo × 132mysql × 132