| Ver tema anterior :: Ver siguiente tema |
| Autor |
Mensaje |
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
 Publicado: Mar Dic 13, 2005 2:48 pm Título del mensaje: dudas con codigo de visual basic |
 |
|
ho,a tengo un codigo de visual basic que ya lo e usado el problema e sque no s ecomo hacer una pekeñita cosa
| Código: |
Public Sub Crea_Archivo()
On Error GoTo Err_Handler
Dim Obj As Object
Dim F1 As Object
Dim varArray As Variant
varArray = Array("aki kiero que", "escriba los textos", "1 2 3")
Set Obj = CreateObject("Scripting.FileSystemObject")
Set F1 = Obj.CreateTextFile(App.Path & "\Test.txt")
MsgBox "Se ha creado el archivo 'Text.txt' en el directorio local"
F1.writeline varArray(0) & " " & varArray(1) & " " & varArray(2)
F1.Close
Exit Sub
Err_Handler:
MsgBox Err.Description
End Sub |
este es el codigo,
la duda es como hago que escriba lo k hay dentro del text1 2 i 3? gracias
la otra cosa seria como hago que guarde el archivo en un lugar concreto?
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
 |
w0rm
Yo soy el foro
Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
|
| Publicado: Mar Dic 13, 2005 3:30 pm Título del mensaje: |
|
|
Una mejora de tu código...
| Código: |
Private Sub Crea_Archivo(ByVal Directorio As String, ByVal Fichero As String)
On Error GoTo Err_Handler
Dim fCanal As Integer
Dim varArray As Variant
Dim Tamaño_Texto, Contenido As String
fCanal = FreeFile
varArray = Array("Linea 1", "Linea 2", "Linea 3", "", "by w0rm")
For Each i In varArray
Open Directorio & Fichero For Binary As #fCanal
Tamaño_Texto = LOF(fCanal)
Texto$ = Space$(Tamaño_Texto)
Get #fCanal, , Texto$
Contenido = RTrim$(Texto$)
Close #fCanal
Open Directorio & Fichero For Output As #fCanal
Print #fCanal, Contenido & i
Close #fCanal
Next i
Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical + vbOKOnly, Err.Number
End Sub |
Para usar dicha función en el formulario pones lo siguiente:
| Código: |
| Crea_Archivo "C:\", "prueba.txt" |
Claro que puedes cambiar el directorio y el nombre del fichero al que te de la gana,
siempre el directorio debe acabar con la barra \, de lo contrario dará error.
PD: El codigo crea un fichero que muestra una linea debajo de otra...
Espero que te sirva igualmente, sino pues modificalo y adaptalo para que escriba todo junto en una sola linea.
Salu2.
_________________
netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP... |
|
| Volver arriba |
|
|
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
| Publicado: Mar Dic 13, 2005 4:21 pm Título del mensaje: |
|
|
i como hago que en lugar de salir linea 1 linea 2.. salga lo que esta escrito en un textbox?
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
|
w0rm
Yo soy el foro
Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
|
| Publicado: Mar Dic 13, 2005 7:45 pm Título del mensaje: |
|
|
Pues sencillo...
| Código: |
Private Sub Crea_Archivo(ByVal Directorio As String, ByVal Fichero As String)
On Error GoTo Err_Handler
Dim fCanal As Integer
Dim Contenido_Txtbox as String
Dim Tamaño_Texto, Contenido As String
fCanal = FreeFile
Contenido_Txtbox = Text1.text 'Aqui va el nombre del textbox...
Open Directorio & Fichero For Binary As #fCanal
Tamaño_Texto = LOF(fCanal)
Texto$ = Space$(Tamaño_Texto)
Get #fCanal, , Texto$
Contenido = RTrim$(Texto$)
Close #fCanal
Open Directorio & Fichero For Output As #fCanal
Print #fCanal, Contenido & Contenido_Txtbox
Close #fCanal
Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical + vbOKOnly, Err.Number
End Sub |
Para usar dicha función en el formulario pones lo siguiente:
| Código: |
| Crea_Archivo "C:\", "prueba.txt" |
Claro que puedes cambiar el directorio y el nombre del fichero al que te de la gana,
siempre el directorio debe acabar con la barra \, de lo contrario dará error.
Salu2 nuevamente.
_________________
netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP... |
|
| Volver arriba |
|
|
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
| Publicado: Mie Dic 14, 2005 12:22 pm Título del mensaje: |
|
|
ahora e programa ya esta conpleto pero solo hace falta una pekeña cosa,
para kitar un programa, es decir cerrar un programa que esta enb uso que seria?
gracias! seras el primer en probar el programa
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
|
w0rm
Yo soy el foro
Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
|
| Publicado: Mie Dic 14, 2005 2:33 pm Título del mensaje: |
|
|
¿Te refieres a cerrar el proceso de un programa?
Aclarame eso y te paso un codigo u otro...
Salu2.
_________________
netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP... |
|
| Volver arriba |
|
|
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
| Publicado: Mie Dic 14, 2005 5:30 pm Título del mensaje: |
|
|
eso mi9smo cerrar uj proceso, un porgrama como pulsar la cruz
xD
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
|
otacon
Forero
Registrado: 06 Jul 2005
Mensajes: 186
Ubicación: C://Via Lactea/Tierra/España/La Rioja/...
|
| Publicado: Mie Dic 14, 2005 5:43 pm Título del mensaje: |
|
|
Eso lo tendrias que hacer en la parte de diseño...con el express edition 2005 ya te viene le codigo puesto 
_________________
|
|
| Volver arriba |
|
|
w0rm
Yo soy el foro
Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
|
| Publicado: Mie Dic 14, 2005 5:46 pm Título del mensaje: |
|
|
Ah vale, pues siento decirte que el código que tengo solo sirve
para cerrar procesos mediante la ID de dicho proceso.
Entonces no te va a servir ya que si no conoces la ID no puedes cerrarlo,
deberias primero consultar la ID y luego cerrarlo...
No tengo el codigo bien así que te recomiendo que busques por internet que seguro encuentras algo.
otacon, creo que se refiere a cerrar un proceso externo, no su aplicación...
Salu2.
_________________
netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP... |
|
| Volver arriba |
|
|
Facon
Yo soy el foro
Registrado: 30 Nov 2005
Mensajes: 958
Ubicación: /home/admin
|
| Publicado: Mie Dic 14, 2005 6:33 pm Título del mensaje: |
|
|
Yo de VB, no tengo ni la más remota idea ni de como se usa ni de que hace ni nada, y quisiera saber algo  :
Para que sirve eso???
_________________
Soporte Técnico Linux de Foroz
SO Probados
Windows (XP, 95, 98, MS-DOS), Linux (Mandrake, Debian, Ubuntu, Knoppix), BSD (FreeBSD [Sin éxito]).
|
|
| Volver arriba |
|
|
|
|
|
