Veréis, primero de todo disculpad si mi duda es un tanto básica (supongo que si) pero es que he estado Googleando de alante atrás y de atrás alante y no he encontrado solución a mi problema...
Estoy haciendo un editor de Batch sencillito en VB, tengo dos textbox y un commandbutton dentro de un form ¿no?
El textbox primero (de nombre Text1) es un textbox grande, mutilinea, donde se supone que el usuario tiene que escribir el código de su .bat que quiere generar...
El otro textbox es para que el usuario escriba el nombre que le quiere dar a su .bat
Bien, todo me va correcto, cuando escribo por ejemplo pepe.bat en el text2 y escribo cualquier código en el text1, y le doy al botón, me genera sin problemas el .bat con el codigo que he escrito dentro...
Pero quería hacerlo un poco más profesional y que solo crease archivos con extensión .bat, es decir, porque si el usuario, en el textbox2 le pone de nombre al archivo pepe.html pues le crearía el archivo .html, y yo lo que quiero es hacer un generador unicamente de .bats, no de archivos en general :xD
Es decir, imaginemos que el usuario escribe en el textbox2 de nombre juan, pues quiero que mi programa, al darle al commandbutton, genere ya el archivo juan.bat sin necesidad de que el usuario tenga que teclear ninguna extensión, tan solo el nombre del archivo...
Es decir, lo que no sé hacer es como hacer para que el programa solo genere .bat`s...porque tal y como lo tengo ahora, el usuario podria generar .txt, html, php....es decir, todos los tipos de archivos que se pueden generar con el bloc de notas, pero yo quiero hacerlo solo para generar .bats...
Saludos thanks...
que pedazo de explicacion.... XD
pues lo que tienes que hacer es almacenar ese nombre en una bariable y añadirle .bat
Puedes hacer que no acepte . sería una cosa asi al presionar el boton
If instr(Text2.text,".") Then
MsgBOx "Hay un punto en el campo del nombre"
Else
'Aqui generas el bat
End If
Private Sub Command1_Click()
If Left$(LCase$(Text2.Text), Len(".bat")) <> ".bat" Then
MsgBox "La extension ha de ser .bat" 'Mostramos un mensaje
Exit Sub 'Salimos del procedimiento Command1_Click
End If
'Aqui tu codigo
End Sub
Recuerda que hay diferentes caracteres que no pueden existir en una ruta/fichero...
Saludos :D
MOD: ", ? , ¿, \, >, <, |
si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat
Cita de: XcryptOR en 1 Diciembre 2008, 21:56 PM
si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat
Eso no es lo que el pregunta, el pregunta que después de Juan pueden poner los usuarios las extensiones que quieran y él solo quiere que se ponga un nombre, ninguna extensión.
deberias leer un poco mejor, ademas mira el titulo del post
:-X
Tambien puedes utilizar el commondialog control
CommonDialog1.Filter = "*.bat"
CommonDialog1.ShowSave
Cita de: XcryptOR en 1 Diciembre 2008, 23:41 PM
deberias leer un poco mejor, ademas mira el titulo del post
:-X
Sabes rectifiacr tus fallos... bueno bueno ;)
Citar
si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat
Perfecto!! Resulta que lo que me faltaba era ese maldito simbolo de &....
Ains...que dolores de cabeza puede dar un solo signo....increíble... :xD
Muchisimas gracias a todos, cuando termine mi creación prometo que os la dedicaré a Elhacker.net :D