caracteres de vb

[marcelx]

ola otra vez a los que estan leyendo esto

mi problemillaes que tengo un textbox y le agrego una direccion pero cuando la escribe sale con comillas por ejemplo

"c:/documetos/archivo.wav"

como le podria hacer para eliminar las comillas pero sin que se me eliminen el
" : " ni los " / "

porfavor expliquenme por favor


adiosssss

[A.H.H]

Hola especificas muy poco del problema pero te mando esto si te sirve......
pones un textbox en el form y escribes:


Private Sub Form_Load()
Dim direccion As String
direccion = "c:/documentos/archivo.wav"
Text1.Text = direccion

End Sub



salu2

[marcelx]

ddejame especificar:

en el form le agrege un textbox y un command buttom

en el form_load le puse

Private Sub Form_Load()
Text1.Text = Command$
End Sub

el Command$ muestra un archivo de entrada, no se si tu sabes, pero por ejemplo si yo habro carta.txt con miproyecto.exe el Command$ lee la direccion de el archivo carta.txt

y al poner la direccion de Command$ en el textbox la direccion aparece asi

"C:\miscartas\carta.txt"

y si te fijas sale con comillas y es eso lo que quiero eliminar para que quede asi

C:\miscartas\carta.txt

porfavor ayudame a solucionar ese problema

chauss saludossss¡¡¡¡

[A.H.H]

Hola he encontrado en la pagina de ELGUILLE una funcion que resuelve tu problema, (tranquilo que es cortita),pones la funcion en el form y en el form_load despues de lo que tu tenias le llamas a la funcion para eliminar las comillas del textbox,te pongo el codigo:


--------------------------------------------------------
Private Sub Form_Load()
Text1.Text = Command$
Text1.Text = LineaComandos() 'esta linea limpia las comillas del textbox
End Sub


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


--------------------------------------------------------------------

esto hace que te salga en el textbox la ruta sin las comillas.


salu2 espero haber ayudado.........

[marcelx]

muchisiiiiisisisisisisisimas gracias, me funciono perfecto lo que me dijiste

te lo agradesco mucho y bueno, saludosss