Un consiglio per velocizzare tutto.
Usa la class cStringBuilder al posto della concatenazione di stringhe.
Infatti con la concatenazione, dopo poco le prestazioni degenerano.
Invece di strTemp=strTemp & tmp_d2(i2)
Fai Buffer.Write tmp_d2(i2)
dove Buffer è Set Buffer= new cStringBuilder
Per avere il contenuto Buffer.Value
Anche per Result.
Ti accorgerai della dif già con un file da 50k
codice:
Class cStringBuilder
Private Count
Private arLength
Private arStrings()
Public Increment
Private Sub Class_Initialize()
Clear()
End Sub
Public Function Clear()
Count = 0
Increment = 500
Redim arStrings(0)
arLength = 1
End Function
Public Function GetCount()
GetCount = Count
End Function
Public Sub Append(value)
Write(value)
End Sub
Public Sub WriteLn(value)
Write(value & VbCrLf)
End Sub
Public Sub WriteBR(value)
Write(value & "
" & VbCrLf)
End Sub
Public Sub WriteInIndex(value,arIndex)
on error resume next
arStrings(arIndex) = Value
if err.number<>0 then Write value
on error goto 0
End Sub
Public Sub Write(value)
if Count=arLength then
arLength=Count+Increment
Redim Preserve arStrings(arLength)
end if
arStrings(Count)=value
Count=Count+1
End Sub
Public Sub WriteBefore(strValue)
Dim v
V = value
Clear()
Write strValue
Write v
End Sub
Public Property Let Value(strValue)
Clear()
Write strValue
End Property
Public default Property Get Value()
Value = Join(arStrings,"")
End Property
Private Sub Class_Terminate()
Erase arStrings
End Sub
End Class
E c'è una cosa spettacolare ... in javascript...
Si deve essere un po' esperti di regexp (o guarda caso ime tu lo sei) ma si potrebbe fare la parte per asp
un editor online : http://helene.muze.nl/demo/
Troppo troppo bello!!!!
Rispondi quotando
)
