|
| 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
>
| |
|
|