как заполнить 2-ух мерный массив постоянными данными?

[demid77]

есть программа в Excel'e на VBA. в ней массивы заполняются постоянными данными из диапазонов листов workbook. массивы там 2-ух видов - есть только с численными данными, а есть с численными и текстовыми. размерность массивов от 2х2, до 100х10. какие есть варианты заполнения массивов в VB.NET ? т.е. это надо из другого файла получать данные или можно в самом VB.NET как-то сделать (по аналогу с Excel)?

[GSerg]

Ещё раз, понятнее, пожалуйста.

[demid77]

В программе необходимо использовать массивы, состоящие из постоянных данных. В VBA я это делаю, используя таблицы Excel. т.е.

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

MyArray = Workbooks("Book1").Worksheets("Sheet1").Range("ExcelArray").Value

таким образом удобно заполнять массивы размером ~ 100х10. таким же образом можно заполнять и неболшие массивы ~ 2х2. хотя для таких массивов можно использовать функцию Array.
Теперь хочу переделать программу на VB.NET. поэтому хочу знать - как заполнить массив данными в VB.NET?

[GSerg]

Фиг поймёшь, что нужно человеку...
Массивы, состоящие из постоянных данных...

Это, что ли?
dim a() as integer = {1,2,3}

[demid77]

Фиг поймёшь, что нужно человеку...
Массивы, состоящие из постоянных данных...

Это, что ли?
dim a() as integer = {1,2,3}

ты показал заполнение одномерного массива
1.как заполнить двумерный? причем часть данных числа, а часть - строки.
2. как заполнить одно- и двумерный массив, если там 100 чисел? вручную это делать лень, да и ошибиться можно. эти числа предоставляются в таблицах Excel. поэтому в VBA обращаюсь к соответствующим диапазонам листа Excel.

[GSerg]

Ну так и открывай файл экселя и заполняй из него. Поячеечно. Раз с VBA работал, значит знаешь как. Объектную модель никто не менял.

[mdx]

Можно ещё из CSV-файла данные читать (там всё просто запятыми разделено). Excel в него экспортировать умеет.

[Viper]

Что человеку надо до сих пор непонятно, но двумерный массив запоняется так:

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

Dim ar(,) As Object ={{1,2,3},{"1","2","3"}}

[demid77]

Можно ещё из CSV-файла данные читать (там всё просто запятыми разделено). Excel в него экспортировать умеет.

подскажи, пожалуйста, как считать данные из файла *.csv в массив в VB.NET.

to GSerg и !Viper!
извините, что плохо объясняю, но я видел, как друг объявляет массив в С++:

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

unsigned char CRC16Hi[] = {
0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40,
...и так далее...................................................
0x00, 0xC1, 0x81, 0x40, 0x01, 0xC0, 0x80, 0x41,
0x01, 0xC0, 0x80, 0x41, 0x00, 0xC1, 0x81, 0x40
} ;

и думал что, может в VB.NET что-то похожее есть.

[GSerg]

Не, ну чел, конечно, интересен...
http://bbs.vbstreets.ru/viewtopic.php?p=6577918#6577918 - это, собственно, то, что ты и привёл.

[demid77]

Не, ну чел, конечно, интересен...
http://bbs.vbstreets.ru/viewtopic.php?p=6577918#6577918 - это, собственно, то, что ты и привёл.

что-то ссылка меня никуда не посылает... приведи, плиз, код или скорректируй ссылку.

[GSerg]

Эта ссылка посылает именно туда, куда нужно, а именно на пост !Viper!, прямо предшествующий твоему...

[demid77]

GSerg , а как считать данные из файла *.txt или *.csv в массив?

[GSerg]

В простейшем случае -
Dim s As New IO.FileStream("c:\1.txt", IO.FileMode.Open, IO.FileAccess.Read)
Dim r As New IO.StreamReader(s)
r.ReadToEnd.Split(","c)
r.Close()
s.Close()
с последующим преобразованием строкового массива в числовой через ctype или csng там.

А как ты вообще из файлов читаешь?

[demid77]

А как ты вообще из файлов читаешь?

пока ни как не читаю. но хочу программу с VBA сделать в VB.NET. поэтому узнаю, как это можно сделать попроще.

[GSerg]

В чём смысл переделывания?
Зачем, то есть?

[demid77]

В чём смысл переделывания?
Зачем, то есть?

1.прога была сделана в Excel на VBA, т.к. это было просто и быстро. сам Excel используется для хранения данных, которые используется в программе + применяются некоторые функции Excel - VLookup, HLookup, Match, Round + печать результатов + создание файла Excel с результатами расчета. т.е. ничего особенного от Excel не требуется, поэтому хочу сделать программу без Excel.

2.интересно сделать именно отдельную программу, чтобы как по настоящему: Setup, своё собственноё меню, ярлычок на рабочем столе ... вот и подумал, что может переделать прогу на VB6 или VB.NET. кроме того, возможно понадобиться в дальнейшем работать с базой данных в Access.

на самом деле, прогу на VBA ещё до конца не сделал. так, что пока узнаю - можно ли и как это всё переделать на VB.NET.

[mdx]

При чтении CSV надо поделить строку вначале по символам

CrLf

, а затем каждую получившуюся по

;

.

[mdx]

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

Dim fStream As IO.FileStream = New IO.FileStream("Test.csv", IO.FileMode.Open)
        Dim Reader As IO.StreamReader = New IO.StreamReader(fStream)
        Dim Arr() As String
        Dim Arr2() As String
        Dim Result(,) As String
        Arr = Reader.ReadToEnd.Split(ControlChars.CrLf)
        Reader.Close()
        fStream.Close()
        Dim i As Integer, j As Integer
        For i = 0 To Arr.GetUpperBound(0)
            Arr2 = Arr(i).Split(";"c)
            ReDim Preserve Result(Arr.GetUpperBound(0), Arr2.GetUpperBound(0))
            For j = 0 To Arr2.GetUpperBound(0)
                Result(i, j) = Arr2(j)
                s += Result(i, j) & ControlChars.Tab
            Next
        Next