Preencher matriz em VB6

Status
Fechado a novas mensagens.

andremf

Membro
Gostava de saber como preencher uma matriz bidimensional de strings.

Tenho um ficheiro de texto com a seguinte configuração dos dados:

00001| 25 | 32 | 12 |
00002| 67 | 55 | 33 | 345 |
00003| 34 | 39 |


Gostava de criar uma matriz W(i,j) em que i fosse o número da linha do texto e j a coluna delimitada por "|". Por exemplo, W(2,3) = 55.

Tenho tentado ler o ficheiro linha a linha e fazer o split em cada linha, através do seguinte código:

livre =freefile
Open "c:\text.txt" for input as #livre

Do while not EOF(livre)

Line Input #livre, linha ' lé o ficheiro linha a linha
v() = Split(linha, "|")
n = n+1 ' vai contando o número de linhas

Loop

Agora eu gostava de ir preenchendo uma matriz com a ajuda de n que é o número da linha e de v(i) que é a coluna. Não sei como agregar as linhas com as colunas. Será que terei que fazer isso ainda dentro do ciclo Do antes do "Loop"? Como dimensiono essa matriz já que ela é flexivel porque por exemplo o número de colunas em cada linha pode ser diferente (no exemplo apresentado a linha 2 tem mais colunas que as linhas 1 e 3). E o número de linhas também é flexivel porque eu quero usar esta rotina para ler vários ficheiros e não têm todos o mesmo número de linhas.

Ajudem-me a encontrar a solução para o meu problema. Tenho alguma urgência.

Agradeço a todos que me possam ajudar

Obrigado pela atenção!
 
Status
Fechado a novas mensagens.
Back
Topo