4 svar · 381 visningar · startad av devotion
:)
Jag har ett script som läser läser informatione från en textfil och stoppar in den i en databas.
Jag använder fäljande kod för att plocka ut infon:
iPrice = cLng(Trim(Mid(sLine, iPriceStart, iPriceLength)))
Problemet är om textraden är "tom"
Får då följande meddelande:
Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: 'clng'
/articles/addArticle.asp, rad 170
Felmeddealndet får jag ju för att jag inte kan köra clng på en tom variabel...
Hur kan jag göra för att undvika detta?
Provade med:
If iPrice = "" then
iPrice = 0
Else
iPrice = cLng(Trim(Mid(sLine, iPriceStart, iPriceLength)))
End If
Men det fungerade ju inte...
Jag vill ju att det ska skrivas 0 (noll) till databasen om det sakans ett pris i textfilen...
Mvh
Henrik
Trevlig funktion att använda sig av:
'i din util fil
Function Coalesce(Value1, Value2)
If Trim(Value1 & "") <> "" Then
Coalesce = Value1
ElseIf Trim(Value2 & "") <> "" Then
Coalesce = Value2
End If
End Function
'i din kod
lPrice = CLng( Coalesce(Mid(sLine, lPriceStart, lPriceLength), 0) )
Det var ju en liten fin funktion... Den kan nog användas till mycket! :)
Tack för hjälpen!
Mvh
Henrik
Japp, använder den dagligen. :)