Frage : Redigieren der CSV Akte in VB. Sichtstudio 2010 verwendete.

Ich habe eine CSV Akte, die wie dieses aussieht:
a, b, c, d, e, f
1,2,3,4,5,6

Can jedermann helfen mir, eine Weise herauszufinden, Nth (lässt 4. sagen), Spalte von jeder Linie in VB zu beseitigen?

I fand eine Weise, sie online zu analysieren, die wie dieses aussieht:

Private VorButton1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click

Using MyReader als neues Microsoft.VisualBasic.FileIO.TextFieldParser („ c:\test.cs v“)
MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType. Delimited
'einstellte den Begrenzer auf jedes mögliches value
MyReader.Delimiters = neue Schleife der Schnur-() {“, „}, verdunkeln

currentRow wie ()/>
'durch alle Felder in der Akte.
'wenn überhaupt Linien sind verdorben, berichten über eine Störung und fortfahren und zu analysieren.
während nicht MyReader.EndOfData
Try
currentRow = ()
'ouput der zweite Wert jeder Linie, zum zu zeigen, dass die Akte parsed.
currentRow gewesen (4)

MsgBox (currentRow (4))
der Fang ex als Microsoft.VisualBasic.FileIO.MalformedLineException
MsgBox („Linie“ u. ex. Mitteilung u. _
„ist unzulässig. Überspringendes“)
beenden Try

Ende While

Ende Using

Ende Sub

--------------------------

Works recht gut jedoch muss ich diesen Wert nicht zeigen, aber LÖSCHE it.

thank Sie,

Antwort : Redigieren der CSV Akte in VB. Sichtstudio 2010 verwendete.

„Ich muss Spalten löschen 100, 88 und 85, um Formatblick die selben zu bilden.“

Sie können ihn allen in den selben für Schleife tun:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

    Privates Unterseeboot Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click
        Schwacher Dateiname als Schnur = „c:\test.csv“
        Schwache Linien () als Schnur = System.IO.File.ReadAllLines (Dateiname)
        Schwache Werte als neue Liste (der Schnur)
        Für i als ganze Zahl = 0 zu lines.GetUpperBound (0)
            Werte. Löschen ()
            values.AddRange (Linien (i). Spalte („, "))

            'alle unerwünschten Spalten in rückwärts entfernen bestellen 
            'so müssen Sie die Spaltenzahlen nicht justieren, während Sie gehen
            values.RemoveAt (99) 'entfernen 100. Spalte
            values.RemoveAt (87) 'entfernen 88. Spalte
            values.RemoveAt (84) 'entfernen 85. Spalte

            Linien (i) = String.Join („,“, values.ToArray)
        Zunächst
        System.IO.File.WriteAllLines (Dateiname, Linien)
    Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us