Overflow

Hvor stor skal strData være, før det går galt? Prøv evt et eksperimentprogram, hvor du fordobler størrelsen indtil det ikke længere kan.

Den virker ved 32768 tegn, men går død når jeg fordobler til 65536. Kan der være en 32Kbit tekstbegrænsning på rich text boksen?

Mvh Mark

Eller rettere sagt, 32Kbit begrænsning på variablen.

Har du prøvet med 65535, altså 2^16 - 1?

Det lyder meget som om der er en 16-bit\'s begrænsning på længden af en VB-string

Det giver også overflow :(.

Det ser altså ud til, at overflow indtræder et sted mellem 32768 og 65535, og det kan selvfølgelig være meget interessant at finde ud af præcis hvor. Men: Hvis du er ude for html-sider, der risikerer at være større, er du under alle omstændigheder nødt til at opfinde en måde at læse dem igennem i mindre klumper, i stedet for den (ellers ret bekvemme) metode med det hele i et hug!

Mvh
Jesper Naur

Øv øv og atter øv :). Ej, jeg regnede med at jeg nok blev nødt til det. Jeg lader lige spørgssmålet stå lidt endnu.

Mvh Mark

Tag det ikke så tungt, det er jo bare almindelig kodning!

Hehe, jeg ved det... Men det ville være lettere uden at skulle gøre det :)

Jeg sender lige koden i tilfælde af at nogen kan se noget forkert:

nStart = 1
    Do Until nStart = Len(strData)
        If InStr(nStart, strData, \"<a href=\") <= 0 Then
            Exit Do
        End If
        nStringStart = InStr(nStart, strData, \"<a href=\")
        nStringEnd = InStr(nStringStart, strData, \">\")
        nStringLength = nStringEnd - nStringStart
        URLString = URLString & Mid(strData, nStringStart, nStringLength + 1) & \",\" & vbCrLf
        nStart = nStringEnd
    Loop
   
    nURLs = Split(URLString, \",\")
    For i = 0 To UBound(nURLs) - 1
   
        nLink = Right(nURLs(i), Len(nURLs(i)) - 11)
       
        \'Determine length
        If InStr(nLink, \"\'\") <= 0 Then
            nLength = InStr(nLink, \"\"\"\")
        Else
            nLength = InStr(nLink, \"\'\")
        End If
        nLink = Left(nLink, nLength - 1)
       
        \'Determine type
        If InStr(nLink, \"http://\") Then
            nType = \"Remote\"
        Else
            nType = \"Local\"
        End If
       
        \'Add the link to the link box
        With lstStatus(1)
            Set nItem = .ListItems.Add(, , nLink)
            nItem.ListSubItems.Add , , nType
        End With
    Next

Hvorfor dedinerer du ikke nStart som \"Long\"

Sørme om det ikke virkede :). Jeg testede op til 3.5 millioner tegn, så gad jeg ikke gå højere :).

Mange tak.

Mvh Mark