Visual Basic - ayuda con Texto

Life is soft - evento anual de software empresarial
 
Vista:

ayuda con Texto

Publicado por Elizabeth (71 intervenciones) el 30/12/2004 20:43:49
Saludos a toda la comunidad

Alguien me podria ayudar, necesito saber con que instrucciones desde visual basic puedo escribir en un txt, voy a hacer un programa que escriba en un archivo plano por ejemplo del espacio 1 al 5 poner un nombre, del espacio 6 al 14 poner un apellido y asi sucesivamente pero tambien que al terminar ese renglon hacer lo mismo con el siguiente, del 1 al 7 direccion, del 8 al 20 calle etc, etc como puedo hacer eso, alguien me podria enviar un ejemplo o decirme que instrucciones utilizo, se los agradecere
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:ayuda con Texto

Publicado por Maiko (1 intervención) el 30/12/2004 21:02:12
Hola acabo de ver tu mensaje.. yo tambien busco ayuda... es el que esta antes que el tuyo ..
por lo de tu mensaje quizas te sirva los siguientes codigos

para asignar como dices solamente hasta los 7 espacios los nombres y luego de esoso los apellidos etc podria ser asi

txtNombre.text = left(nombre,7) & " " & left(apellidos,7)

siendo el txtNombre la caja de texto
nombre = variable que contiene el nombre
apellidos = variable que contiene los apellidos
y donde estan dentro de la funcion Left() que es una funcion que en este ejemplo asigna a la caja de texto los 7 primeros espacios a partir de la izquierda para el contenido asignado en la variable nombre y luego apellidos
ojala me entiendas nos leemos luego
Hector (Maiko)
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

RE:ayuda con Texto

Publicado por Maiko (4 intervenciones) el 30/12/2004 21:09:57
Se me olvido decir que asi mismo existe otra funcion llamada que tienen la estructura "mid(variable,inicio,fin)"
donde
Mid= es el nombre de la funcion obvio jejeje
variable : es la variable u objeto que se quiere asignar
inicio : indica la posicion de inicio de un texto
termino : indica donde es el fin del texto que quieres obtener

ejemplo :
si una variabla tiene el contenido de la frase "estoymediolokoporti"
y quieres obtener la frase "medio" desde ahi el codigoseria el sgte:

variable = "estoymediolokoporti"
txtFrase = Mid(6,10)
ya que si cuentas las letras en la variable "variable" ja.. te daras cuenta que desde la posicion 6 hasta la 10 esta la frase "medio"
ojala te sirva chao


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

Pero es lo contrario

Publicado por Elizabeth (71 intervenciones) el 30/12/2004 21:27:49
No quiero leer quiero escribir en un txt e indicale en que parte como hago eso y gracias se que de algo me servira
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

RE:Pero es lo contrario

Publicado por Maiko (4 intervenciones) el 30/12/2004 22:48:57
sorry ke haya entendido mal

entonces podria ser... en el evento change del textbox
pregunta sobre si el largo del textbox es tal cantidad .. hace algo con la funcion
ejemplo :

If Len(textbox.text) = 7 Then
' agregar espacio u otra cosa que quiera
End If

o podria ocuparla con el select case

ejemplo
largo = Len(textbox.text)
select case(largo)
case 7 : ' accion 1
case 10: 'otra accion etc
end select

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

RE:ayuda con Texto (ejemplo)

Publicado por miguel (1042 intervenciones) el 31/12/2004 01:37:01
Aqui tienes un ejemplo donde escribe en un archivo y selecciona la ruta donde desea guardarlo por medio de un commondialog despues de ponerlo el nombre graba la informacion:
Private Sub Command1_Click()
Dim Texto
Dim Ban As Boolean
Dim I, J As Integer
CD.Filter = "Archivo de Texto (*.txt)|*.TXT"
CD.ShowSave
If CD.FileName <> "" Then
If Dir(CD.FileName) <> "" Then 'Si Existe el Archivo
Kill CD.FileName 'Lo Eliminamos
End If
Open CD.FileName For Output As #1
Texto = Mid("Miguel Angel", 1, 5)
Texto = Texto + Mid("Jordan Carter", 1, 8)
Print #1, Texto
Texto = Mid("CONOCIDO", 1, 7)
Texto = Texto + Mid("NINGUNO NINGUNO", 1, 12)
Print #1, Texto
Close #1
''Si queremos Abrir el Archivo
Dim MyValue
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & CD.FileName, vbMaximizedFocus)
End If
End Sub
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