Tengo un problema con la operación CSV en vb.net, por favor dame una respuesta urgente
Simplemente use el lector y escritor de transmisiones
Use sr2 como un nuevo archivo de escritor de transmisiones ("2.csv", false, Text.) para escribir Enter
¿Usar sr1 como nuevo lector de flujo ("1.csv", Text.Encoding.Default)? El archivo a leer
¿Mientras?Not?sr1.EndOfStream ?'EndOfStream=True indica el final de leyendo
'Leyendo
Dim?lineread?As?String?=?"" ?'Línea para leer más tarde
Dim?linewrite?As?String ?=?"" ?'La línea que se escribirá más tarde
Dim?data?As?String()?Array de cada dato
lineread?=?sr1.ReadLine?' Leer una línea y retroceder una línea el flujo de datos
'Ahora puede usar If para determinar si desea eliminar la línea. Si desea eliminar, utilice Else para saltar directamente a la siguiente declaración.
data?=?lineread.Split(",".ToCharArray,?StringSplitOptions.RemoveEmptyEntries)? Lea una fila de datos, separados por comas y guárdelos en una matriz
'Los siguientes son los datos leídos, puede procesarlos usted mismo
¿Para?Cada?elemento?Como? String ?In?data
linewrite?amp;=?item?amp;?", "?'csv está separado por comas, por lo que también debemos recordar agregar comas al escribir
Siguiente
'Escribir
If?linewrite.EndsWith(",")?? "¿Entonces? "Elimine la última coma de la línea.
'Si antes se leyó una línea en blanco, no se ejecutará aquí. Piensa en por qué
sr2.WriteLine(linewrite.Remove(linewrite.Length?-?1,?1))
End?If
'If before If se utiliza para determinar la fila que se eliminará, ¿Fin? Si se debe agregar aquí.
¿Fin?Mientras
sr1.Close()
¿Fin?Usando
sr2.Flush()
sr2.Flush()
¿Fin?