Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
Comprobar Existencia De Comando Antes De Ejecutarlo En El Objeto.
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Re: Comprobar Existencia De Comando Antes De Ejecutarlo En El Objeto. 
 
Gracias jsbsan, ahora lo pillo bien.

Una cosa en la que siempre he tenido algna dificultad es en la wki de gambas no se bien el porque pero yo a veces no temino de entenderla.

Ahora con lo que dices ya entiendo mejor - el componente, reflicte en su propriedad text un lugar para la ejecucion de un comando y por eso el $ls /home... que seria (list my home directories)el.

Asi es más facil.

Gracias.
 



 
portaro - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comprobar Existencia De Comando Antes De Ejecutarlo En El Objeto. 
 
Sigo lidiando con el código y he descubierto que no es facil sustituir el print por un text area , el print se usa en modo texto y el textarea es objecto pero por alguna razon que desconozco no funciona dentro de un IF Then Else Endif.

Os dejo el código que me ha funcionao a medias o sea yo queria que en caso de que el hwloc no este se muestre el resultado del comando que me recomendaron (which) pero tambien tube que sustituir por (dpkg -l ) ya que el which no printeaba nada.

Bueno el código aunque mucho tiene que pulirse (me gustaria aportar ademas que he leido unas quantas veces los anteriores comentarios y ayudas y le di mil vueltas al código que termino asi) →

Public Sub Button3_Click()
 Dim salida As String
 'Dim comando As String
 'Dim programa As String
 
 Shell "dpkg -l hwloc" To salida
  'Shell "dpkg -l" & comando To salida
  'Shell "dpkg -l hwloc" & user.home To salida
  'Wait 0.01
  
    'comando = "hwloc"

  TextArea1.Text = salida
      If salida = " " Then
     ' Read salida
    
      Else
        Shell "lstopo"
      
      Endif

End
 


Este código me da retorno al objecto TextArea del comando dpkg -l hwloc (hwloc es el paquete que te instala el comado lstopo) despues más abajo me entra en el IF Endif y me lo ejecuta bien en una ventana del mismo lstopo que yo queria que se metiera dentro del text area.

Por cierto por añadir cosas al programa como en un Texarea se le mete al lado un scroll vertical que de paso le meto otro boton más y le hago un dpkg -l , y asi vamos haciendo una navaja de sistema Debian para quien le guste .

Recordando que a estas alturas la aplicacion hace lo siguiente →
Te listea tu distribución , version.
Te listea versiones Kernel.
Te ejecuta lstopo para ver procesador datos.
Otras ideas estan en camino aunque no se si las podre hacer, más que de mi depende de vosotros que me ayudais ya que yo programando muy bueno no soy.

2018-01-04-231009_1280x1024_scrot

Gracias.
 



 
última edición por portaro el Viernes, 05 Enero 2018, 00:11; editado 1 vez 
portaro - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comprobar Existencia De Comando Antes De Ejecutarlo En El Objeto. 
 
gambas incluye un comando:

System.Exist(programa as string) as boolean
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comprobar Existencia De Comando Antes De Ejecutarlo En El Objeto. 
 
Public Function CheckProgram(sProg As String) As Boolean

  Dim iPos As Integer

  iPos = InStr(sProg, " ")
  If iPos Then sProg = Left(sProg, iPos - 1)
  Return Not System.Exist(sProg)

End
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Comprobar Existencia De Comando Antes De Ejecutarlo En El Objeto. 
 
Muchas gracias v3ctor, intentaré darle unas vueltas a tu sugerencia a ver si logro adaptarlo y así me ahorro unas líneas de código y sera más apropiado a lo que quiero, pero tendré que estudiar tus aportes.

Gracias por toda la ayuda.
 



 
portaro - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Como Saber La Existencia De Un Archivo aristicol General 3 Viernes, 18 Junio 2010, 12:14 Ver último mensaje
AnSnarkista
No hay nuevos mensajes Comprobar La Existencia De Un Archivo En I... 4octavio4 General 6 Miercoles, 16 Marzo 2011, 12:47 Ver último mensaje
4octavio4
No hay nuevos mensajes Ejecutar Un Programa De Gambas Con Determi... jousseph Controles/Librerías/Componentes 7 Jueves, 10 Septiembre 2015, 22:03 Ver último mensaje
jousseph
No hay nuevos mensajes Duda Con Wttr.in En Comando Terminal Y Ese... portaro Shell Scripting 7 Domingo, 05 Enero 2020, 18:20 Ver último mensaje
portaro
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron