Visual Basic.NET - Pasar texto de un txt a otro txt

 
Vista:

Pasar texto de un txt a otro txt

Publicado por Roberto (2 intervenciones) el 27/05/2011 10:56:27
Hola, necesito ayuda ya que no sabria como hacer esto:

Tengo un fichero txt "fichero1.txt" con un texto plano con este contenido:

0015562 NNSSN MADRID 28055 MADRID
0015563 NNSSN BARCELONA 28055 MADRID
0015564 NNSSN SEVILLA 28055 MADRID
0015565 NNSSN MADRID 28085 MADRID

Y necesito crear otro txt "fichero2.txt" con los mismo campos pero cambiados:
Ejemplo:

MADRID 28085 MADRID 0015562
MADRID 28085 BARCELONA 0015563
MADRID 28085 SEVILLA 0015564
MADRID 28085 MADRID 0015565

Muchas Gracias
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

Pasar texto de un txt a otro txt

Publicado por Diego (81 intervenciones) el 27/05/2011 14:31:08
Sabes Abrir,Leer ,Crear ... Ficheros ??

Independientemente del nivel de programacion que tengas. si el Archivo es plano, tal que
Palabra, espacio, palabra, espacio puedes usar la Funcion Split

Dim Palabras () As String = Nothing
Palabras = Split(LineaArchivo, " ")

Donde palabras es una matriz que contiene todas las palabras del archivo

Despues podrias recorrerlo e ir insertado en el archivo destino segun quieres controlandolo por los indices del array
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

Pasar texto de un txt a otro txt

Publicado por Roberto (2 intervenciones) el 27/05/2011 14:43:08
Muchas gracias por la rapida respuesta:

Si se abrir el txt con:
IO.File.OpenRead("C:\fichero1.txt")

Y se crear el fichero con:

IO.File.CreateText("C:\fichero2.txt")

Pero no se leer por posicion, es decir, si tenemos 5 campos el 1º siempre empieza en la posicion 5 y va a tener un tamaño maximo de 10 caracteres, el 2º siempre empieza en la posicion 15 y tiene un tamaño maximo de 5 caractetec, etc... es decir que no debo buscar por espacios en blanco si no por posicion y nº de caracteres a capturar.

Haber si me puede ayudar. Gracias
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

Pasar texto de un txt a otro txt

Publicado por Diego (81 intervenciones) el 30/05/2011 10:16:23
Puedes usar la Funcion de Mid de cadenas


Dim Cadena As String = "Cadena de prueba"

'Parametros Cadena, InicioPosicion, caracteres desde la poscicion inicio


'Esto imprime Cadena
MsgBox( Microsoft.VisualBasic.Mid(Cadena, 1, 6))

'Esto imprime de
MsgBox(Microsoft.VisualBasic.Mid(Cadena, 8, 2))

'Esto imprime prueba
MsgBox(Microsoft.VisualBasic.Mid(Cadena, 11, 6))
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