Hi Leute,
ich habe eine Exeltabelle mit ca. 3000 Zeilen. Das Problem ist das nicht alle Zeilen vollständig sind: wenn die gleiche Beschriftung vorkommt wurde sie durch ein ditto ersetzt.
um das Programieren zu erleichtern hab ich die Tabelle in eine .txt-Datei umgewandelt und die Tabstopps mitgespeichert. das sieht ungefähr so aus:
test1 test2 test3
ditto ditto ditto
ditto test4ditto
ditto ditto ditto
Da ich ein Anfänger in VB bin hab ich mir die einzelnen Schnipsel, die ich brauchte aus Foren und Büchern zusammengesucht. Dabei ist das herausgekommen:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("C:/temp/test.txt")
Dim a As String
a = ""
Dim infile As New FileStream("C:/temp/test.txt", FileMode.Open)
Dim sr As New StreamReader(infile)
Dim zeile As String
zeile = sr.ReadLine
While zeile = sr.ReadLine
End While
Dim Tokened() As String = zeile.Split(ControlChars.Tab)
Try
Dim outfile As New FileStream("C:/temp/testabgeschlosen.txt", FileMode.CreateNew)
Dim sw As StreamWriter = New StreamWriter(outfile)
If a IsNot "ditto" Then
My.Settings.Satz() = Text IsNot "ditto" 'Ab hier bin ich am rumprobiern. Das My.Settings ist nur ein Ansatz
My.Settings.Save()
My.Settings.Reload()
ElseIf a = "ditto" Then
sw.WriteLine(My.Settings.Satz)
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
Wahrscheinlich ist das voll umständlich, was ich da gemacht habe aber hoffentlich könnt ihr mir helfen.
Danke schon mal im voraus
Ein verzweifelter VB Anfänger