Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

4D Support Center - 4D Code Beispiel zum Thema:

URL to Text

 

Erfaßt von: Deeg (eMail: deeg@nodegmbh.de ) am 23.02.2005 ; -
Letzte Änderung: 23.02.2005

 

Kurzbeschriebung: Konvertiert URL Text zu Plain Text (zb beim WEB-Server über die URL übergebenen Text)

---

Beschreibung Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für URL to Text

---

4D Code Beispiel `URL_toText C_TEXT($0;$1;$Text;$Text_new;$QP;$Char) $Text:=$1 $Text_new:="" $Text:=Replace string($Text;"+";" ") `in a QP-String a space is represented by an underscore! $pos:=Position("%";$Text) If ($pos>0) While ($pos>0) If (Length($Text)>=($pos+2)) $QP:=Substring($Text;$pos;3) Else $QP:=Substring($Text;$pos) End if $Text_new:=$Text_new+Substring($Text;1;$pos-1) $Text:=Substring($Text;$pos+Length($QP)) $Char:=$QP `default, if there is no match in the Case-Statement Case of ::($QP="%00") $Char:=Char(0) : ($QP="%01") $Char:=Char(1) : ($QP="%02") $Char:=Char(2) : ($QP="%03") $Char:=Char(3) : ($QP="%04") $Char:=Char(4) : ($QP="%05") $Char:=Char(5) : ($QP="%06") $Char:=Char(6) : ($QP="%07") $Char:=Char(7) : ($QP="%08") $Char:=Char(8) : ($QP="%09") $Char:=Char(9) : ($QP="%0A") $Char:=Char(10) : ($QP="%0B") $Char:=Char(11) : ($QP="%0C") $Char:=Char(12) : ($QP="%0D") $Char:=Char(13) : ($QP="%0E") $Char:=Char(14) : ($QP="%0F") $Char:=Char(15) : ($QP="%10") $Char:=Char(16) : ($QP="%11") $Char:=Char(17) : ($QP="%12") $Char:=Char(18) : ($QP="%13") $Char:=Char(19) : ($QP="%14") $Char:=Char(20) : ($QP="%15") $Char:=Char(21) : ($QP="%16") $Char:=Char(22) : ($QP="%17") $Char:=Char(23) : ($QP="%18") $Char:=Char(24) : ($QP="%19") $Char:=Char(25) : ($QP="%1A") $Char:=Char(26) : ($QP="%1B") $Char:=Char(27) : ($QP="%1C") $Char:=Char(28) : ($QP="%1D") $Char:=Char(29) : ($QP="%1E") $Char:=Char(30) : ($QP="%1F") $Char:=Char(31) : ($QP="%20") $Char:=Char(32) : ($QP="%21") $Char:=Char(33) : ($QP="%22") $Char:=Char(34) : ($QP="%23") $Char:=Char(35) : ($QP="%24") $Char:=Char(36) : ($QP="%25") $Char:=Char(37) : ($QP="%26") $Char:=Char(38) : ($QP="%27") $Char:=Char(39) : ($QP="%28") $Char:=Char(40) : ($QP="%29") $Char:=Char(41) : ($QP="%2A") $Char:=Char(42) : ($QP="%2B") $Char:=Char(43) : ($QP="%2C") $Char:=Char(44) : ($QP="%2D") $Char:=Char(45) : ($QP="%2E") $Char:=Char(46) : ($QP="%2F") $Char:=Char(47) : ($QP="%3A") $Char:=Char(58) : ($QP="%3B") $Char:=Char(59) : ($QP="%3C") $Char:=Char(60) : ($QP="%3D") $Char:=Char(61) : ($QP="%3E") $Char:=Char(62) : ($QP="%3F") $Char:=Char(63) : ($QP="%40") $Char:=Char(64) : ($QP="%5B") $Char:=Char(91) : ($QP="%5C") $Char:=Char(92) : ($QP="%5D") $Char:=Char(93) : ($QP="%5E") $Char:=Char(94) : ($QP="%5F") $Char:=Char(95) : ($QP="%60") $Char:=Char(96) : ($QP="%7B") $Char:=Char(123) : ($QP="%7C") $Char:=Char(124) : ($QP="%7D") $Char:=Char(125) : ($QP="%7E") $Char:=Char(126) : ($QP="%7F") $Char:=Char(127) : ($QP="%80") $Char:=Char(128) : ($QP="%81") $Char:=Char(129) : ($QP="%82") $Char:=Char(130) : ($QP="%83") $Char:=Char(131) : ($QP="%84") $Char:=Char(132) : ($QP="%85") $Char:=Char(133) : ($QP="%86") $Char:=Char(134) : ($QP="%87") $Char:=Char(135) : ($QP="%88") $Char:=Char(136) : ($QP="%89") $Char:=Char(137) : ($QP="%8A") $Char:=Char(138) : ($QP="%8B") $Char:=Char(139) : ($QP="%8C") $Char:=Char(140) : ($QP="%8D") $Char:=Char(141) : ($QP="%8E") $Char:=Char(142) : ($QP="%8F") $Char:=Char(143) : ($QP="%90") $Char:=Char(144) : ($QP="%91") $Char:=Char(145) : ($QP="%92") $Char:=Char(146) : ($QP="%93") $Char:=Char(147) : ($QP="%94") $Char:=Char(148) : ($QP="%95") $Char:=Char(149) : ($QP="%96") $Char:=Char(150) : ($QP="%97") $Char:=Char(151) : ($QP="%98") $Char:=Char(152) : ($QP="%99") $Char:=Char(153) : ($QP="%9A") $Char:=Char(154) : ($QP="%9B") $Char:=Char(155) : ($QP="%9C") $Char:=Char(156) : ($QP="%9D") $Char:=Char(157) : ($QP="%9E") $Char:=Char(158) : ($QP="%9F") $Char:=Char(159) : ($QP="%A0") $Char:=Char(160) : ($QP="%A1") $Char:=Char(161) : ($QP="%A2") $Char:=Char(162) : ($QP="%A3") $Char:=Char(163) : ($QP="%A4") $Char:=Char(164) : ($QP="%A5") $Char:=Char(165) : ($QP="%A6") $Char:=Char(166) : ($QP="%A7") $Char:=Char(167) : ($QP="%A8") $Char:=Char(168) : ($QP="%A9") $Char:=Char(169) : ($QP="%AA") $Char:=Char(170) : ($QP="%AB") $Char:=Char(171) : ($QP="%AC") $Char:=Char(172) : ($QP="%AD") $Char:=Char(173) : ($QP="%AE") $Char:=Char(174) : ($QP="%AF") $Char:=Char(175) : ($QP="%B0") $Char:=Char(176) : ($QP="%B1") $Char:=Char(177) : ($QP="%B2") $Char:=Char(178) : ($QP="%B3") $Char:=Char(179) : ($QP="%B4") $Char:=Char(180) : ($QP="%B5") $Char:=Char(181) : ($QP="%B6") $Char:=Char(182) : ($QP="%B7") $Char:=Char(183) : ($QP="%B8") $Char:=Char(184) : ($QP="%B9") $Char:=Char(185) : ($QP="%BA") $Char:=Char(186) : ($QP="%BB") $Char:=Char(187) : ($QP="%BC") $Char:=Char(188) : ($QP="%BD") $Char:=Char(189) : ($QP="%BE") $Char:=Char(190) : ($QP="%BF") $Char:=Char(191) : ($QP="%C0") $Char:=Char(192) : ($QP="%C1") $Char:=Char(193) : ($QP="%C2") $Char:=Char(194) : ($QP="%C3") $Char:=Char(195) : ($QP="%C4") $Char:=Char(196) : ($QP="%C5") $Char:=Char(197) : ($QP="%C6") $Char:=Char(198) : ($QP="%C7") $Char:=Char(199) : ($QP="%C8") $Char:=Char(200) : ($QP="%C9") $Char:=Char(201) : ($QP="%CA") $Char:=Char(202) : ($QP="%CB") $Char:=Char(203) : ($QP="%CC") $Char:=Char(204) : ($QP="%CD") $Char:=Char(205) : ($QP="%CE") $Char:=Char(206) : ($QP="%CF") $Char:=Char(207) : ($QP="%D0") $Char:=Char(208) : ($QP="%D1") $Char:=Char(209) : ($QP="%D2") $Char:=Char(210) : ($QP="%D3") $Char:=Char(211) : ($QP="%D4") $Char:=Char(212) : ($QP="%D5") $Char:=Char(213) : ($QP="%D6") $Char:=Char(214) : ($QP="%D7") $Char:=Char(215) : ($QP="%D8") $Char:=Char(216) : ($QP="%D9") $Char:=Char(217) : ($QP="%DA") $Char:=Char(218) : ($QP="%DB") $Char:=Char(219) : ($QP="%DC") $Char:=Char(220) : ($QP="%DD") $Char:=Char(221) : ($QP="%DE") $Char:=Char(222) : ($QP="%DF") $Char:=Char(223) : ($QP="%E0") $Char:=Char(224) : ($QP="%E1") $Char:=Char(225) : ($QP="%E2") $Char:=Char(226) : ($QP="%E3") $Char:=Char(227) : ($QP="%E4") $Char:=Char(228) : ($QP="%E5") $Char:=Char(229) : ($QP="%E6") $Char:=Char(230) : ($QP="%E7") $Char:=Char(231) : ($QP="%E8") $Char:=Char(232) : ($QP="%E9") $Char:=Char(233) : ($QP="%EA") $Char:=Char(234) : ($QP="%EB") $Char:=Char(235) : ($QP="%EC") $Char:=Char(236) : ($QP="%ED") $Char:=Char(237) : ($QP="%EE") $Char:=Char(238) : ($QP="%EF") $Char:=Char(239) : ($QP="%F0") $Char:=Char(240) : ($QP="%F1") $Char:=Char(241) : ($QP="%F2") $Char:=Char(242) : ($QP="%F3") $Char:=Char(243) : ($QP="%F4") $Char:=Char(244) : ($QP="%F5") $Char:=Char(245) : ($QP="%F6") $Char:=Char(246) : ($QP="%F7") $Char:=Char(247) : ($QP="%F8") $Char:=Char(248) : ($QP="%F9") $Char:=Char(249) : ($QP="%FA") $Char:=Char(250) : ($QP="%FB") $Char:=Char(251) : ($QP="%FC") $Char:=Char(252) : ($QP="%FD") $Char:=Char(253) : ($QP="%FE") $Char:=Char(254) : ($QP="%FF") $Char:=Char(255) : ($QP="%3D") $Char:="%" End case $Text_new:=$Text_new+$Char $pos:=Position("%";$Text) End while $Text_new:=$Text_new+$Text Else $Text_new:=$Text End if $0:=$Text_new Code ändern (nur für Autor - Kennwort geschützt)

---

Zurück

 

 

International | Firmenprofil | Kontakt | Site Map | © 4D 1995 - 2007 | Schriftgröße ändern: [A] [A] [A] | - * Externer Link