HTML tag are shown in some forum post

[viiartz]

Hi all,

I've been searching the forum and for some of the post found the HTML tags are show making the post unreadable. I tryied the same link on both IE and my default Firefox with the same results.

any idea?

[Arctic Fox]

Same problem as this one?
http://www.purebasic.fr/english/viewtop ... =7&t=40415

[viiartz]

Same problem as this one?
http://www.purebasic.fr/english/viewtop ... =7&t=40415

Yep same thing!

[viiartz]

Can anyone give me an idea as to why this is happening, and how I can prevent it from happening.

[Fred]

You can't, it's old post which are now incompatible with the new phpbb version.

[kernadec]

hello
in Firefox with the module Erix14 " https://addons.mozilla.org/fr/firefox/addon/12245
take the original code tab and select copy with the mouse to paste in IDE
bye

[viiartz]

You can't, it's old post which are now incompatible with the new phpbb version.

Ah I see, I suspected as much... thanks Fred

hello
in Firefox with the module Erix14 " https://addons.mozilla.org/fr/firefox/addon/12245
take the original code tab and select copy with the mouse to paste in IDE
bye

Thanks for the plugin kernadec, as much as it is handy for the code snippets i don't think it will fix the original html tag issue.

[kernadec]

thank,
must not use the tab to copy the plugin because it keeps the error tags
bye

[Arctic Fox]

Alternatively you can try BackupUser viewer by luis.
http://www.purebasic.fr/english/viewtop ... 68#p310068

[viiartz]

Alternatively you can try BackupUser viewer by luis.
http://www.purebasic.fr/english/viewtop ... 68#p310068

Arctic Fox you the man! or should I say you the person! (gender neutral)
From this:

<i>Restored from previous forum. Originally posted by <b>Roxxler</b>.</i><br /><br /> Hi,<br /><br />here a procedure called GetDeviceList(). The procedure is based on the procedure<br />CheckDevice(), just a little extension.<br />With this procedure you can create a list of the devices, directories and volumes<br />which are available in the system. For that the procedure creates a Shared list<br />called MyDev(), so that you can access it from the main program.<br /><br />Parameter: kind.l what we are searching for<br /> 0 = devices<br /> 1 = directories (means assigns)<br /> 2 = volumes<br /> 3 or higher = a complete list (devices + directories + volumes)<br /><br />Return : number of found entries<br /><br />The list MyDev() contains two variables:<br />MyDev()\typedev = long, 0 = the following string is a device<br /> 1 = the following string is a directory<br /> 2 = the following string is a volume<br />MyDev()\namedev = string, the name of the device/directory/volume<br />Before leaving the procedure it sets the List to the first one.<br /><br />The procedure is nearly the same like CheckDevice(), so have a look there if<br />you are need some further infos. For using the procedure just see the example.<br /><br /><br />Procedure.b GetDeviceList(kind.l)<br /> Structure MyList<br /> typedev.l<br /> namedev.s<br /> EndStructure<br /> NewList MyDev.MyList()<br /> Shared MyDev<br /> info.l=PeekL(PeekL(DosBase()+34)+24)*4<br /> devinfo.l=PeekL(info+4)*4<br /> texte.l=PeekL(devinfo+40)*4<br /> type.l=PeekL(devinfo+4)<br /> While devinfo<>0<br /> If kind>=3<br /> AddElement(MyDev())<br /> MyDev()\typedev=type<br /> MyDev()\namedev=PeekS(texte+1)<br /> Else<br /> IF type=kind<br /> AddElement(MyDev())<br /> MyDev()\typedev=type<br /> MyDev()\namedev=PeekS(texte+1)<br /> EndIf<br /> EndIf<br /> If PeekL(devinfo)<br /> devinfo=PeekL(devinfo)*4<br /> texte=PeekL(devinfo+40)*4<br /> type=PeekL(devinfo+4)<br /> Else<br /> devinfo=0<br /> EndIf<br /> Wend<br /> FirstElement(MyDev())<br /> ProcedureReturn CountList(MyDev())<br />EndProcedure<br /><br /><br /><br />PrintN("First we search for Devices:")<br />zahl.l=GetDeviceList(0)<br />Print("We have found "):PrintNumber(zahl):PrintN(" Devices. Here the list:")<br />For i.b=1 To zahl<br /> PrintNumber(MyDev()\typedev):Print(" means Device. The name is "):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />PrintN("press mousebutton"):PrintN("")<br />MouseWait()<br /><br />PrintN("Now we search for Directories:")<br />zahl.l=GetDeviceList(1)<br />Print("We have found "):PrintNumber(zahl):PrintN(" Directories. Here the list:")<br />For i=1 To zahl<br /> PrintNumber(MyDev()\typedev):Print(" means Directory. The name is "):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />PrintN("press mousebutton"):PrintN("")<br />MouseWait()<br /><br />PrintN("Next we search for Volumes:")<br />zahl.l=GetDeviceList(2)<br />Print("We have found "):PrintNumber(zahl):PrintN(" Volumes. Here the list:")<br />For i=1 To zahl<br /> PrintNumber(MyDev()\typedev):Print(" means Volume. The name is "):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />PrintN("press mousebutton"):PrintN("")<br />MouseWait()<br /><br />PrintN("Now we get the hole list:")<br />zahl.l=GetDeviceList(3)<br />Print("We have found "):PrintNumber(zahl):PrintN(" entries. Here the list:")<br />For i=1 To zahl<br /> PrintNumber(MyDev()\typedev):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />End<br /><br /><br />Greetings ..<br />Roxxler<br /><br /><br />

