• Miércoles 29 de Mayo de 2024, 06:32

Autor Tema:  Acceso A Archivos  (Leído 833 veces)

Fernando_P

  • Miembro activo
  • **
  • Mensajes: 88
    • Ver Perfil
Acceso A Archivos
« en: Viernes 9 de Julio de 2004, 19:40 »
0
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)

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

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Acceso A Archivos
« Respuesta #1 en: Viernes 9 de Julio de 2004, 21:20 »
0
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