Visual Basic - Urgente!!! Pasar parametros a Aplicacion VB

Life is soft - evento anual de software empresarial
 
Vista:

Urgente!!! Pasar parametros a Aplicacion VB

Publicado por Snake (49 intervenciones) el 12/08/2001 01:22:48
Nesesito Ayuda urgente, nesesito saber como puedo llamar a mi aplicacion pasandole parametros.

Por Ejemplo
Editor C:\texto.txt

Donde Editor = Aplciacion VB
C:\Texto.txt = Fichero que tiene que abrir mi Aplicacion

Ojala entiendan, lo que nesesito,
Saber como trabajar los parametros en mi Aplicacion VB

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente!!! Pasar parametros a Aplicacion VB

Publicado por Ery (155 intervenciones) el 12/08/2001 04:40:08
Busca dentros de las API una que te permita leer la entrada Standard. Si programas C sabes que son los flujos Standard. Hay una libreria disponible en internet llamada vbcgi o cgivb no recuerdo con la que podias escribir cgi en vb4, esta usa el api que te digo. Debe existir seguro formas mas faciles pero desde la linea de comando puedes usarla. Nunca he tenido la necesidad de hacer una aplicacion como esa!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente!!! Pasar parametros a Aplicacion VB

Publicado por jamoni (44 intervenciones) el 13/08/2001 00:12:26
Un truco/colaboración/rutina del colega Guille http: //www.wcostasol.es/guiller

Algunas veces cuando recibimos un archivo de la línea de comandos, pueden tener caracteres de comillas, sobre todo si trabajamos con VB4 de 32 bits.Para usar esta función deberás asignarla a una cadena o usarla directamente.

sFile = LineaComandos()
Private Function LineaComandos() As String
Dim sTmp As String
Dim i As Integer

'Comprobar si hay algún archivo en la línea de comandos

sTmp = Trim$(Command$)
If Len(sTmp) Then
'Si tiene los caracteres de comillas, quitarselos
i = InStr(sTmp, Chr$(34))
If i Then
sTmp = Left$(sTmp, i - 1) & Mid$(sTmp, i + 1)
i = InStr(sTmp, Chr$(34))
If i Then
sTmp = Left$(sTmp, i - 1) & Mid$(sTmp, i + 1)
End If
End If
End If
LineaComandos = sTmp
End Function

Nota: Creo que esto te ayudará a hacer lo que quieres.

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar