vb problem

[cesar crespo]

i create a random file and i access the random file very fast,but i
want to create another random file but the large of the record,or the key is 9 of length , but i do not know how can access a record


Private Type records
cinta As String * 6
fe As String * 8
sc As String * 8
su As String * 3
ye As String * 2
descripcion As String * 30
nuci As String * 1
ar As String * 1
se As String * 6
last As String * 8
End Type
Private Sub Command1_Click()
'Programa Crea Archivo Random
Dim myrec As records, W
Dim P As Integer
Open "c:\qbasic\biblio3.txt" For Input As #1
rtn1:
If EOF(1) Then GoTo pre
Line Input #1, c$
Let P = P + 1
GoTo rtn1
pre:
Print x
Close #1
ProgressBar1.Max = P
Open "c:\qbasic\biblio3.txt" For Input As #1
Open "c:\qbasic\Master_Random.txt" For Random As #2 Len = Len(myrec)
Open "c:\qbasic\cinta.txt" For Output As #4
lee:
For W = 1 To P
ProgressBar1.Value = W
Input #1, cin$, fech$, scra$, subs$, yy$, descr$, numcin$, area$, see$, lasttrx$
myrec.cinta = cin$
myrec.fe = fech$
myrec.sc = scra$
myrec.su = subs$
myrec.ye = yy$
myrec.descripcion = descr$
myrec.nuci = numcin$
myrec.ar = area$
myrec.se = see$
myrec.last = lasttrx$
Put #2, cin$, myrec
Next W
fin:
Print #4, myrec.cinta
Print
Print
Print
Print "ULTIMO NUMERO DE CINTA PROCESADO -----> " & myrec.cinta
Print "RECORDS PROCESADOS ---------------------------------> " & W
Close #1
Close #2
Close #4



*************access the file*******************


Private Type records
cinta As String * 6
fe As String * 8
sc As String * 8
su As String * 3
ye As String * 2
descripcion As String * 30
nuci As String * 1
ar As String * 1
se As String * 6
last As String * 8
End Type

Private Sub Command1_Click()

Open "c:\qbasic\cinta.txt" For Input As #3
Input #3, valor
Close #3
If numero = "" Then
MsgBox "TIENES QUE ENTRAR NUMERO DE CINTA"
numero.SetFocus
Command1.Enabled = True
Exit Sub
Else
End If
Command1.Enabled = False
Dim myrec As records, x
Dim con As String
Open "c:\qbasic\Master_Random.txt" For Random As #2 Len = Len(myrec)
rtn2:
Let x = numero
If x > 4992 And x < 10000 Then
Print "Record no Existe"
Exit Sub
End If
If x < 1 Or x > valor Then
Print "Record no Existe"
Else
Get #2, x, myrec
FontBold = True
Let con = Chr$(47)
Let mes = Mid$(myrec.fe, 1, 2)
Let dia = Mid$(myrec.fe, 3, 2)
Let yea = Mid$(myrec.fe, 5, 4)
Let temfe = mes + con + dia + con + yea
Print myrec.cinta & " " & temfe & " " & myrec.sc & " " & myrec.descripcion
Command3.SetFocus

[Madboy]

Just some tips, use the vbCode tags to present your code better in the forum.

Indent you code

Instead of using control names like Command3 use name prefixes. Such examples are:

Textbox - txtMain
Picture1 - picMain
....
cmdMain
prgMain
...
etc, etc