-----Mensaje original-----
De: vbasicworld@yahoogroups.com [mailto:vbasicworld@yahoogroups.com] En nombre de rofre72
Enviado el: Martes, 26 de Septiembre de 2006 10:08 p.m.
Para: vbasicworld@yahoogroups.com
Asunto: [VBASICWORLD] sigo con problemas con archivo secuencial

GRACIAS POR LA RESPUESTAS, PERO SIGO TENIENDO EL OTRO PROBLEMA (ESTO
DE SER NOVATO)


MI IDEA ES LEER CADA LINEA Y DESPUES ESCRIBIRLA EN OTRO ARCHIVO CON
OTRO FORMATO.

TENGO EL SIGUIENTE CODIGO:

Private Sub Command2_Click()
    With cmd2
        .InitDir = App.Path
        .Filter = "Archivo de Rasante CLIP(*.asc)|*.asc"
        .DefaultExt = "asc"
        .FileName = ""
        .DialogTitle = "Abrir archivo de Rasantes CLIP"
        .Action = 1
        fileRas = .FileName
    End With
    If fileRas = "" Then Exit Sub
    nfileRas = FreeFile + 1

    lineArchRas =  0

    Open fileRas For Input As #nfileRas
        While Not EOF(nfileRas)
            lineArchRas = lineArchRas + 1 

 

           Input #nfileRas, km, cota, dos
             

           If lineArchRas =>  3 Then 

              ReDim kmRas(3 To lineArchRas)
              ReDim cotaRas(3 To lineArchRas)
              ReDim dosT(3 To lineArchRas) 
               kmRas(lineArchRas)=km

               cotaRas(lineArchRas)=cota

               dosT(lineArchRas)=dos
           End If 

        Wend

        Close #nfileRas

    If fileRas <> "" Then
        Check2.Value = 1
    End If

End Sub
 

 

Private Sub Command7_click()
    fileRasVer = fileRas
    nfileRasVer = FreeFile + 1
        Open cmd2.FileName & ".ver" For Output As nfileRasVer
        Write #nfileRasVer, "", lineArchRas - 2, "S"

        For i = 3 To lineArchRas  'esta ultima variable debe estar declarada como global 
        Write #nfileRasVer, "V-" & i - 2, kmRas(i), cotaRas(i), 2 *
dosT(i)
        Next
       
        Close #nfileRasVer
   
    If fileRasVer <> "" Then
        Check2.Value = 0
    End If

    MsgBox "Archivo Generado con Exito", vbOKOnly, "Generación
Archivo de Rasante"

End Sub



AL QUERER GUARDAR EL ARCHIVO ME DICE QUE ESTA FUERA DEL INTERVALO O
INDICE, S SUPONE QUE EL ARCHIVO INICIAL TIENE 12 LINEAS Y EL FINAL
11, Y QUE A PARTIR DE LA LINEA 3 LEOM PARA PODER ESCRIBIRLOS EN LA
LINEA 2 DEL NUEVO ARCHIVO.

PERO NO HE PODIDO HACERLO.

UNA AYUDA PLEASEEEEEE.