/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Hjelp med Arrays
Fra : Steinar Hauge Andres~


Dato : 12-03-03 07:41

Heisann, finner ikke noen fin metode å løse dette på. kan noen hjelpe??

' modul test med start up form sub-main

Public Type EXTENTION
Ext As String ' Navn på extention (doc,xls mm)
Count As Long ' Antall filer av denne typen
End Type

Public arrExt() As EXTENTION ' Array for ulike extentions

Sub main()
ReDim Preserve arrExt(0) ' Tåpelig initsiering av array
With arrExt(0) ' vet ikke annen metode som virker
.Count = 0 ' i Visual Basic
.Ext = "shatest" ' Tester faktisk på denne verdien
End With
Call test ' Kall til test SUB
End Sub

Sub test()
Call AddExt("doc") ' Kaller opp Suben AddExt for å
Call AddExt("doc") ' legge til filtyper i en Array
Call AddExt("doc")
Call AddExt("xls")
Call AddExt("xls")
Call AddExt("txt")
Call AddExt("txt")
Call AddExt("test")
End Sub
' Legger til nytt element eller endrer antalle for en extention
Public Sub AddExt(strExt As String)
Dim lTeller As Long
Dim bExsist As Boolean

bExsist = False
For lTeller = 0 To UBound(arrExt)
If strExt = arrExt(lTeller).Ext Then
arrExt(lTeller).Count = arrExt(lTeller).Count + 1
bExsist = True
Exit For
End If
Next
If bExsist = False Then
If arrExt(0).Ext = "shatest" Then
lTeller = 0
End If
ReDim Preserve arrExt(lTeller)
With arrExt(lTeller)
.Ext = strExt
.Count = .Count + 1
End With
End If
End Sub




 
 
Tomas Christiansen (12-03-2003)
Kommentar
Fra : Tomas Christiansen


Dato : 12-03-03 22:23

Steinar Hauge Andresen skrev:
> Heisann, finner ikke noen fin metode å løse dette på. kan noen
hjelpe??
> Public Sub AddExt(strExt As String)
> For lTeller = 0 To UBound(arrExt)
> Next
> End Sub

Hvis det er for at spare køretid, ville jeg helt klar bruge en eller to
collections (se på Collection-objektet), hvor nøglen er din
fil-extention.
Bemærk at man ikke kan udtrække nøgleværdien af en collection, så hvis
du på et tidspunkt har brug for at udtrække navnene på fil-extentions,
kan du vælge at oprette to collections: Én til at huske fil-extentions
og én til at huske tællerne.

-------
Tomas


Steinar Hauge Andres~ (13-03-2003)
Kommentar
Fra : Steinar Hauge Andres~


Dato : 13-03-03 14:33

Heisann

Kjenenr godt til collections objektet og kan ikke benytte det denne gang.

Det jeg lurer på er knyttet til initsiering og testing av arrayer som består
av typer


"Tomas Christiansen" <toc-nospam-01@blikroer.dk> wrote in message
news:b4o8dr$1dlv$1@news.cybercity.dk...
> Steinar Hauge Andresen skrev:
> > Heisann, finner ikke noen fin metode å løse dette på. kan noen
> hjelpe??
> > Public Sub AddExt(strExt As String)
> > For lTeller = 0 To UBound(arrExt)
> > Next
> > End Sub
>
> Hvis det er for at spare køretid, ville jeg helt klar bruge en eller to
> collections (se på Collection-objektet), hvor nøglen er din
> fil-extention.
> Bemærk at man ikke kan udtrække nøgleværdien af en collection, så hvis
> du på et tidspunkt har brug for at udtrække navnene på fil-extentions,
> kan du vælge at oprette to collections: Én til at huske fil-extentions
> og én til at huske tællerne.
>
> -------
> Tomas
>



Tomas Christiansen (13-03-2003)
Kommentar
Fra : Tomas Christiansen


Dato : 13-03-03 23:08

Steinar Hauge Andresen skrev:
> Kjenenr godt til collections objektet og kan ikke benytte det denne
gang.

Hvorfor ikke?

> Det jeg lurer på er knyttet til initsiering og testing av arrayer som
består
> av typer

Jamen, HVAD er det som du vil løse? Har du du ikke et program som
virker?

-------
Tomas


Steinar Hauge Andres~ (14-03-2003)
Kommentar
Fra : Steinar Hauge Andres~


Dato : 14-03-03 09:08

Got a working solution

Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2003 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
' applications, but you may not reproduce
' or publish this code on any web site,
' online service, or distribute as source
' on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function IsBounded(vntArray As Variant) As Boolean

'note: the application in the IDE will stop
'at this line when first run if the IDE error
'mode is not set to "Break on Unhandled Errors"
'(Tools/Options/General/Error Trapping)

On Error Resume Next
IsBounded = IsNumeric(UBound(vntArray))

End Function

"Tomas Christiansen" <toc-nospam-01@blikroer.dk> wrote in message
news:b4qvcr$1nif$1@news.cybercity.dk...
> Steinar Hauge Andresen skrev:
> > Kjenenr godt til collections objektet og kan ikke benytte det denne
> gang.
>
> Hvorfor ikke?
>
> > Det jeg lurer på er knyttet til initsiering og testing av arrayer som
> består
> > av typer
>
> Jamen, HVAD er det som du vil løse? Har du du ikke et program som
> virker?
>
> -------
> Tomas
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408879
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste