Autor
|
Tema: VB6, acceso a fichero (Leído 4,029 veces)
|
programatrix
|
Hola, ¿que tal? He puesto este mensaje por si me podriaís dar referencia de instrucciones o código de como puedo leer en un fichero con cosas asi: Catheter 6 Begin Number of Points 39
Point 0 Begin Coordinates 67.336888 52.054878 -2.064480 Status Active Weight 0.303272 End End
Necesito tomar esos datos del fichero para trabajar en ellos, realmente es una parte de un trabajo en un problema físico de calculo de dosis en tratamientos de cancer. (Son varios cateter y por cateter 39 puntos con ese formato) Y bueno si me podeís dar bibliografía de acceso a ficheros o códigos para leer datos como estos estaría muy agradecido. Muchas gracias
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Hola. la verdad no entiendo ni papa. te refieres a leer un archivo? Private Sub Form_Load() Dim sDatos As String Open "ruta_del_archivo" For Input As #1 sDatos = Input(LOF(1), #1) Close #1 MsgBox (sDatos) End Sub
saludos
|
|
|
En línea
|
|
|
|
programatrix
|
Me refiero a un fichero con ese formato el cual elabora un programa planificador, poder desde un programa mio leerlo y obtener posiciones de la fuente radiactiva y tiempo en dicha posición. Hay aproximadamente 111 posiciiones con su tiempo, y quiero leer todo eso pasando practicamente de otros datos.
|
|
|
En línea
|
|
|
|
Mad Antrax
|
Si es con ese formato, yo me posicionaría en el archivo con InStr() y Split()
|
|
|
En línea
|
No hago hacks/cheats para juegos Online. Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Yo leeria todo con un: Dim sDatos As String Dim Arr () As String Open "ruta_del_archivo" For Input As #1 sDatos = Input(LOF(1), #1) Close #1 Split(sDatos,vbNewLine) For x = 0 To Ubound(Arr) Arr(x) = LTrim(Arr(x)) Next
Asi en cada punto del array tenes una instruccion sin espacios GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
programatrix
|
Open App.Path & "\Datos\test.cha" For Input As #1 leercoordenadas = False leertiempos = False buscartiempos = False Do While Not EOF(1) 'Lee la linea Line Input #1, linea If leertiempos = True Then List2.AddItem linea leertiempos = False End If If InStr(linea, "Weight") > 0 And buscartiempos = True Then leertiempos = True buscartiempos = False End If If leercoordenadas = True Then List1.AddItem Trim(linea) leercoordenadas = False buscartiempos = True End If If InStr(linea, "Coordinates") > 0 Then leercoordenadas = True End If Loop
Con el siguiente código consigo que me aparezcan un listado de las coordenadas, hay unas 400 67.336888 52.054878 -2.064480 Y otro listado de los tiempos: 0.303272 Y uso la función trim para quitar los espacios en blanco pero no consigo hacerlos desaparecer, ni tratar el texto ni nada no entiendo :S Porque ya teniendo esas cadenas deberían ser fáciles de tratar, ¿No?
|
|
|
En línea
|
|
|
|
|
programatrix
|
Al final resolvi el problema, dejo parte del código por si a alguien le es útil, este código se encarga de ver cuantos puntos existen en el fichero para poder tomar los datos en una matriz posteriormente de esos elementos: leerpcateter = False filasmatriz = 0 Open directorio & "\LiveLoading.cha" For Input As #2 Do While Not EOF(2) Line Input #2, linea
If leerpcateter = True Then pcateter = CDbl(linea)
leerpcateter = False End If If InStr(linea, "Number of Points") > 0 Then leerpcateter = True End If
If pcateter > 0 Then filasmatriz = filasmatriz + pcateter pcateter = 0 End If Loop
Close #2
C = filasmatriz
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Acceso a fichero desde applet
Java
|
malakay86
|
2
|
2,592
|
8 Febrero 2008, 21:08 pm
por malakay86
|
|
|
Listar fichero acceso aleatorio
Programación C/C++
|
sexto
|
2
|
2,393
|
13 Mayo 2010, 08:30 am
por sexto
|
|
|
Acceso directo nombre parcial de fichero
Windows
|
Ikku
|
3
|
3,493
|
20 Febrero 2012, 00:56 am
por Eleкtro
|
|
|
Acceso en fichero binario en C
Programación C/C++
|
JHodges
|
1
|
1,715
|
17 Junio 2015, 01:01 am
por ivancea96
|
|
|
Acceso a fichero Excel en C++
Programación C/C++
|
nadales56
|
0
|
1,439
|
18 Marzo 2019, 09:38 am
por nadales56
|
|