Archivo aleatorio

[mitzunari]

Hola amigos, tengo un problema, no se como extraer los datos de un archivo aleatorio para guardarlos en memoria en un arreglo/vector y aplicarle un metodo de ordenacion y posteriormente volver a almacenarlos en el mismo archivo aleatorio (sobre escribir el archivo).

Tengo conocimiento de los metodos de ordenacion, pero no de la forma de extraer los datos del archivo y guardarlos en un vector.

El archivo fue escrito con una aplicacion hecha en VB6, en el archivo se guardan los datos de una estructura/tipo de dato con distintos campos:

Código:

Private Type Contacto
    Nombre1 As String * 20
    Nombre2 As String * 20
    Paterno As String * 20
    Materno As String * 20
    Telefono1 As String * 20
    Telefono2 As String * 20
    Telefono3 As String * 20
    Telefono4 As String * 20
    Mail As String * 70
    Nota As String * 250
End Type

y busco hacer la ordenacion de cada registro, cada registro tiene un total de 480 caracteres, por tanto necesito un vector de [480][n] siendo n el numero total de registros almacenados en el archivo, el total de registros los calcula el programa al momento de comprobar que exista el archivo.

Espero alguien de ustedes pueda aydarme, esto es de estructura de datos, vamso, es básico, pero yo no lo vi en el cole.

Gracias de antemano.

[ValentinoMolinari]

Private Sub Command1_Click()
Dim num As Integer
'Dim vector
Dim con As Integer
num = FreeFile
Open "C:\palabras.txt" For Input As #num
Do While Not EOF(num)
Line Input #num, cadena
If T1.Text = cadena Then
con = con + 1
End If
T2.Text = con
Loop
Close #num
End Sub


Private Sub contar_Click()
Dim num As Integer
Dim cadena As Integer
num = FreeFile
If Dir("C:\palabras.txt") <> "" Then
Open "C:\palabras.txt" For Append As #num
Else
Open "C:\palabras.txt" For Output As #num
End If
Print #num, T1.Text
Close #num
T1.Text = ""
T1.SetFocus
End Sub


es un ejemplo muy sencillo espero te sirva

[mitzunari]

Gracias amigo, lo estoy checando, te envié mi codigo a tu mail, espero tu respuesta y gracias por interesarte nuevamente.