Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Agosto 21, 2008, 07:06:53
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Abrir,cortar,copiar y pegar 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Abrir,cortar,copiar y pegar  (Leído 498 veces)
Saok
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2823


Saok siempre esta ahi...


Ver Perfil WWW
« en: Abril 16, 2006, 07:43:21 »
ola

bueno,pues tengo una duda como serian los comandos para cortar,copiar y pegar un texto selecionado?

luego tengo este codigo para poder abrir archivos:

Private Sub mnuFileOpen_Click()
    Dim sFile As String


    With dlgCommonDialog
        .DialogTitle = "Abrir"
        .CancelError = False
        ' no se establecer los indicadores y atributos del control common dialog
        .Filter = "Todos los archivos (*.*)|*.*"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    'creo que aqui me tira un error porque me falta algo,peor no se el que abierto

End Sub

aver si me pueden ayudar

Saludos[sh]
En línea
www.colgados.net  date una pasadita por esta web de warez !
Hendrix
Visitante
« Respuesta #1 en: Abril 16, 2006, 08:25:09 »
Te refieres a sacar texto desde dentro de un documentos (ya sea .txt, .doc o incluso .exe...)Huh? Si es asi te va a servir esto:

Para abrir un archivo:


Dim tam as String
Open "C:\archivo.txt" For Binary As #1
tam = Space(Flelen("C:\archivo.txt"))
Get #1,,tam ' Aqui ponemos TODO el archivo dentro de tam

Luego se puede hacer esto:

text1.multiline = True
text1.text = tam

Y nos kedaria el archivo dentro del text1

Luego ya lo puedes modifikar.

Salu2

Hendrix
En línea
Saok
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2823


Saok siempre esta ahi...


Ver Perfil WWW
« Respuesta #2 en: Abril 16, 2006, 08:32:21 »
ola

si,peor lo que yo necesito es que me salgan todo los directorios komo kuando aces "abrir" en cualquier programa para selecionadlo y luego que se abra y meta el texto en un textbox2.

y porcierto y estos comandos cuales son?:
Citar
como serian los comandos para cortar,copiar y pegar un texto selecionado

saludos[sh]
En línea
www.colgados.net  date una pasadita por esta web de warez !
Hendrix
Visitante
« Respuesta #3 en: Abril 16, 2006, 08:46:43 »
Para ello lo ke tienes ke hacer es establecer en una variable la ruta y el nombre (filename) ke seleccionaste en el CommonDialgog

Se hace asi:

ruta = cd.Filename

Luego puedes hacer esto:

Open ruta For Bianry....

En kuanto lo enkuentre te mostrare komo copiar texto desde el Word en VB... Wink Wink Wink

Salu2

Hendrix
En línea
Saok
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2823


Saok siempre esta ahi...


Ver Perfil WWW
« Respuesta #4 en: Abril 16, 2006, 09:21:25 »
En línea
www.colgados.net  date una pasadita por esta web de warez !
Hendrix
Visitante
« Respuesta #5 en: Abril 16, 2006, 01:14:50 »
Cual es el problema?Huh explicate mejor... Wink Wink Wink

Salu2
En línea
Saok
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2823


Saok siempre esta ahi...


Ver Perfil WWW
« Respuesta #6 en: Abril 17, 2006, 05:40:10 »
ola

nada ese problema ya me lo resolvistes  Wink ,ahora solo me falta como copiar,cortar y pegar un texto selecionado

saludos[sh]
En línea
www.colgados.net  date una pasadita por esta web de warez !
Biocode
Habitual
*****
Desconectado Desconectado

Mensajes: 364



Ver Perfil
« Respuesta #7 en: Abril 19, 2006, 06:09:03 »
En línea
Saok
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2823


Saok siempre esta ahi...


Ver Perfil WWW
« Respuesta #8 en: Abril 20, 2006, 12:37:20 »
ola

gracias pero ya lo tenia,jejeje,es posible que lo sacaramos de la misma web porque tengo los mismos codigos  Wink peor gracias de todas formas

saludos[sh]
En línea
www.colgados.net  date una pasadita por esta web de warez !
Biocode
Habitual
*****
Desconectado Desconectado

Mensajes: 364



Ver Perfil
« Respuesta #9 en: Abril 21, 2006, 06:02:34 »
En línea
3F3CT0PI
Recien Llegado
*
Desconectado Desconectado

Mensajes: 19



Ver Perfil Email
« Respuesta #10 en: Abril 21, 2006, 09:01:12 »
Archivos.CancelError = True  "Si se cancela"
On Error GoTo ErrHandler      "que se dirija al ErrHandler"
 
Archivos.Filter = "Todos los archivos |*.*"
Archivos.ShowSave
Open Archivos.FileName For Binary As #1
Put #1, 1, Datos "variable"
Close #1

ErrHandler: "Esto sirve para que no de el error cuando uno se cancela el CommonDialog"
Exit Sub

3.1416......
En línea
Utilizar el conocimiento Solo en bien de la sociedad.
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Abrir,cortar,copiar y pegar « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC