visual-basic - antal - Udvikleren.dk - Programmering, webdesign og grafik

Tags: visual-basic

Bruger #2855 @ 28.03.04 15:07

jeg har en fil, der hedder vejr.txt den fil inde holder en masse tal.

jeg har brug for at program der tæller hvor mange gange 1 er der, 2 er der...osv bagefter skal den skrive det i en label.

hvordan?
hvis der er nogle der kan lave den funktion til mig ville det være dejligt!

på forhånd tak!
Hilsen Rune alias RunesS
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

2 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #206 @ 28.03.04 15:24

252

Du kan bruge funktionen Split. Den opdeler strengen i et array og du kan herefter finde dette arrays øvre grænse ved at sige UBound(ditarray)

ca. sådan:

Kode

Private Sub Form_Load()
    dinStreng = "Denne streng indeholder mange tegn"
    ditArray = Split(dinStreng, "e")
    MsgBox "'e' optræder " & UBound(ditArray)  & " gange"
End Sub

Casper

Bruger #2165 @ 28.03.04 15:32

302

Og sådan her loader du hele filen ind i variablen Text...

Kode

    Dim Text As String    

    Dim FileName As String
    FileName = App.Path & "/vejr.txt"
    
    Dim FileNumber As Long
    FileNumber = FreeFile
    
    Open FileName For Binary As #FileNumber
        Text = Space$(LOF(FileNumber))
        Get FileNumber, 1, Text
    Close #FileNumber

// Great programs often follow great brains!

[Redigeret d. 28/03-04 15:33:01 af HAP]

antal

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler