elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda Editor de Texto VB .NET
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda Editor de Texto VB .NET  (Leído 3,300 veces)
gonzalo57

Desconectado Desconectado

Mensajes: 74



Ver Perfil
Ayuda Editor de Texto VB .NET
« en: 23 Diciembre 2012, 19:36 pm »

Weno hola a todos, miren estoy haciendo un editor de texto, es decir como puede ser el OpenOffice o Microsoft Word, me preguntaba como puedo poner para que un button guarde el texto escrito en el programa, y cuando lo abras se abra con el programa. Se que deberia crear una extension de archivo o algo pero weno no estoy muy informado en eso, alguien me ayuda? :D grache de ante mano

y porcierto tambien un label que pusiera cuantas lineas lleva puestas un richtextbox


lo necesito para dentro de muy poqito tiempo ayudenme


« Última modificación: 24 Diciembre 2012, 02:00 am por gonzalo57 » En línea

@echo off
title Gonzalo57
color 5a
echo Estoy aprendiendo Batch :3
echo.
pause
cls
echo un saludo elhacker.net :)
pause > nul
$Edu$


Desconectado Desconectado

Mensajes: 1.842



Ver Perfil
Re: Ayuda creando editor de texto
« Respuesta #1 en: 23 Diciembre 2012, 22:13 pm »

Dices para guardar tus archivos de textos con una nueva extension por ejemplo .gon y luego que en esa pc se pueda ejecutar archivos .gon que abriran tu programa principal pero ya con el texto que contenia el archivo .gon? Tendras que buscar como asociar una extension con tu programa como por ejemplo esto:

http://mel-green.com/2009/04/c-set-file-type-association/


En línea

gonzalo57

Desconectado Desconectado

Mensajes: 74



Ver Perfil
Re: Ayuda creando editor de texto
« Respuesta #2 en: 23 Diciembre 2012, 23:09 pm »

Dices para guardar tus archivos de textos con una nueva extension por ejemplo .gon y luego que en esa pc se pueda ejecutar archivos .gon que abriran tu programa principal pero ya con el texto que contenia el archivo .gon? Tendras que buscar como asociar una extension con tu programa como por ejemplo esto:

http://mel-green.com/2009/04/c-set-file-type-association/


Si, exactamente, pero no entiendo ni papa de lo que dice ese link, ademas esta en C#
En línea

@echo off
title Gonzalo57
color 5a
echo Estoy aprendiendo Batch :3
echo.
pause
cls
echo un saludo elhacker.net :)
pause > nul
$Edu$


Desconectado Desconectado

Mensajes: 1.842



Ver Perfil
Re: Ayuda creando editor de texto
« Respuesta #3 en: 24 Diciembre 2012, 00:20 am »

C# es parte de .NET, creaste tu tema en la sección de .NET como debes hacer pero no aclaraste que se trataba de VB.NET.

De todas formas, espera con paciencia a que te ayuden si no vas a buscar por tu cuenta, yo solo te queria dejar claro que es lo que tenias que buscar, solo te queda buscar mas.
En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Ayuda Editor de Texto VB .NET
« Respuesta #4 en: 24 Diciembre 2012, 07:49 am »

Te diría la forma más sencilla de hacerlo en 2 simples líneas usando Batch, bueno, usando el comando nativo de Windows "FTYPE" + ASSOC, y podrías usar "process.start" para hacerlo, pero creo que se me echarían encima xD y no quiero usar malas costumbres.

Primero tienes que registrar la extensión en el registro (Cuando digo registrar simplemente me refiero a crear la subclave en la rama HKEY_CLASSES_ROOT)
Y por último tienes que associar la extensión al programa que desees.

Por último déjame decirte que existen conversores de C# a VB.NET, y este es el code que te ha ofrecido $Edu$ convertido:

