работа со строками

[Anta]

подскажите пожалуйста, записываю имена и путь к файлу в переменную, количество файлов от одного до 10, каким образом, в цикле, записать все названия в одну строку через пробел. спасибо!

[FireFenix]

Код: Выделить всё

Dim FilePath as String
Dim Result as String

Цикл
    '
    'некоторый код получения пути и файла в переенную FilePath
    '
    Result &= " " & FilePath
Конец Цикла

'Переменная Result содержит все пути через пробел

[Qwertiy]

FireFenix, зачем такое пишешь? E тебя пробел лишний. А ещё, лучше использовать StringBuilder.
Anta, не надо использовать цикл. Есть String.Join.

[FireFenix]

FireFenix, зачем такое пишешь?

Потому, что сказанно

в цикле

А ещё, лучше использовать StringBuilder.

Не отрицаю, но для больших масивов. Для относительно маленьких String хватает

[Anta]

Вот таким образом доступ к подсчету количества искомых файлов и полному пути с именем файла:

Код: Выделить всё


        Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("E:\test\")
        dim namephoto as string
        Dim nbFile As Integer
        Dim Repertoire As String = di.ToString
        Dim parametr as string
        If di.Exists Then
            nbFile = My.Computer.FileSystem.GetFiles(Repertoire, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg").Count()
                     
            For Each fi As System.IO.FileInfo In di.GetFiles
                If fi.Extension Like ".jpg" Then
                    namephoto = fi.FullName
  ' теперь необходимо соединить все встречающиеся nomphoto в одну строку через пробел
      builder.Append(nomphoto)  как указать пробел? потому как каждый раз начинается строка снова в данном случае
             parametr=builder.toString
или другой способ?
parametr

                End If
            Next
        End If

количество итераций известно, т.к. известно количество файлов. Спасибо.

[Qwertiy]

Сколько можно такие вещи объяснять?

Код: Выделить всё

If Directory.Exists(Repertoire) Then Smth = String.Join(" ", Directory.GetFiles(Repertoire, "*.jpg"))

А всё остальное выкинуть.

[Anta]

Спасибо за совет.