Sjekke array
Det hender at jeg får en feilmeldig med:Subscript out of range: '[number: 0]'
, hvordan kan jeg forhindre dette? Dvs sjekke filen for feil? Gi en error melding om hva som er feil eventuelt hvilken linje????
Fil som skal sjekkes kan se slik ut!
22;BP86045;3;37;1;2003;2.2;0;1;181;43;07.11.2003;JA;07.11.2003
22;BP86046;3;37;1;2003;2.2;0;1;181;43;07.11.2003;JA;07.11.2003
22;BP86179;3;37;1;2003;2.2;0;1;181;43;07.11.2003;JA;07.11.2003
22;BP86180;3;37;1;2003;2.2;0;1;181;43;07.11.2003;JA;07.11.2003
<%
Filespec = strPath
Set F = FSO.OpenTextFile(Filespec,1)
error = ""
'----------------------------------------------------------------------------------------------------------------------------------------
'FUNCTION SOM SJEKKER REGNR FOR 2 TEGN og 5 TALL - START
'----------------------------------------------------------------------------------------------------------------------------------------
function CheckRegNr(inputstreng)
dim regcon
set regcon = new RegExp
regcon.ignoreCase = true
regcon.Global = true
regcon.pattern = "^([a-zæøå]{2}\d{5})$"
CheckRegNr = regcon.test(inputstreng)
end function
'----------------------------------------------------------------------------------------------------------------------------------------
'FUNCTION SOM SJEKKER REGNR FOR 2 TEGN og 5 TALL - SLUTT
'----------------------------------------------------------------------------------------------------------------------------------------
strMinus30dager = date()
i = 1
iNew = 0
Do While not F.AtEndOfStream
FilArr = Split(F.Readline, ";")
'Henter data fra txtfil
strEier = Trim(filArr(0))
strRegnr = UCASE(Trim(filArr(1)))
strFabrikat = Trim(filArr(2))
strModell = Trim(filArr(3))
strType = Trim(filArr(4))
strArsmodell = Trim(filArr(5))
strMotor = Trim(Replace(filArr(6),".","," ))'Fjerner punktum og setter inn et komma.
strListePris = Trim(filArr(7))
strPremie = Trim(filArr(8))'Denne hentes automatisk ut fra systemet, det er kun en premie.
strAvdeling = Trim(filArr(9))
strRegAv = Trim(filArr(10))'Denne kan godt settes til fast siden den ikke skal tukles med
strGjelderFra = Trim(Replace(filArr(11),".","/" ))
strAktiv = Trim(filArr(12))
strSiOppForsikringFra = Trim(Replace(filArr(13),".","/" ))
'----------------------------------------------------------------------------------------------------------------------------------------
'SJEKKER DATA - START
'----------------------------------------------------------------------------------------------------------------------------------------
strFeilLinje = " - Feilen var på linje <b>" & i & "</b> der regnr var <b>" & strRegnr & "</b>!<br>"
If Isnumeric(strEier) = False Then
error = error & "- Eier må være nummer! Innholdert i eier er <b>" & strEier & "</b>" & strFeilLinje
End if
If Len(strRegnr) <> 7 Then
error = error & "- Regnr må ha en lengde på 7! Innholdet i regnr er <b>" & strRegnr & "</b> og lengden er " & Len(strRegnr) & strFeilLinje
End if
If not CheckRegNr(strRegnr) Then
error = error & "- Regnr må ha 2 bokstaver så 5 tall! Innholdet i regnr er <b>" & strRegnr & "</b>" & strFeilLinje
End if
If Isnumeric(strFabrikat) = False Then
error = error & "- Fabrikat må være nummer! Innholdert i fabrikat er <b>" & strFabrikat & "</b>" & strFeilLinje
End if
If Isnumeric(strModell) = False Then
error = error & "- Modell må være nummer! Innholdert i modell er <b>" & strModell & "</b>" & strFeilLinje
End if
If Isnumeric(strType) = False Then
error = error & "- Type må være nummer! Innholdert i type er <b>" & strType & "</b>" & strFeilLinje
End if
If Isnumeric(strArsmodell) = False And Len(strArsmodell) <> 4 Then
error = error & "- Årsmodell må være nummer og ha 4 tegn! Innholdert i årsmodell er <b>" & strArsmodell & "</b> og lengden er " & Len(strRegnr) & strFeilLinje
End if
If (inStr(strMotor,",")=2) AND isNumeric(left(strMotor,1)) AND isNumeric(right(strMotor,1)) AND (len(strMotor) = 3) then
Else
error = error & "- Motorstørrelse må ha en lengde på 3! Innholdet i motorstørrelse er <b>" & strMotor & "</b> og lengden er " & Len(strMotor) & strFeilLinje
End if
If Isnumeric(strListepris) = False Then
error = error & "- Listepris må være nummer! Innholdert i listepris er <b>" & strListepris & "</b>" & strFeilLinje
End if
If Isnumeric(strPremie) = False Then
error = error & "- Premie må være nummer! Innholdert i premie er <b>" & strPremie & "</b>" & strFeilLinje
End if
'Denne kan fjernes hvis det skal velges flere premier!
If strPremie <> 1 Then
error = error & "- Premie må være 1! Innholdert i premie er <b>" & strPremie & "</b>" & strFeilLinje
End if
If Isnumeric(strAvdeling) = False Then
error = error & "- Avdeling må være nummer! Innholdert i avdeling er <b>" & strAvdeling & "</b>" & strFeilLinje
End if
If Isnumeric(strRegAv ) = False Then
error = error & "- Registert av må være nummer! Innholdert i Registert av er " & strRegAv & strFeilLinje
End if
OSV..........
