проблема с scripting

[Warlock]

уменя в программе код для чтения файла по строкам

Private Sub Настройка_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim txt() As String
Dim xn As Short
xn = 1
Dim fso As Scripting.FileSystemObject
Dim sts As Scripting.TextStream
fso = New Scripting.FileSystemObject
sts = fso.OpenTextFile("D:\Тестирование для БУХ\Тестирование.NET\test.cfg", Scripting.IOMode.ForReading, False)
Do Until sts.AtEndOfStream
txt(xn) = sts.ReadLine
xn = xn + 1
Loop
Text1.Text = txt(1)
Text2.Text = txt(2)
End Sub


при компиляции выдается ошибка : Additional information: Index was outside the bounds of the array.

в VB6 работала а в VB.NET нехочет что делать.

[Lobo]

Массив txt() не инициализирован. В нём нет ни одного элемента, поэтому обращение хоть к какому вызывает выход индекса за границы.

[Warlock]

спасибо за попытку!!!!!!


а пытаюсь определить массив Dim txt() As String = {0 - 9000}
может это не правильно но подругому не знаю как
потскажите как плизз!!!!!!!!!!!!!!!!

[corgi]

если тебе не известно количество элементов в массиве, то

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

Dim st() as string
' твой код
redim st(n) ' n - количество элементов и без указания типа


также можно использовать preserve redim(n), тогда все элементы которые ты в этот массив уже запихнул будут целы

ну а если тебе известно количество элементов сразу то Dim st(20) as string

[Warlock]

приагромнейшее спасибо теперь работает