Et hurtigt kig (og læsning af indlæg) fortæller mig, at arr[1] er vigtigt, idet det fortæller koden om den skal bruge årstal eller ej.. hvilket gør arr[0] lidt vigtig også..
Giv et større eksempel, med flere linier og hvordan det virker..
Altså jeg er ved at lave en kalender hvor jeg gemmer alle datoer i en tekst fil. Jeg er så ved at lave en funktion, som skal kunne finde linjen hvor en spiciel dato indgår og sætte den til newline også derefter ved jeg godt hvad jeg skal gøre.
Jeg har forstået, at du vil løbe linierne igennem for at finde bestemte datoer. Hvis birthday feltet er true, skal man se bort fra årstallet. Det er en simpel IF-sætning..
Hvad du så mener med at den skal "sætte den til newline", forstår jeg ikke..
Jeg vil prøve at lave et eksempel, og så kan du måske tage den derfra, eller forklare nærmere..
Eksempel (jeg har smidt en knap med navnet "Button1" ind på formen):
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Filen "k.txt" er filen der indeholder datoerne: Dim sr As New System.IO.StreamReader("k.txt", System.Text.Encoding.UTF7)
Dim indhold As String ' definer en streng-variabler til at indeholde indholdet af filen indhold = sr.ReadToEnd() ' læs hele filen over i variablen sr.Close() ' luk forbindelsen til filen
Dim linie As Array ' definer en array-variabel, til at indeholde linierne linie = Split(indhold, vbCrLf) ' split indholdet op i linier, og put dem i arrayet
Dim i As Integer ' definer en tæller, som skal bruges i FOR-NEXT loopen Dim dele As Array ' definer en array, som skal indeholde delene, når vi splitter linier op
Dim dag, maaned, aar As Integer ' definer integer-variabler, til at indeholde dag, måned og år
For i = LBound(linie) To UBound(linie) ' kør en loop, fra først index i array, til sidste index dele = Split(linie(i), "#") ' split linien op ved "#" tegnet, og smid delene i dele-arrayet dag = Integer.Parse(Date.Parse(dele(0)).Day().ToString()) ' smid dagen over i dag-variablen maaned = Integer.Parse(Date.Parse(dele(0)).Month().ToString()) ' smid måneden over i måned-variablen
If Boolean.Parse(dele(1)) = True Then ' check om birthday er true ' birthday er true.. nulstil år.. man kan gøre andet her, hvis det skulle være aar = -1 Else ' birthday er false aar = Integer.Parse(Date.Parse(dele(0)).Year().ToString()) ' årstallet skal med: smid året over i aar-variablen End If Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.