Visual Basic - Ayuda VBScript

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda VBScript

Publicado por Juan (2 intervenciones) el 28/10/2009 20:22:32
Hola

No soy programador y necesito ayuda para crear un pequeño VBSCRIPT (pido disculpas si este no es el foro apropiado)

Lo que quiero hacer es lo siguiente, introducir mediante un InputBOX, un texto y que me lo transforme en un texto editable o lo copie al clipboard de la siguiente manera:

ejemplo:

en el input box indicamos el texto "juan"
InputBox("texto de?") :) jejeje

y me gustaría que se añadiera siempre lo siguiente

los texos de/j/ju/juan

es decir simpre la variable los textos de, lugo la primera letra de la variable introducida en el input box, luego las dos primeras letras de la variable y luego la variable completa

la formula seria:

los textos de /(primera letra variable)/(dos primeras letras variable)/variable

Alguien me puede ayudar por favor ....?????

Gracias
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:Ayuda VBScript

Publicado por Christian (666 intervenciones) el 28/10/2009 20:39:27
Hace algo asi

Dim Texto As String

Texto = InputBox("Ingrese su Texto")
Texto = Mid(Texto, 1, 1) & "/" & Mid(Texto, 1, 2) & "/" & Texto
MsgBox "Los textos de ... " & Texto
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:Ayuda VBScript

Publicado por Juan (2 intervenciones) el 28/10/2009 21:39:02
Christian, muchisimas gracias!!! es justo lo que buscaba.... y necesitaba :)))))))

ahora solo que queda una cosa, como podría copiar MsgBox en el clipboard ???

o si no es posible, que abra un notepad con texto, para poder hacer copy/paste

gracias
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:Ayuda VBScript

Publicado por Christian (666 intervenciones) el 30/10/2009 20:20:37
Dim Texto As String

Texto = InputBox("Ingrese su Texto")
Texto = Mid(Texto, 1, 1) & "/" & Mid(Texto, 1, 2) & "/" & Texto
Select Case MsgBox("Los textos de ... " & Texto & ". Desea guardarlo?", vbQuestion + vbYesNoCancel)
Case Is = vbYes
Open App.Path & "\salida.txt" For Output As #1
Print #1, Texto
Close #1
Case Is = vbNo
Clipboard.Clear
Clipboard.SetText (Texto)
Case Is = vbCancel
MsgBox "Los textos de ... " & Texto
End Select

bueno ahi esta con guardado incluido y con copiado al clipboard que deberia andar sin problemas
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:Ayuda VBScript

Publicado por juan carlos (518 intervenciones) el 29/10/2009 02:40:16
hola Juan
con la cuarta linea de este codigo puedes copiar al clipboard

texto = InputBox("Ingrese su Texto")
texto = Mid(texto, 1, 1) & "/" & Mid(texto, 1, 2) & "/" & texto
MsgBox "Los textos de ... " & texto
Clipboard.SetText (texto)
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:Ayuda VBScript

Publicado por Juan (2 intervenciones) el 29/10/2009 12:30:43
hola,
he probado de mil maneras el clipboard.settext pero no funciona , tambien he puesto antes el clipboard.clear

el error que da es:

Object requiered: 'Clipboard'
800A01A8

:´(
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:Ayuda VBScript

Publicado por Juan (2 intervenciones) el 29/10/2009 15:51:56
Hola

Os doy la solución, a mi me ha funcionado (lo he sacado otro foro)

:)

sText = "some text to clipboard"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
Do Until objIE.ReadyState=4: WScript.Sleep 1: Loop
objIE.Document.ParentWindow.ClipboardData.SetData "Text", sText
objIE.Quit

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