Sortering af tal og navnen

lav en klasse med navn og tal fields+properties som implementerer IComparable på navn
læs ind fra fil i en ArrayList af den klasse
sorter ArrarList
udskriv ArrayList til en ny fil

forstår hvad du mener, men er bange for jeg ikke har erfaring nok til at kunne lave det i praksis.

Ken jeg få dig til at skrive koden for mig?

hvis du ikke kan skrive den kode - hvorforskal du så skrive den kode ?

det er lige noget jeg skal bruge til et lille skoleprojekt. Bruger det selvfølgelig kun hvis jeg forstår det. Skulle helt bruge det imorgen

gå i gang med at lave noget og post her når du kører fast så hjælper vi dig videre

jamen okay, først problem. Hvordan loader jeg 2 informationer ind i et array, så de 'hænger sammen' ?

ved at du laver din egen Person klasse med 2 properties Navn og Tal

så kan du ligge instanser af den klasse ind i en ArrayList

er bange for jeg allerede er lost nu. Altså jeg har arbejdet med egne klasser før, men ikke med properties. Kan du give et kort eksempel?

Public Class Person
        Private _navn As String
        Private _tal As Integer
        Public Sub New()
            MyClass.New("", 0)
        End Sub
        Public Sub New(ByVal navn As String, ByVal tal As Integer)
            _navn = navn
            _tal = tal
        End Sub
        Public Property Navn() As String
            Get
                Return _navn
            End Get
            Set
                _navn = value
            End Set
        End Property
        Public Property Tal() As Integer
            Get
                Return _tal
            End Get
            Set
                _tal = value
            End Set
        End Property
    End Class

kan du give ngoel kore forkalringer til dette?^^

Properties er rigtig gode til mange ting, men jeg synes nu at det er en smule overkill i det konkrete tilfælde. Jeg ville nøjes med:

Public Class Person
    Public navn As String
    Public tal As Integer

    Public Sub New()
        navn = ""
        tal = 0
    End Sub

    Public Sub New(ByVal navn As String, ByVal tal As Integer)
        Me.navn = navn
        Me.tal = tal
    End Sub
End Class

karryen>

hvad er det i den klasse som du ikke forstår ?

nielle>

nu ved jeg ikke på hvilket niveau det programmerings kursus er, men hvis det
er tilpas højt så kunne han godt få et ordentligt hak i tuden for ikke
at have encapsulated de fields

kan slet ikke lige overskue hvad den gør

arh, er måske alligevel lidt med. Men hvad gør jeg så når jeg skal sortere mit array?

det er en klasse med 2 attributter navn og tal

så lader du klassen implementere IComparable (med sortering efter tal - ikke navn
som jeg skrev tidligere) så kan du umiddelbart sortere en ArrayList med
Person instanser

jo, det forstår jeg. Men hvordan skriver jeg det i praksis?

et eksempel med sortering:

Imports System
Imports System.Collections

Public Class MitObjekt
Implements IComparable
    Private _etNummer As Integer
    Private _etNavn As String
    Public Sub New(ByVal etNummer As Integer, ByVal etNavn As String)
        Me._etNummer = etNummer
        Me._etNavn = etNavn
    End Sub
    Public ReadOnly Property EtNummer() As Integer
        Get
            Return _etNummer
        End Get
    End Property
    Public ReadOnly Property EtNavn() As String
        Get
            Return _etNavn
        End Get
    End Property
    Public Function CompareTo(ByVal o As Object) As Integer Implements IComparable.CompareTo
        Dim mo As MitObjekt = CType(o, MitObjekt)
        If _etNummer = mo._etNummer Then
            Return _etNavn.CompareTo(mo._etNavn)
        Else
            Return _etNummer - mo._etNummer
        End If
    End Function
    Public Overloads Overrides Function ToString() As String
        Return (_etNummer & " " & _etNavn)
    End Function
End Class

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim list As ArrayList = New ArrayList
        list.Add(New MitObjekt(3, "TRE"))
        list.Add(New MitObjekt(2, "TO-A"))
        list.Add(New MitObjekt(2, "TO-C"))
        list.Add(New MitObjekt(2, "TO-B"))
        list.Add(New MitObjekt(1, "ET"))
        Console.WriteLine("Før sortering:")
        Dim i As Integer
        For i = 0 To list.Count - 1
            Console.WriteLine(list(i))
        Next
        list.Sort
        Console.WriteLine("Efter sortering:")
        For i = 0 To list.Count - 1
            Console.WriteLine(list(i))
        Next
    End Sub
End Class

okay, tror jeg er med nu. Prøver lige at koge lidt over det, så vender jeg tilbage imorgen med evt. problemer, eller er det er jo bare at få afleveret nogle point.

Mange tak forhjælpen indtil videre

hvad gør jeg så nu, når jeg skal have informationerne ud en af gangen? Altså først skal jeg skrive en linje med navnet, og derefter en lnije med tallet

list.Sort
Console.WriteLine("Efter sortering:")
For i = 0 To list.Count - 1
    Console.WriteLine(list(i).EtNavn)
    Console.WriteLine(list(i).EtNummer)
Next

eller en ToString metode

jeg kan ikke for lov til at skrive .EtNavn eller .EtNummer bagefter

Du skal nok lige caste

For i = 0 To list.Count - 1
    Console.WriteLine(CType(list(i),Person).EtNavn)
    Console.WriteLine(CType(list(i),Person).EtNummer)
Next

kan ikke få lov til at skrive ,Person

ikke for hvertken at stresse jer, eller kræve noget, men det er lidt vigtigt det kommer til at virke inden imorgen

Console.WriteLine(CType(list(i), MitObjekt).EtNummer & " " & CType(list(i), MitObjekt).EtNavn)

virker fint i mit 03/01-2006 20:27:10 eksempel

og vi har ikke stress på

Nej ingen stres :^)

Det kan som sagt også gøres med en lille ændring til ToString():

Public Overloads Overrides Function ToString() As String
    Return (_etNummer & " " & vbCrLf & _etNavn)
End Function

Public Overloads Overrides Function ToString() As String
    Return (_etNummer & vbCrLf & _etNavn)
End Function

jeg skal ændre det her i klassen ikke?

Hvad skulle de så ændre?

Hvis du indsætter den kode i stefet for den eksisterende ToString(), kan du efterfølgende blot skrive:

list.Sort
Console.WriteLine("Efter sortering:")
For i = 0 To list.Count - 1
    Console.WriteLine(list(i))
Next

- ganske som tidligere.

arh, jamen nu virker det hele jo. Smid begge et svart så i kan få nogle point, mange tak for hjælpen

Giv du dem bare alle sammen til arne_v. :^)

du har da også arbejdet med her

og et svar fra mig

okay, jamen i hvert fald mange gange tak for hjælpen så.

Jeg er ikke helt sikker på om jeg ikke mere har biddraget til forvirringen ;^)

Anyway, så er jeg et øjeblik ikke i tvivl om hvem der har trukket læsset på denne her. :^)