BUENO ESTE ES MI PROYECTO
;D
(http://i37.tinypic.com/fkqvy9.jpg)
NECESITO AYUDA PARA PROGRAMAR ESTO.
BASICAMENTE ES QUE EL TEXTO QUE ESCRIBA SOBRE EL TXTMAKER aparezca SOBRE EL TEXTO CUANDO PULSE SOBRE EL BOTON MAKE!.
PERO QUE aparezca EN EL LUGAR QUE LE CORESPONDE :)
ES DECIR .
SI ESCRIBO EL NOMBRE EL ARTIST aparezca DONDE PONE ARTIST EN EL ARCHIVO DE TEXTO.
OTRA COSA MAS TAMBIEN PARA PODER GUARDAR ESTO EN FORMATO txt o nfo .
bueno el dropbox es para arastr un archivo .avi o .mkv y genere la informacion de este arhivo (zize etc) pero eso es algo secundario
si alguen sabe algo sobre este tema ayuda porfavor ;)
GG es mi gran proroyecto
Hola,primero no escribas en mayusculas y segundo todo bien ...veo que tenes ganas de hacer algo..pero al final te falta todo el proyecto :xD...y digamos que estas pidiendo como hacerlo...
mmm este no pide ayuda este lo que pide es codigo O.O es decir que le faliciten TODO. °°¬¬°°
Para poner el texto en el lugar correspondiente usa InStr. Para guardarlo en el formato que quieras: Open "ruta del archivo.extension" For Output As #freefile
Investiga un poco, estudia y aprende antes de programar, no pidas que te lo den todo hecho.
Saludos!
has hecho tu todo el proyectto?
y no has podido hacer esa parte que yo considero mucho mas facil de lo que hayais hecho?
tengo entendido que el dibujito lo has hecho a base de puro codigo
crees que somos magos para saber como estas razonando tu proyecto??
ahora empiezo a creer que el programa no genera el texto, solo lo tienen predeterminado, bueno si es asi, pues coloca esa parte en un text que este oculto, pero no le coloques la ultima parte (artist, song ...)
luego cuando pulse el boton make:
textoMain.text = textoMain.text & vbctlf & " Artis...t: " & artist.text '.....
es la manera mas sencilla de hacerlo, esta que te pongo...
gracias a todos los que an dejado su comentario.
voy a enpesar con la programacion a ver que tal ;) y espero terminar este pequeño tool ;D
una pregunta mas. ;D para cargar un archivo con extensión .nfo dentro del cuadro blanco como hago eso ::) es que no tengo ni xorra idea :P help me plz
Leelo como un archivo de texto plano
Claro acá hay muchos ejemplos de como abrir un archivo y pasar el contenido a un textbox o la inversa :P
wow muchas gracias compañeros voy abanzando :D
lo de escribir y luego leer un txt no es nada de otro mundo .. por lo que veo en esa imagen no se como llegaste a que visualizara en el textbox todo ... me late que ni es tuyo ni tienes el codigo.. pero bueno mejor di que kieres hacer algo similar jejeje...
#esto te puede servir para guardar el contenido de los contoles textbox a un archivo de texto:
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
Print #1, text1.text 'escribe el contenido del control textbox1
Print #1, text2.text 'escribe el contenido del control textbox2
Close #1
#esto te puede servir para leer el contenido del archivo de texto y ponerlo dentro de los controles textbox:
Dim linea(2) As String
Open "Archivo.txt" For Input As #1 'Abre archivo
Line Input #1, linea(1) 'lee el contenido de la primera linea del archivo de texto
Text1.Text = linea(1) 'pone el contenido de la primera linea al textbox1
Line Input #1, linea(2)
Text2.Text = linea(2)
Close #1
Como viste es muy facil ... este ejemplo es para 2 controles .. le puedes añadir mas y usar cualkier control ...
tambien puedes hacer que guarde en un archivo binario pero si esto no entiendes ... bueno sin comentarios ...
Recomendacion ... busca ejemplos antes de consultar cositas muy simples ...
Salu2.
gracias por tu ayuda byway . en primer lugar el diseño es mio . en segundo lugar el texto no esta cargado con codigo solo cortar y pegar vamos lo de toda la vida :p solo cogi el texto y lo pege cuando pulse pare reproducir el proyecto eso era solo para indicarles a utedes lo que pretendo contruir :-* bla bla ... bueno mil gracias de nuevo
Cita de: andrer03 en 29 Agosto 2008, 18:56 PM
una pregunta mas. ;D para cargar un archivo con extensión .nfo dentro del cuadro blanco como hago eso ::) es que no tengo ni xorra idea :P help me plz
No me di cuenta de esta pregunta y bueno como no tengo nada que hacer asi que veamos como te ayudamos un pokitin mas jejeje...
usando un cuadro de dialogo abrir (commondialog) para abrir el archivo que ir previzualizar ... tambien un textbox que seria preview.Text le pones multiline en propiedades...
Private Sub Preview_archivo()
preview.Text = Empty
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Archivos de Texto (*.txt)|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> Empty Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, linea
preview.Text = preview.Text & linea & vbCrLf
Loop
Close #1
Else
preview.Text = "NO SE ABRIO NINGUN ARCHIVO"
End If
End Sub
listo ese seria el procedimiento para abrir cualkier archivo guardado y visualizarlo en el preview.text....
ves si lo pones en un boton o solo0 llamas al procedimiento...
otro detalle si kieres que el texto se vea como en tu imagen tienes que poner como dice jackl007 ツ ... entonces tienes que poner en el codigo anterior que te di esa condicion...
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
Print #1, text1.text 'escribe el contenido del control textbox1
Print #1, text2.text 'escribe el contenido del control textbox2
Close #1
seria asi:
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
texto1 = " Artist:...: " & text1.text
texto2 = " Title:.....: " & text2.text
Print #1, texto1 'escribe el contenido del control textbox1
Print #1, texto2 'escribe el contenido del control textbox2
Close #1
bueno listo con eso ya tienes casi listo tu proyecto ;D ;D
Pero sugiero que revises mas ok ..
salu2.
byway :rolleyes: ayudame un poco mas ;D
tengo cargado el texto con este codigo pero añadi un boton open!
Private Sub Command1_Click()
On Error GoTo Err_Sub
Dim n_File As Integer
Dim Contenido As String
'Número de archivo libre
n_File = FreeFile
'Abre el archivo indicado
Open txt_Path For Input As n_File
'Lee todo los datos del archivo y lo almacena en la variable
Contenido = Input$(LOF(n_File), #n_File)
'Cierra el archivo abierto
Close n_File
'Carga el contenido de la variable en el TextBox
txt_Contenido = Contenido
Exit Sub
Err_Sub:
MsgBox Err.Description, vbCritical
End Sub
pero no se donde tengo que poner el codigo segundo que tu aspuesto eso :
Open "Archivo.txt" For Append As #1 ' Abre archivo de salida para añadir
texto1 = " Artist:...: " & text1.text
texto2 = " Title:.....: " & text2.text
Print #1, texto1 'escribe el contenido del control textbox1
Print #1, texto2 'escribe el contenido del control textbox2
Close #1
eso lo tengo que poner soble el boton make?
o sobre el textbox1 etc ?
ayudame un poco mas compañero la pimera parte esta echa como te dije ;D
:-\ :-\ :-\ :-\
todo lo anterior lo junte y te lo dejo para que revises ok .. :huh: :huh: :huh:
descarga (http://www.gigasize.com/get.php?d=x5nbr0jf1nb)
seguro gracias yo mirro
byway ;D
tu codigo funciona pero solo guarda las lines programas y no guarda por ejemplo otros textos que este añadidos al archivo .txt
por ejenplo si se pudiera poner un palabra clave a lado del texto
ejemplo:
ARTiST...: {A}
TiTLE....: {B}
GENRE....: {C}
para que cuando escriba algo sobre el textbox se sustituya
si tu sabes un a solucion como esas dime plz ;)
:huh: :huh: :huh: :huh:
ponte a revisar ... :-\ :-[
yo piendo tengo que usar algo como eso
Private Sub Command2_Click()
Replace (textbox1.Text )
End Sub
Cita de: andrer03yo piendo tengo que usar algo como eso
Código:
Private Sub Command2_Click()
Replace (textbox1.Text )
End Sub
por favor aprende a usar replace... :xD
a ver señor matrix que nadie nace sabiendo si supiera no pediria ayuda :P
Bueno ... Bueno Creo que esto es una matanza, haber antes que nada pemitame dar una humilde opinion al respecto, resulta que nuestro amigo, necesita hacer, solo dios sabe que?... correcto, necesita ayuda en solo dios sabe que?... ahora si mas no recuerdo este foro es para despejar dudas respecto a problemas que pudieran surgir durante el desarrollo de un proyecto....
Si hasta hay nos entendemos vamos bien..... con los aportes que muchos dieron aca se pudieron hacer mas de una cosa, muy simple.... desde crear archivos con diferentes extensiones, hasta un editor de textos muy simple..... como recordatorios, etc.....
Creo que lo que nuestro amigo quiere es que le desarrollemos su proyecto, algo que desde luego algunos de nosotros lo podemos hacer dependiendo cual sea la inversion, ya que algunos estamos algo caiditos, jejejeje.... pero en fin, para nuestro amigo... no estaria de mas que te des una vueltita por www.google.com... que de seguro encontraras , no solo un ejemplo sino miles ... de ejemplos que solucionaran tu problema .... o al menos te dara una idea de lo que quieres hacer.... simpre es bueno que antes de lanzarte a realizar un proyecto, esquematices lo que quieres hacer, en base a ello, buscar las soluciones paso a paso, una aplicacion no se hace de la noche a la mañana, toma su tiempo... es por ello que se crearon los foros, para consultar dudas, con respecto a una idea clara, puede que tengas que reformular todo tu codigo, e iniciar nuevamente......
Codigos hay miles, pero ya dependera mucho del programador que uso darle....
Plantea bien tu duda.. y de seguro obtendras la solucion mas rapido de lo que te imaginas, y talves hasta tu mismo termines por darte la respuesta... y compartas con nosotros tus soluciones.....
Suerte y a Googlear un poco que no le hace daño a nadie.........
RickJack.........
Cita de: andrer03 en 3 Septiembre 2008, 09:51 AM
a ver señor matrix que nadie nace sabiendo si supiera no pediria ayuda :P
Nadie nacio sabiendo pero ya te enseñaron a leer y con eso es suficiente para leer un manual.
Cita de: andrer03 en 3 Septiembre 2008, 09:51 AM
a ver señor matrix que nadie nace sabiendo si supiera no pediria ayuda :P
Esta en todo lo cierto andrer03, pero vamos que no es tan difícil introducir "Replace en vb" dentro del text de google y mucho menos leer un par de resultados para quedar claro en algo tan sencillo como eso.
- ah ¿pero como sabía que era el replace lo que necesitaba?
¿Qué quiere hacer?
Primero piense en que es lo que lógicamente quiere hacer y luego lo busca, buscar una cadena dentro de otra? reemplazarlas? extraerlas? pasar el contenido de un archivo a un textbox? lo que sea! solo piensa y lo busca, que seguro lo encuentra o mejor aún, lee un manual básico, donde seguro aprendes cosas "básicas" como las que aquí consulta. y ya esta! se evitas estas respuestas y aprende en el intento ;)
wow como esta la cosa por unas pocas palabras y si el señor google es lo mas
ya que de ahi he sacado todo el codigo que usado para mi proyecto ;D
este es todo el codigo que use asta ahora
Private Sub Command2_Click()
txt_Contenido = Replace(txt_Contenido, "artist", "" & Text1.Text)
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
With Combo2
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
With Combo3
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
.AddItem "cual quier cosa"
End With
End Sub
Private Sub Command1_Click()
On Error GoTo Err_Sub
Dim n_File As Integer
Dim Contenido As String
'Número de archivo libre
n_File = FreeFile
'Abre el archivo indicado
Open txt_Path For Input As n_File
'Lee todo los datos del archivo y lo almacena en la variable
Contenido = Input$(LOF(n_File), #n_File)
'Cierra el archivo abierto
Close n_File
'Carga el contenido de la variable en el TextBox
txt_Contenido = Contenido
Exit Sub
Err_Sub:
MsgBox Err.Description, vbCritical
End Sub
Private Sub Command3_Click()
Dim namefile
namefile = name_release
Open App.Path & ("/" + namefile + ".nfo") For Output As #1
Write #1, txt_Contenido.Text
Close #1
End Sub
ggg ahora va otra pregunta.
al remplazar el texto con el code replace() remplaza bien el texto pero mueve las otros textos de su alrededor
EJEMPLO
█▀▄▄██▀▀ ARTiST:.........: ▀▀██▄▄▀█
bueno al remplazar el texto me muebe las partes negras y no quiero que pieda la forma texto que rodea en este caso siempre se mueve el texto de la parte derecha ya escribo de izquierda a derecha :o
bueno y eso quiero que el texto se pege , incuste es su sitio sin afectar a los texto de su alrededor
bueno espero que me entienda ya que soy chino(joke) ;D
tambien pido disculpas si alguien ofendi con mis palabras :-X
aqui un ejemplo de lo que quiero diceñar
Citar
http://rapidshare.com/files/242405236/sample.rar
pero como saben el codigo no se puede obtener, de ahi tanta preguntadera :)
utiliza len(variable/control) entonces reemplazas la cantidad de letras que contiene el textbox
salu2!
PD:
mira esto..
largo = len(Text1.Text)
busco = "ARTiST:"
for i = 0 to largo step 1
busco = busco & " "
next
txt_Contenido = Replace(txt_Contenido, busco, Text1.Text)
entonces lo que hago es: sako la cantidad de caracteres que tiene text1 y a "busco" le pongo artist: y le agrego los espacios correspondientes al largo de text1
no funciona como yo quiero al escribir se mueve las partes negra ahora hacia a dentro
si miras el ejemplo puedes ver que el texto de color rojo nunca se mueve al escribir ::)
Cita de: andrer03 aqui un ejemplo de lo que quiero diceñar
creo que no tenes mala intención, pero publicar un .exe por este ejemplo ya se pasa...
hehe si puede ser pero yo siempre hecido un pasado :P
nada solo decir que ya acabe el proyecto txtmaker v0.1 :laugh:
si despues de un tiempo retomo el proyecto estare por aqui dando guerra
y gracias por todo y como decia alguno google es dios ;D