Чтение последовательных текстовых файлов с использованием массивов в VBA

Question

Я пытаюсь написать код VBA для чтения значений и записать его туда, где я хочу, из 4 тысяч различных текстовых файлов.

В качестве примера, точное имя выглядит как NACA63220_1.30_17_CD.txt и NACA63220_1.05_12_CL.txt Inэто имя, значение 1.30 изменяется, 17 изменяется и CD становится CL и т. д.

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

Mach = Array ("0.2_", "0.6_", "0.9_", "1.05_", "1.30_")
Alpha = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
Letter = Array("_CD", "_CL", "_CM")

strFile = D:\Database\NACA63220_ + Mach(5) + Alpha(18) + Letter(1) .txt

Я хочу иметь что-то подобное с циклами, чтобы в этом случае это strFile стало D:\Database\NACA63220_ 1.30_17_CD.txt, а затем я мог продолжить свой код.

Answer 1

Вам нужно объединить строки с &, а не + (только для расчета).Также ваши строки должны быть заключены в кавычки "".

strFile = "D:\Database\NACA63220_" & Mach(5) & Alpha(18) & Letter(1) & ".txt"

Обратите внимание, что в зависимости от того, как были определены ваши массивы, отсчет начинается с нуля 0, а не 1.Таким образом, последний элемент - Mach(4), а не Mach(5).В этом случае…

strFile = "D:\Database\NACA63220_" & Mach(4) & Alpha(17) & Letter(0) & ".txt"

должен дать желаемый результат D:\Database\NACA63220_ 1.30_17_CD.txt