How to repair imagevenue links in posts

[icu]

It happens that a imagevenue link don't work due to wrong posting. Sometimes the thumb is missing or you can't open the pic. This methode worked many times to restore a missing second link.


Pic and thumb with a variant of the correct syntax:



[URL=http://img175.imagevenue.com/img.php?image=36513_1_123_136lo.jpg][IMG]http://img175.imagevenue.com/loc136/th_36513_1_123_136lo.jpg[/IMG][/URL]



1. Please make a copy of your link and paste it to your post or editor to work on it



2. How to build the missing link

Example1: Restore the missing thumb link from a posted pic link

Posted : http://img175.imagevenue.com/img.php..._123_136lo.jpg

• copy the location value ...
  [url]http://img175.imagevenue.com/img.php?image=36513_1_123_136lo.jpg[/url]
  
  
• ... and build a litte little string with it:
  loc136/th_
  
  
• ... then exchange the green against the red:
  http://img175.imagevenue.com/img.php?image=36513_1_123_136lo.jpg
  http://img175.imagevenue.com/loc136/th_36513_1_123_136lo.jpg
  

Example2: Restore the missing pic link from a posted thumb link

( It is easier and very similar )

Posted variant A: http://img175.imagevenue.com/loc136/..._123_136lo.jpg

Posted variant B:

• just exchange the green against the red:
  http://img175.imagevenue.com/loc136/th_36513_1_123_136lo.jpg
  http://img175.imagevenue.com/img.php?image=36513_1_123_136lo.jpg

3. How to build the the correct BB Code with both links:

[URL=Pic link][IMG]Thumb link[/IMG][/URL]


[URL=http://img175.imagevenue.com/img.php?image=36513_1_123_136lo.jpg][IMG]http://img175.imagevenue.com/loc136/th_36513_1_123_136lo.jpg[/IMG][/URL]

You will find more help here in the FAQ

[icu]

Sub Text_IV_Change ()
    If Text_IV.Text <> "imagevenue" And Text_IV.Text <> "" Then
        clipboard.Clear
        a$ = Trim(Text_IV.Text)
        t$ = ""
        p$ = ""
        k0$ = "imagevenue.com/"
        k0a$ = "img.php?"
        k3$ = "image="
        k1$ = k0a$ + k3$
        k1a$ = "/" + k1$
        k2$ = "/th_"
        k6$ = "loc"
        k5$ = "/" + k6$
        k4$ = k0a$ + k6$ + "="
        k7$ = "href=" + Chr(34)
        k8$ = "src=" + Chr(34)
        If a$ <> "" Then
            '
            ' 1. html filter searching usage href="...." or scr="...."
            '
            ' 1.1 kill all spaces outside the filenames
            '
            b$ = Trim(LCase(a$))
            i% = Len(b$)
            chr34_flag% = 0
            While i% > 0
                If Mid$(b$, i%, 1) = Chr(34) Then
                    chr34_flag% = 1 - chr34_flag%
                ElseIf chr34_flag% = 0 Then
                    If Mid$(b$, i%, 1) = Chr(32) Then
                        b$ = Left$(b$, i% - 1) + Mid$(b$, i% + 1)
                    End If
                End If
                i% = i% - 1
            Wend
            '
            ' 1.2 check existing filenames
            '
            If InStr(b$, k7$) > 0 Then
                a$ = Mid$(b$, InStr(b$, k7$) + Len(k7$))
                a$ = Trim(Left$(a$, InStr(a$, Chr(34)) - 1))
            ElseIf InStr(b$, k8$) > 0 Then
                a$ = Mid$(b$, InStr(b$, k8$) + Len(k8$))
                a$ = Trim(Left$(a$, InStr(a$, Chr(34)) - 1))
            End If
            '
            ' 2. restore missing link from filename
            '
            If InStr(LCase(a$), k0$) Then
                b$ = LCase(a$)
                If InStr(b$, "/" + k4$) Then
                    If InStr(b$, k2$) Then
                        ' missing case : only thumb, pic missing
                    Else
                        p$ = a$
                        c$ = Left$(a$, InStr(b$, k4$) - 1)
                        d$ = Mid$(a$, InStr(b$, k4$) + Len(k4$))
                        If InStr(d$, k6$) = 1 And InStr(d$, k3$) > 0 Then
                            l$ = Mid$(d$, 4)
                            l$ = Left$(l$, InStr(l$ + "&", "&") - 1)
                            t$ = c$ + k6$ + l$ + k2$ + Mid$(d$, InStr(d$, k3$) + Len(k3$))
                            '
                        End If
                    End If
                ElseIf InStr(b$, "lo.jpg") Then
                    If InStr(b$, k2$) Then
                        thumbnail% = True
                        t$ = a$
                        p$ = Left$(a$, InStr(LCase(a$), k2$))
                        p$ = p$ + k1$ + Mid$(a$, InStr(LCase(a$), k2$) + Len(k2$))
                    ElseIf InStr(b$, k1a$) Then
                        thumbnail% = False
                        p$ = a$
                        i% = InStr(b$, "lo.jpg")
                        b$ = Left$(a$, i% - 1)
                        c$ = ""
                        While Right(b$, 1) <> "_"
                            c$ = Right$(b$, 1) + c$
                            b$ = Left$(b$, Len(b$) - 1)
                        Wend
                        t$ = Left$(p$, InStr(LCase(p$), k1a$))
                        t$ = t$ + k6$ + c$ + k2$
                        t$ = t$ + Mid$(p$, InStr(LCase(p$), k1a$) + Len(k1a$))
                    End If
                ElseIf InStr(b$, k0$ + k6$) > 0 And InStr(b$, k2$) > 0 Then
                    t$ = a$
                    c$ = Left$(b$, InStr(b$, k5$))
                    d$ = Mid$(b$, InStr(b$, k5$) + 1)
                    e$ = Mid$(d$, InStr(d$, k2$) + Len(k2$))
                    d$ = Left$(d$, InStr(d$, "/") - 1)
                    p$ = c$ + k4$ + d$ + "&" + k3$ + e$
                End If
            End If
        End If
        If p$ <> "" And t$ <> "" Then
            c$ = "[URL=" + p$ + "][IMG]" + t$ + "[/IMG][/URL]"
            clipboard.SetText c$
        End If
        Text_IV.Text = ""
        WindowState = 1
    End If
End Sub

This little routine repairs a lot of possible cases...

How to add it to your Software:

1. add a textbox to a form and rename it to 'Text_IV',
2. copy the script to the same form ( do not overwrite your own sub routines please )

How it works:

1. copy a link or graphics adress of a pic or thumbnail to the clipboard
2. paste it to this new textbox
3. the clipboard will be cleared first
4. the result is copied to the clipboard and you can add/replace with paste in your post

cheers
icu

[DubSalute]

Imagevenue themselves offers a "Busy Poster Tool":
http://209.172.55.5/busy-poster.php

It does not always do the job 100% but it allows in a lot of cases to extract/correct imagevenue links from posts.

I sometimes use it to correct a post that went wrong when someone added the html code links (<a href="...) instead of the BBcode ones.

[icu]

If we need it additional for the href then it is no problem to add it to the
script. At the moment I copy only one part of the links ( pic or thumb ),
paste it to the textbox and get the [URL] BB code back to the clipboard.

Actually the routine needs one of this imagevenue formats to build the complete code:

( XXX = location value )

A. File format ending with "lo.jpg"

Thumbnail: ...imagevenue.com/locXXX/th_...XXXlo.jpg

Picture___: ....imagevenue.com/img.php?image=...XXXlo.jpg


B. File format ending without "lo.jpg"

Picture___: ...imagevenue.com/img.php?loc=locXXX&image=....jpg

Thumbnail : ...imagevenue.com/locXXX/th_....jpg

[icu]

I exchanged the script in post #2 against a variant which also reads html and extracts filenames from this usage:

href="... ..." ( pic )
scr="... ..." ( thumb )