Vraag : het uitgeven van Csv- dossier in VB. Visuele Studio gebruikte 2010.

Ik heb een Csv- dossier dat als dit kijkt: laat
a, B, c, D, e, f
1,2,3,4,5,6

Can iedereen helpt me een manier berekenen om Nth (vierde zeggen) kolom van elke lijn in VB te elimineren?

I vond een manier om het online te ontleden die als dit kijkt:

Private SubButton1_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click

Gebruikend MyReader als Nieuwe Microsoft.VisualBasic.FileIO.TextFieldParser („ c:\test.cs v“)
MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType. Delimited
'plaatste de afbakening aan om het even welke value
MyReader.Delimiters = Nieuw Koord () {“, „}/> Schemerige currentRow


'Lijn
'als om het even welke lijnen corrupt zijn, een fout melden en blijven ontledend.
terwijl niet MyReader.EndOfData
Try
currentRow = MyReader.ReadFields ()
'ouput de tweede waarde van elke lijn om aan te tonen dat het dossier parsed.
currentRow (4)

MsgBox (currentRow (4) is geweest)/> Vangst
IO.MalformedLineException
MsgBox („Lijn“ & ex. Het bericht & _
„zijn ongeldig. Het overslaande“)/> Eind van Using



/>/> Sub



Works vrij goed, echter, moet ik deze waarde niet tonen, maar SCHRAP it.

thank u,

Antwoord : het uitgeven van Csv- dossier in VB. Visuele Studio gebruikte 2010.

De „behoefte van I om kolommen 100, 88, en 85 te schrappen om formaat te maken het zelfde kijken.“

U kunt het allen in het zelfde voor Lijn doen:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
        Schemerige FileName als Koord = „c:\test.csv“
        Schemerige lijnen () als Koord = System.IO.File.ReadAllLines (FileName)
        Schemerige waarden als Nieuwe Lijst (van Koord)
        Voor I als Geheel = 0 aan lines.GetUpperBound (0)
            waarden. Ontruim ()
            values.AddRange (lijnen (I). Spleet („,“))

            'verwijder achteruit alle ongewenste kolommen in opdracht geven tot 
            'zo moet u niet de kolomaantallen aanpassen aangezien u gaat
            values.RemoveAt (99) 'verwijder 100ste kolom
            values.RemoveAt (87) 'verwijder 88ste kolom
            values.RemoveAt (84) 'verwijder 85ste kolom

            lijnen (I) = String.Join („,“, values.ToArray)
        Daarna
        System.IO.File.WriteAllLines (FileName, lijnen)
    Sub van het eind
Andere oplossingen  
 
programming4us programming4us