SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Fernando_P en Viernes 9 de Julio de 2004, 19:40
-
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.
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)
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.
-
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