ayuda para mi proyecto (txtmaker)

[andrer]

bueno es es mi proyecto

la pregunta es como puede hacer para que lo que escribo sobre los textbox aparescar en el lugar que le corespode del texto de la parte blanca cuando pulse en el boton make!

el texto lo tengo cargado con este codigo

Código:

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

solo me falta eso para terminarlo help me plz

[David]

A decir verdad, no entendí nada, ¿cuál es la función que usas para generar el texto?

[andrer]

hmm extraño yo pensaba que hablaba español gg :p

use el codigo para carga el texto de mi disco duro
pero para cargar el texto tengo que porner la ruta del archivo (txt) el el primer textbox lo tengo programa que para cuando pulse el foton open carge el texto (theme). bueno y ahora quiero que lo que escribo sobre la parte gris a paresca sobre la parte blanca en el texto eso es todo ayuda

[boluart]

Lo mas recomendable es que leas el archivo txt linea x linea, y no por Input$
y asi cuando este en la linea Title: le puedas asigar el valor correspondiente,

pero si no tienes otra opcion, tambie podrias hacer un replace "TITLE:....." x "TITLE: My TiTle"

[andrer]

no entiendo es lo pongo en el boton make

"TITLE:....." x "TITLE: My TiTle"

[boluart]

Replace(myControlText, "TITLE:.....", "TITLE: My Title")

[andrer]

no funciona :(

[andrer]

ok ahora funciona el codigo

txt_Contenido = Replace(txt_Contenido, "ARTiST:.........: ", "ARTiST:.........: " & Text1.Text)

ahora como bloqueo una parte del texto para que no se desplase al sustituir el texto
para que se mantega la forma del texto ejemplo

Código:

█▀▄▄██▀▀            ARTiST:.........:                          ▀▀██▄▄▀█

quiereo que las partes negra se mantenga en su sitio y no se desplasen hacia los lados cuando remplaze el texto ex:ARTiST:.........:bla bla bla

[culd]

Iniciado por andrer

ok ahora funciona el codigo





ahora como bloqueo una parte del texto para que no se desplase al sustituir el texto
para que se mantega la forma del texto ejemplo

Código:

█▀▄▄██▀▀            ARTiST:.........:                          ▀▀██▄▄▀█

quiereo que las partes negra se mantenga en su sitio y no se desplasen hacia los lados cuando remplaze el texto ex:ARTiST:.........:bla bla bla

1- Usa el tipo de letra "Lucida Console" que cada caracter siempre es parejo, osea deja el mismo espacio (ejemplo, arial no hace eso te deforma)

2- Usa Format("Texto", "!@@@@@@@@") donde la cantidad de @ es la cantidad de espacio Libre...
Entonces supongamos que vos tenes
ARTIST:....................
(20 espacios en blanco)
Reemplazas eso por...
Format("ARTIST: el artista", "!@@@@@@@@@@@@@@@@@@@@")

Con esas dos cosas siempre vas a mantener un orden...

Que capo no?

[andrer]

gracias por favor tu puedes hacer un ejemplo con visualbasic para entender mejor eso yo pienso esa es la solucion pero no acabo de entender muy bien plz

[Txoco]

Hola!

Primero, en el fichero que vayas a utilizar como plantilla, establece un formato de secuencia de escape para identificar cada campo. Por ejemplo, donde tú pongas "%artista%" debe ser sutituído por el contenido de la textbox del artista. La línea en el fichero quedaría así:

Código:

█▀▄▄██▀▀            ARTiST: %artista%▀▀██▄▄▀█

(observa que no hay espacios desde "%artista%" hasta los caracteres que representarían el marco del dibujo ASCII)

Y ahora tienes que:

- Dividir el contenido del fichero (ya cargado en memoria) en un array de líneas, utilizando la función Split, por ejemplo.
- Recorrer el array buscando, en cada línea, todas las secuencias de escape que hayas definido ("%artista%", "%titulo%", etc), utilizando InStr para saber si está, y si está, en qué posición. Si resulta que una secuencia está (Resultado de InStr > 0), sustitúyelo utilizando Replace así:

Código:

    Replace(arraylineas[numerolinea], "%artista%", <nombre del artista> & String(80 - len(arraylineas[numerolinea]) - len(<nombre del artista>), " "))

Esto te sustituye "%artista%" por el nombre del artista que le pongas y el número de espacios necesarios para que la línea completa tenga 80 caracteres, que es el standard para ficheros de texto plano ASCII. Si quieres otra cantidad, define una constante para ello, o una variable que puedas configurar en la interfaz.

Evidentemente, requieres algo más de código porque:
- Si el nombre de un campo supera el espacio disponible, te saltará un error (la función String intentará crear un número negativo de caracteres), aunque supongo que ese error será interceptable.
- Se puede optimizar para sustituir "Len("%artista%")" por una constante o un precálculo.

Pero eso te dejo que lo diseñes tú

[andrer]

ok yo intento pero eso es unpoco dificial para mi poca sabiduria