to this...

Restored from previous forum. Originally posted by Roxxler.

Hi,

here a procedure called GetDeviceList(). The procedure is based on the procedure
CheckDevice(), just a little extension.
With this procedure you can create a list of the devices, directories and volumes
which are available in the system. For that the procedure creates a Shared list
called MyDev(), so that you can access it from the main program.

Parameter: kind.l what we are searching for
0 = devices
1 = directories (means assigns)
2 = volumes
3 or higher = a complete list (devices + directories + volumes)

Return : number of found entries

The list MyDev() contains two variables:
MyDev()\typedev = long, 0 = the following string is a device
1 = the following string is a directory
2 = the following string is a volume
MyDev()\namedev = string, the name of the device/directory/volume
Before leaving the procedure it sets the List to the first one.

The procedure is nearly the same like CheckDevice(), so have a look there if
you are need some further infos. For using the procedure just see the example.


Procedure.b GetDeviceList(kind.l)
Structure MyList
typedev.l
namedev.s
EndStructure
NewList MyDev.MyList()
Shared MyDev
info.l=PeekL(PeekL(DosBase()+34)+24)*4
devinfo.l=PeekL(info+4)*4
texte.l=PeekL(devinfo+40)*4
type.l=PeekL(devinfo+4)
While devinfo<>0
If kind>=3
AddElement(MyDev())
MyDev()\typedev=type
MyDev()\namedev=PeekS(texte+1)
Else
IF type=kind
AddElement(MyDev())
MyDev()\typedev=type
MyDev()\namedev=PeekS(texte+1)
EndIf
EndIf
If PeekL(devinfo)
devinfo=PeekL(devinfo)*4
texte=PeekL(devinfo+40)*4
type=PeekL(devinfo+4)
Else
devinfo=0
EndIf
Wend
FirstElement(MyDev())
ProcedureReturn CountList(MyDev())
EndProcedure



PrintN("First we search for Devices:")
zahl.l=GetDeviceList(0)
Print("We have found "):PrintNumber(zahl):PrintN(" Devices. Here the list:")
For i.b=1 To zahl
PrintNumber(MyDev()\typedev):Print(" means Device. The name is "):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
PrintN("press mousebutton"):PrintN("")
MouseWait()

PrintN("Now we search for Directories:")
zahl.l=GetDeviceList(1)
Print("We have found "):PrintNumber(zahl):PrintN(" Directories. Here the list:")
For i=1 To zahl
PrintNumber(MyDev()\typedev):Print(" means Directory. The name is "):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
PrintN("press mousebutton"):PrintN("")
MouseWait()

PrintN("Next we search for Volumes:")
zahl.l=GetDeviceList(2)
Print("We have found "):PrintNumber(zahl):PrintN(" Volumes. Here the list:")
For i=1 To zahl
PrintNumber(MyDev()\typedev):Print(" means Volume. The name is "):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
PrintN("press mousebutton"):PrintN("")
MouseWait()

PrintN("Now we get the hole list:")
zahl.l=GetDeviceList(3)
Print("We have found "):PrintNumber(zahl):PrintN(" entries. Here the list:")
For i=1 To zahl
PrintNumber(MyDev()\typedev):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
End


Greetings ..
Roxxler

works great!
Of course thanks to Luis for his viewer as well

[Fred]

I spent some time to reformat the backupuser posts directly in the database, so it should be readable/pastable now.

[Arctic Fox]

Thanks a lot, Fred!
Much easier to read now

[viiartz]

Much appreciated Fred