Variabeln mit Definieren
lima-city → Forum → Programmiersprachen → Basic
anfang
beschrieben url
code
datei
eintragen
ende
ersten tag
filterung
http
klappen
pfad
prinzip
problem
setting
speichern
steigenden zahlen
string
tag
text
url
-
Hallo nocheinmal! :)
Auch das nächste Große tag/problem">Problem lässt nicht lange auf sich warten!
Mitlerweile bin ich beim Speichern der Einträge angekommen (per INI Datei).
Das Funktioniert im Prinzip schon , doch leider nur wenn auch alle Variabeln einen Wert durch die Textboxen erhalten.
Nun möchte ich einfach einbauen das jede Variabel die von den Textboxen mit "" belegt werden den Inhalt 00:00 bekommen.
Ich denke das es mit For each klappen kann , weis aber nicht genau wie.
Hier einmal alle Variabeln und Co.
'Variabeln der Textboxen Dim tag1A As String = TextBox1.Text Dim tag1E As String = TextBox2.Text Dim tag1AN As String = TextBox7.Text Dim tag1EN As String = TextBox4.Text 'Bis 31 selbes Prinzip mit steigenden Zahlen 'Filterung der Zahlen nach dem : 'Tag 1 Dim ltag1A As String Dim rtag1A As String Dim ltag1E As String Dim rtag1E As String Dim ltag1AN As String Dim rtag1AN As String Dim ltag1EN As String Dim rtag1EN As String ltag1A = Microsoft.VisualBasic.Left(tag1A, 2) rtag1A = Microsoft.VisualBasic.Right(tag1A, 2) / 100 * 60 ltag1E = Microsoft.VisualBasic.Left(tag1E, 2) rtag1E = Microsoft.VisualBasic.Right(tag1E, 2) / 100 * 60 ltag1AN = Microsoft.VisualBasic.Left(tag1AN, 2) rtag1AN = Microsoft.VisualBasic.Right(tag1AN, 2) / 100 * 60 ltag1EN = Microsoft.VisualBasic.Left(tag1EN, 2) rtag1EN = Microsoft.VisualBasic.Right(tag1EN, 2) / 100 * 60 'bis 31 selbes Prinzip mit steigenden Zahlen 'Eintragen in die INI.datei Dim INI As New INIDatei INI.Pfad = My.Application.Info.DirectoryPath & "\settings.ini" 'Pfad = bin/debug 'Tag 1 INI.WertSchreiben("Anfang", "tag1A", ltag1A + rtag1A) INI.WertSchreiben("Ende", "tag1E", ltag1E + rtag1E) INI.WertSchreiben("Anfang", "tag1AN", ltag1AN + rtag1AN) INI.WertSchreiben("Ende", "tag1EN", ltag1EN + rtag1EN) 'Tag 2 INI.WertSchreiben("Anfang", "tag2A", ltag2A + rtag2A) INI.WertSchreiben("Ende", "tag2E", ltag2E + rtag2E) INI.WertSchreiben("Anfang", "tag2AN", ltag2AN + rtag2AN) INI.WertSchreiben("Ende", "tag2EN", ltag2EN + rtag2EN) 'Tag 3 INI.WertSchreiben("Anfang", "tag3A", ltag3A + rtag3A) INI.WertSchreiben("Ende", "tag3E", ltag3E + rtag3E) INI.WertSchreiben("Anfang", "tag3AN", ltag3AN + rtag3AN) INI.WertSchreiben("Ende", "tag3EN", ltag3EN + rtag3EN) 'Tag 4 INI.WertSchreiben("Anfang", "tag4A", ltag4A + rtag4A) INI.WertSchreiben("Ende", "tag4E", ltag4E + rtag4E) INI.WertSchreiben("Anfang", "tag4AN", ltag4AN + rtag4AN) INI.WertSchreiben("Ende", "tag4EN", ltag4EN + rtag4EN) 'Tag 5 INI.WertSchreiben("Anfang", "tag5A", ltag5A + rtag5A) INI.WertSchreiben("Ende", "tag5E", ltag5E + rtag5E) INI.WertSchreiben("Anfang", "tag5AN", ltag5AN + rtag5AN) INI.WertSchreiben("Ende", "tag5EN", ltag5EN + rtag5EN) 'Tag 6 INI.WertSchreiben("Anfang", "tag6A", ltag6A + rtag6A) INI.WertSchreiben("Ende", "tag6E", ltag6E + rtag6E) INI.WertSchreiben("Anfang", "tag6AN", ltag6AN + rtag6AN) INI.WertSchreiben("Ende", "tag6EN", ltag6EN + rtag6EN) 'Tag 7 INI.WertSchreiben("Anfang", "tag7A", ltag7A + rtag7A) INI.WertSchreiben("Ende", "tag7E", ltag7E + rtag7E) INI.WertSchreiben("Anfang", "tag7AN", ltag7AN + rtag7AN) INI.WertSchreiben("Ende", "tag7EN", ltag7EN + rtag7EN) 'Tag 8 INI.WertSchreiben("Anfang", "tag8A", ltag8A + rtag8A) INI.WertSchreiben("Ende", "tag8E", ltag8E + rtag8E) INI.WertSchreiben("Anfang", "tag8AN", ltag8AN + rtag8AN) INI.WertSchreiben("Ende", "tag8EN", ltag8EN + rtag8EN) 'Tag 9 INI.WertSchreiben("Anfang", "tag9A", ltag9A + rtag9A) INI.WertSchreiben("Ende", "tag9E", ltag9E + rtag9E) INI.WertSchreiben("Anfang", "tag9AN", ltag9AN + rtag9AN) INI.WertSchreiben("Ende", "tag9EN", ltag9EN + rtag9EN) 'Tag 10 INI.WertSchreiben("Anfang", "tag10A", ltag10A + rtag10A) INI.WertSchreiben("Ende", "tag10E", ltag10E + rtag10E) INI.WertSchreiben("Anfang", "tag10AN", ltag10AN + rtag10AN) INI.WertSchreiben("Ende", "tag10EN", ltag10EN + rtag10EN) 'Tag 11 INI.WertSchreiben("Anfang", "tag11A", ltag11A + rtag11A) INI.WertSchreiben("Ende", "tag11E", ltag11E + rtag11E) INI.WertSchreiben("Anfang", "tag11AN", ltag11AN + rtag11AN) INI.WertSchreiben("Ende", "tag11EN", ltag11EN + rtag11EN) 'Tag 12 INI.WertSchreiben("Anfang", "tag12A", ltag12A + rtag12A) INI.WertSchreiben("Ende", "tag12E", ltag12E + rtag12E) INI.WertSchreiben("Anfang", "tag12AN", ltag12AN + rtag12AN) INI.WertSchreiben("Ende", "tag12EN", ltag12EN + rtag12EN) 'Tag 13 INI.WertSchreiben("Anfang", "tag13A", ltag13A + rtag13A) INI.WertSchreiben("Ende", "tag13E", ltag13E + rtag13E) INI.WertSchreiben("Anfang", "tag13AN", ltag13AN + rtag13AN) INI.WertSchreiben("Ende", "tag13EN", ltag13EN + rtag13EN) 'Tag 14 INI.WertSchreiben("Anfang", "tag14A", ltag14A + rtag14A) INI.WertSchreiben("Ende", "tag14E", ltag14E + rtag14E) INI.WertSchreiben("Anfang", "tag14AN", ltag14AN + rtag14AN) INI.WertSchreiben("Ende", "tag14EN", ltag14EN + rtag14EN) 'Tag 15 INI.WertSchreiben("Anfang", "tag15A", ltag15A + rtag15A) INI.WertSchreiben("Ende", "tag15E", ltag15E + rtag15E) INI.WertSchreiben("Anfang", "tag15AN", ltag15AN + rtag15AN) INI.WertSchreiben("Ende", "tag15EN", ltag15EN + rtag15EN) 'Tag 16 INI.WertSchreiben("Anfang", "tag16A", ltag16A + rtag16A) INI.WertSchreiben("Ende", "tag16E", ltag16E + rtag16E) INI.WertSchreiben("Anfang", "tag16AN", ltag16AN + rtag16AN) INI.WertSchreiben("Ende", "tag16EN", ltag16EN + rtag16EN) 'Tag 17 INI.WertSchreiben("Anfang", "tag17A", ltag17A + rtag17A) INI.WertSchreiben("Ende", "tag17E", ltag17E + rtag17E) INI.WertSchreiben("Anfang", "tag17AN", ltag17AN + rtag17AN) INI.WertSchreiben("Ende", "tag17EN", ltag17EN + rtag17EN) 'Tag 18 INI.WertSchreiben("Anfang", "tag18A", ltag18A + rtag18A) INI.WertSchreiben("Ende", "tag18E", ltag18E + rtag18E) INI.WertSchreiben("Anfang", "tag18AN", ltag18AN + rtag18AN) INI.WertSchreiben("Ende", "tag18EN", ltag18EN + rtag18EN) 'Tag 19 INI.WertSchreiben("Anfang", "tag19A", ltag19A + rtag19A) INI.WertSchreiben("Ende", "tag19E", ltag19E + rtag19E) INI.WertSchreiben("Anfang", "tag19AN", ltag19AN + rtag19AN) INI.WertSchreiben("Ende", "tag19EN", ltag19EN + rtag19EN) 'Tag 20 INI.WertSchreiben("Anfang", "tag20A", ltag20A + rtag20A) INI.WertSchreiben("Ende", "tag20E", ltag20E + rtag20E) INI.WertSchreiben("Anfang", "tag20AN", ltag20AN + rtag20AN) INI.WertSchreiben("Ende", "tag20EN", ltag20EN + rtag20EN) 'Tag 21 INI.WertSchreiben("Anfang", "tag21A", ltag21A + rtag21A) INI.WertSchreiben("Ende", "tag21E", ltag21E + rtag21E) INI.WertSchreiben("Anfang", "tag21AN", ltag21AN + rtag21AN) INI.WertSchreiben("Ende", "tag21EN", ltag21EN + rtag21EN) 'Tag 22 INI.WertSchreiben("Anfang", "tag22A", ltag22A + rtag22A) INI.WertSchreiben("Ende", "tag22E", ltag22E + rtag22E) INI.WertSchreiben("Anfang", "tag22AN", ltag22AN + rtag22AN) INI.WertSchreiben("Ende", "tag22EN", ltag22EN + rtag22EN) 'Tag 23 INI.WertSchreiben("Anfang", "tag23A", ltag23A + rtag23A) INI.WertSchreiben("Ende", "tag23E", ltag23E + rtag23E) INI.WertSchreiben("Anfang", "tag23AN", ltag23AN + rtag23AN) INI.WertSchreiben("Ende", "tag23EN", ltag23EN + rtag23EN) 'Tag 24 INI.WertSchreiben("Anfang", "tag24A", ltag24A + rtag24A) INI.WertSchreiben("Ende", "tag24E", ltag24E + rtag24E) INI.WertSchreiben("Anfang", "tag24AN", ltag24AN + rtag24AN) INI.WertSchreiben("Ende", "tag24EN", ltag24EN + rtag24EN) 'Tag 25 INI.WertSchreiben("Anfang", "tag25A", ltag25A + rtag25A) INI.WertSchreiben("Ende", "tag25E", ltag25E + rtag25E) INI.WertSchreiben("Anfang", "tag25AN", ltag25AN + rtag25AN) INI.WertSchreiben("Ende", "tag25EN", ltag25EN + rtag25EN) 'Tag 26 INI.WertSchreiben("Anfang", "tag26A", ltag26A + rtag26A) INI.WertSchreiben("Ende", "tag26E", ltag26E + rtag26E) INI.WertSchreiben("Anfang", "tag26AN", ltag26AN + rtag26AN) INI.WertSchreiben("Ende", "tag26EN", ltag26EN + rtag26EN) 'Tag 27 INI.WertSchreiben("Anfang", "tag27A", ltag27A + rtag27A) INI.WertSchreiben("Ende", "tag27E", ltag27E + rtag27E) INI.WertSchreiben("Anfang", "tag27AN", ltag27AN + rtag27AN) INI.WertSchreiben("Ende", "tag27EN", ltag27EN + rtag27EN) 'Tag 28 INI.WertSchreiben("Anfang", "tag28A", ltag28A + rtag28A) INI.WertSchreiben("Ende", "tag28E", ltag28E + rtag28E) INI.WertSchreiben("Anfang", "tag28AN", ltag28AN + rtag28AN) INI.WertSchreiben("Ende", "tag28EN", ltag28EN + rtag28EN) 'Tag 29 INI.WertSchreiben("Anfang", "tag29A", ltag29A + rtag29A) INI.WertSchreiben("Ende", "tag29E", ltag29E + rtag29E) INI.WertSchreiben("Anfang", "tag29AN", ltag29AN + rtag29AN) INI.WertSchreiben("Ende", "tag29EN", ltag29EN + rtag29EN) 'Tag 30 INI.WertSchreiben("Anfang", "tag30A", ltag30A + rtag30A) INI.WertSchreiben("Ende", "tag30E", ltag30E + rtag30E) INI.WertSchreiben("Anfang", "tag30AN", ltag30AN + rtag30AN) INI.WertSchreiben("Ende", "tag30EN", ltag30EN + rtag30EN) 'Tag 31 INI.WertSchreiben("Anfang", "tag31A", ltag31A + rtag31A) INI.WertSchreiben("Ende", "tag31E", ltag31E + rtag31E) INI.WertSchreiben("Anfang", "tag31AN", ltag31AN + rtag31AN) INI.WertSchreiben("Ende", "tag31EN", ltag31EN + rtag31EN)
Dies geschieht wenn man auf den Speicher Button drückt.
LG -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Wieso löst du das Schreiben und Lesen nicht wie hier beschrieben:
http://www.rhirte.de/vb/ini.htm
Mach es so, dass in der Ini-Datei tageweise Abschnitte geschrieben wird, z.B. für den ersten Tag:
[1] Anfang_vormittag=07:30 Ende_vormittag=12:00 Anfang_nachmittag=13:00 Ende_nachmittag=17:00 -
Hallo burgi,
Das mit dem Schreiben ist nicht das Problem , das Funktioniert ja , doch allerdings nur wenn jede TextBox ausgefüllt wird. Deswegen suche ich einen weg die Leeren Textboxen einfach als 00:00 Darzustellen! :)
LG -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
