Autor
|
Tema: (solucionado)[vb] ¿Como muestro esto en el debug? (Leído 5,797 veces)
|
SuperDraco
Desconectado
Mensajes: 2.505
Crew Dragon
|
Function DoesFileExist(FilePath As String, Optional FileAttr As VbFileAttribute) As Boolean If Len(Dir$(FilePath, FileAttr)) > 0 Then DoesFileExist = True Else DoesFileExist = False End Function Private Sub Form_Load() DoesFileExist "C:\file.txt" End Sub
¿Como puedo saber si me devuelve TRUE o FALSE, y de paso hacer un debug.print? gracias
|
|
« Última modificación: 16 Julio 2011, 00:14 am por pitoloko »
|
En línea
|
No he vuelto, solo estoy de paso.
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Function DoesFileExist(FilePath As String, Optional FileAttr As VbFileAttribute) As Boolean If Len(Dir$(FilePath, FileAttr)) > 0 Then DoesFileExist = True Else DoesFileExist = False End Function Private Sub Form_Load() DEBUG.PRINT DoesFileExist("C:\file.txt") End Sub
P.D: Indenta el codigo plz. 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*
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
dim XD as boolean XD = DoesFileExist "C:\file.txt" debug.print XD
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! dim XD as boolean XD = DoesFileExist "C:\file.txt" debug.print XD
XD Eso va a dar error, necesitas ponerle parentesis si o si cuando igualas a algo o llamas el resultado. 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*
|
|
|
SuperDraco
Desconectado
Mensajes: 2.505
Crew Dragon
|
gracias a los 2 ¿Es necesario volver a escribir la funcion y el string en el debug? el ejemplo que me habeis dado hace esto: debug.print funcion string ¿no se podría hacer con un simple parámetro/operador que reconozca el argumento anterior? algo así: (Lo sé, me ha quedado muy batch  ) EDITO: si, tengo que acostumbrarme a indentar, pero solo stoy practicando funciones XD EDITO2: por más que me he leido esto: http://wiki.gambas-es.org/index.php?title=Tabla_de_Traducci%C3%B3n_de_ordenes_de_VB6_a_GambasNo encuentro ningún tipo de parámetro para hacer lo que he dicho, pero si batch si que lo puede hacer, digo yo que vb también :S.
|
|
« Última modificación: 15 Julio 2011, 20:23 pm por pitoloko »
|
En línea
|
No he vuelto, solo estoy de paso.
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Ejemm No, no se puede, para escribir en la ventana de Inmediato tenes que hacer debug.print.
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*
|
|
|
SuperDraco
Desconectado
Mensajes: 2.505
Crew Dragon
|
si, a lo que me refiero es que debe existir algun parámetro en vb para reconocer el último argumento que ha pasado por el procedimiento... ¿¿¿¿NO??? por ejemplo: Private Sub Form_Load() DoesFileExist("C:\file.txt") DEBUG.PRINT %1 End Sub
DoesFileExist("C:\file.txt") sería el argumento 1Y El propósito de %1 (Pongo %1 porque no conozco dicho parámetro en vb) sería que hiciera esto: DEBUG.PRINT DoesFileExist("C:\file.txt") ¿Me entiendes?  Lo mismo, pero sin escribir tanto code, si en batch se puede, en vb como no se va a poder? espero que si, porque eso ahorraría muchas líneas de código 
|
|
« Última modificación: 15 Julio 2011, 20:33 pm por pitoloko »
|
En línea
|
No he vuelto, solo estoy de paso.
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Lo mismo, pero sin escribir tanto code, si en batch se puede, en vb como no se va a poder? espero que si, porque eso ahorraría muchas líneas de código  Deja de comprar batch con vb  Acaso lo probaste en vbs? No se puede, Debug.Print acepta cualquier variable de tipo simple (sea funcion o variable o constante u operacion)
|
|
|
En línea
|
|
|
|
SuperDraco
Desconectado
Mensajes: 2.505
Crew Dragon
|
bueno, vale vale  Solo intentaba averiguar eso, además, en vbs si que se puede... ...Por eso, es muy raro que en VB no. un saludo! PD: Pronto os intentaré recompensar la ayuda xD
|
|
« Última modificación: 15 Julio 2011, 21:51 pm por pitoloko »
|
En línea
|
No he vuelto, solo estoy de paso.
|
|
|
$Edu$
Desconectado
Mensajes: 1.842
|
Alguien no ha seguido los consejos de leer El Guille..
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
como se maneja el debug????
Juegos y Consolas
|
no entiendo na
|
0
|
1,766
|
12 Julio 2005, 17:11 pm
por no entiendo na
|
|
|
[Batch] | [Debug.exe] ¿Como hacer una salida ascii a un .txt?
Scripting
|
klaine
|
4
|
6,109
|
29 Marzo 2011, 22:57 pm
por klaine
|
|
|
[Pregunta]: ¿Como muestro el siguiente resultado?
Bases de Datos
|
Leguim
|
3
|
3,586
|
19 Octubre 2019, 18:24 pm
por Leguim
|
|
|
[Pregunta]: ¿Existe un problema real si muestro esto?
Desarrollo Web
|
Leguim
|
3
|
4,046
|
6 Agosto 2020, 03:21 am
por ThunderCls
|
|
|
Como muestro los servicios que estan corriendo en el sistema (Win/Lin)? | Python
Scripting
|
Drakaris
|
2
|
5,498
|
31 Agosto 2020, 16:40 pm
por Drakaris
|
|