Código
  1. Imports Microsoft.Win32
  2. Imports System.Runtime.InteropServices
  3.  
  4. Public Class FileAssociation
  5. ' Associate file extension with progID, description, icon and application
  6. Public Shared Sub Associate(extension As String, progID As String, description As String, icon As String, application As String)
  7. Registry.ClassesRoot.CreateSubKey(extension).SetValue("", progID)
  8. If progID IsNot Nothing AndAlso progID.Length > 0 Then
  9. Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(progID)
  10. If description IsNot Nothing Then
  11. key.SetValue("", description)
  12. End If
  13. If icon IsNot Nothing Then
  14. key.CreateSubKey("DefaultIcon").SetValue("", ToShortPathName(icon))
  15. End If
  16. If application IsNot Nothing Then
  17. key.CreateSubKey("Shell\Open\Command").SetValue("", ToShortPathName(application) + " ""%1""")
  18. End If
  19. End Using
  20. End If
  21. End Sub
  22.  
  23.  
  24.  
  25. ' Return true if extension already associated in registry
  26. Public Shared Function IsAssociated(extension As String) As Boolean
  27. Return (Registry.ClassesRoot.OpenSubKey(extension, False) IsNot Nothing)
  28. End Function
  29.  
  30.  
  31.  
  32. <DllImport("Kernel32.dll")> _
  33. Private Shared Function GetShortPathName(lpszLongPath As String, <Out> lpszShortPath As StringBuilder, cchBuffer As UInteger) As UInteger
  34. End Function
  35.  
  36.  
  37.  
  38. ' Return short path format of a file name
  39. Private Shared Function ToShortPathName(longName As String) As String
  40. Dim s As New StringBuilder(1000)
  41. Dim iSize As UInteger = CType(s.Capacity, UInteger)
  42. Dim iRet As UInteger = GetShortPathName(longName, s, iSize)
  43. Return s.ToString()
  44. End Function
  45.  
  46.  
  47. End Class




EDITO:

He probado el code y no me ha funcionado en Windows7, escribe datos corruptos para el valor "icono" y "program", por ejemplo al usarlo así:
Código
  1. Associate(".Happy", "Notepad", "Happy Textfile", "notepad.exe,0", "notepad.exe")

En lugar de escribir "Notepad.exe", esto es lo que escribe en el registro: P+^ "%1"

Creo que el error sucede sólamente si tienes los nombres cortos desactivados en el sistema (como en mi caso),
la forma de arreglarlo es eliminando ToShortPathName en el código, y eliminar la función ToShortPathName que al no ser llamada ya no nos sirve para nada,
me parece una tontería que lo hayan puesto,
y ya con eso anda bien en mi caso :).

PD: Gracias por el code $Edu$


« Última modificación: 24 Diciembre 2012, 09:20 am por EleKtro H@cker » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Ayuda Editor de Texto VB .NET
« Respuesta #5 en: 24 Diciembre 2012, 09:20 am »

He mejorado el código bajo mis necesidades, a ver si te gusta :)

Código
  1. #Region " Associate File extension "
  2.    Public Sub Assoc( _
  3.                    ByVal File_extension As String, _
  4.                    ByVal Default_ID As String, _
  5.                    ByVal Kind_description As String, _
  6.                    ByVal Application As String, _
  7.                    Optional Application_arguments As String = " ""%1""", _
  8.                    Optional File_icon As String = "")
  9.  
  10.        Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("." & File_extension).SetValue("", Default_ID)
  11.        Using Associate_extension_key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.CreateSubKey(Default_ID)
  12.            Associate_extension_key.SetValue("", Kind_description)
  13.            Associate_extension_key.CreateSubKey("DefaultIcon").SetValue("", File_icon)
  14.            Associate_extension_key.CreateSubKey("Shell\Open\Command").SetValue("", Application & Application_arguments)
  15.        End Using
  16.  
  17.    End Sub
  18. #End Region

Ejemplos de uso:
Código
  1.        Assoc("bl", "Bloc", "Bloc TextFile", "Notepad.exe")
  2.        ' Los últimos dos argumentos son opcionales.
  3.        Assoc("PY", "Python", "Python script", "CMD /K ", """Python.exe ""%1"" %*""", "C:\Icons.dll,6")

Saludos.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Editor de texto en php
PHP
wizache 6 14,267 Último mensaje 2 Agosto 2007, 01:59 am
por wizache
Ayuda con editor de texto
Programación Visual Basic
Alquimista_hack 1 1,292 Último mensaje 25 Agosto 2007, 03:09 am
por HaDeS, -
Ayuda con editor de texto
Java
danielo- 2 4,117 Último mensaje 29 Septiembre 2010, 06:06 am
por danielo-
ayuda con un editor de texto en c++
Programación C/C++
lucas85 0 2,082 Último mensaje 8 Noviembre 2010, 05:24 am
por lucas85
Ayuda con editor de texto (seleccionar fuente)
Java
omar_cdg 1 1,325 Último mensaje 7 Septiembre 2015, 20:42 pm
por 0roch1
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines