Visual Basic - k alguien respondo algun dia

Life is soft - evento anual de software empresarial
 
Vista:

k alguien respondo algun dia

Publicado por Cristian (22 intervenciones) el 06/12/2001 19:26:10
como puedo hacer para guardar y cargar textos por lineas o por seciones.
text1.text = linea1 del archivo c:/texto.txt
text2.text= linea2 " " "
espero k algun dia alguien me responda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:k alguien respondo algun dia

Publicado por Christian A. Valeria Celedón (217 intervenciones) el 07/12/2001 01:04:19
Dim FilePath As String
Dim iNF As Integer
Dim TextLine As String

iNF = FreeFile
FilePath = "C:\TEXTO.TXT"

Open FilePath For Input As #iNF
Do While Not EOF(iNF)
Line Input #iNF, TextLine
Text1.Text = TextLine
Line Input #iNF, TextLine
Text2.Text = TextLine
Loop
Close #iNF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Asignar texto a textbox

Publicado por BENJO (82 intervenciones) el 07/12/2001 14:55:47
Hola:
Primero crea en un form, un TextBox con la propiedad Name como "MatrizTextBox" y después desde el form con el control textBox seleccionado copialo y volvelo a pegar en el form, te aparecerá un mensaje que te pregunta si querés hacer una matriz, decile que si y seguí pegando controles textBox, hasta los que necesites. Fijate que en la propiedad index el primero va a ser 0 el segundo 1, el tercero 2 y así sucesivamente. después en el evento Load copia el siguiente código

Dim LíneaTexto As String ' Variable que recibe el valor de la linea
Dim FREEnUM As Integer ' Variable para establcer el número del archivo de sistema que se puede abrir
Dim lineaNum As Integer ' Variable que consigna el número de linea
FREEnUM = FreeFile ' Asigna el número de archivo de sistema
Open "C:\Texto.TXT" For Input As #FREEnUM ' Abre el archivo del
usuario.
lineaNum = 1 ' inicializa la linea del archivo
Do While Not EOF(FREEnUM) ' Repite el bucle hasta el final del archivo.
Line Input #FREEnUM, LíneaTexto ' Lee el carácter y lo copia en la
variable.
If MatrizTextBox.Count >= lineaNum Then ' si el textbox tiene una matriz
igual o menor que el número de la linea del archivo
MatrizTextBox(lineaNum - 1).Text = LíneaTexto ' el -1 es porque la
matriz de controles comienza con 0 y la linea del archivo con 1
End If
lineaNum = lineaNum + 1 ' pasa a la linea siguiente en el archivo
Loop
Close #FREEnUM ' Cierra el archivo.
Mucha suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar