Programación General > Visual Basic 6.0 e inferiores

 Acceso A Archivos

(1/1)

Fernando_P:
Hola a todos,
tengo un problema con el acceso a un archivo. El asunto es que debo escribir en él ciertas lineas que son parametros que el usuario ingresa por un formulario de Visual Basic. A su vez el archivo tiene lineas que no deben cambiar que son constantes, y los datos que ingresa el usuario van entre esas lineas fijas.

El archivo tiene el sgte formato (txt), las lineas en negrita son las que ingresa el usuario.


--- Citar ---rioBB.vf.6
1     ---> ioprof, (0: prof cte., <>0: prof var.)
1                       ---> nbat, (0=profundidad, 1=fondo)
0.d0                    ---> xnri, Nivel de ref. superf. libre inicial
batrioBB.6         
0.6d3                   ---> xQ, Caudal de entrada.
0     ---> npt, 1: dtf cte, 0: dtf var.
0.8d0                   ---> npt=1: dtf ; npt=0: cfl
0.d0     ---> tin, t inicial
10000000                ---> maxt numero maximo de pasos de tiempo
0     ---> iolec, 1: fichero, 0: no fichero
alt-vel.sal
0                 ---> itodos, 1: tod. tiempos 0: los que se citan
12       ---> npas, numero de pasos de tiempo
10 20 30 40 50 60 70 80 90 100 110 120
10.d0    ---> vv, velocidad viento(modulo)
135     ---> av, angulo viento
1000    ---> dagua, densidad agua
1.28d0     ---> daire, densidad aire 
64     ---> chezy
0                       ---> ncori, tener en cuenta Coriolis (1)
0                       ---> nfv, tener en cuenta fza.  viento(1)
0                       ---> nrf, tener en cuenta rozam. fondo (1)

--- Fin de la cita ---

Quien puede decirme como hago para ir creando estas lineas en el archivo... las lineas sin negrita son ctes en mi archivo de entrada que estoy creando, y ademas siempre se crea el mismo archivo.

Ojala puedan ayudarme.

Gracias.

Jose Arriagada:
En un form nuevo, inserta un label y un text ambos con la propiedad INDEX=0
y pone el siguiente codigo:

Private Sub Command1_Click()
archivo = "C:\SALIDA.TXT"
Open archivo For Output As #1
Print #1, "rioBB.vf 0.6"
Print #1, "1"
Print #1, "1"
Print #1, "0.d0"
Print #1, "batrioBB 0.6"
Print #1, "0.6d3"
Print #1, "0"
Print #1, "0.8d0"
Print #1, "0.d0"
Print #1, "10000000"
Print #1, "0"
Print #1, "alt"
Print #1, "0"
Print #1, "12"
Print #1, "10 20 30 40 50 60 70 80 90 100 110 120"
Print #1, Text1(0).Text 'velocidad del viento
Print #1, Text1(1).Text 'angulo del viento
Print #1, Text1(2).Text 'densidad del agua
Print #1, Text1(3).Text 'densidad del aire
Print #1, Text1(4).Text 'densidad del agua
Print #1, "0"
Print #1, "0"
Print #1, "0"
Close (1)
MsgBox "Archivo " & archivo & " ha sido creado"
End Sub

Private Sub Form_Load()
For i = 1 To 6
    Load Label1(i)
    Load Text1(i)
    Text1(i).Top = Text1(i - 1).Top + Text1(i - 1).Height
    Text1(i).Text = ""
    Label1(i).Top = Text1(i).Top
    Label1(i).Visible = True
    Text1(i).Visible = True
Next i
Text1(0).Text = ""
Label1(0).Caption = "Caudal de entrada"
Label1(1).Caption = "Velocidad del viento"
Label1(2).Caption = "Angulo del viento"
Label1(3).Caption = "Densidad del agua"
Label1(4).Caption = "Densidad del aire"
Label1(5).Caption = "Caudal de Entrada"
Label1(6).Caption = "Chezy"
Command1.Caption = "Crear archivo"
End Sub


Espero te sirva

Navegación

[0] Índice de Mensajes