[Resolu] AddList pour récupérer de mots d'une page web

Ar-S · Message par **Ar-S** » mer. 26/nov./2008 13:32

STOOOOOPPPPP
Plus la peine !!! j'ai trouvé d'où venait l'erreur, je suis comme un dingue !!!

L'erreur vient de .... FIREFOX !!!

En effet ! en faisant CTRL + C dans FF, j'obtenais :

# aeyhrl
# naacdonn
# dbieir
# sngt1i
# bbslbeu
# ixamrt
# romhet
# hamsol
# tnaanh
# osisnmi

Alors qu'avec IE j'obtiens simplement :

aeyhrl

naacdonn

dbieir

sngt1i

bbslbeu

ixamrt

romhet

hamsol

tnaanh

osisnmi

Je suis désolé de t'avoir fait perdre du temps à cause de ça mais alors allez comprendre pourquoi FF génère un # !!!

Ollivier · Message par **Ollivier** » mer. 26/nov./2008 16:01

Ce code-ci te permet de bien montrer le problème.

Code : Tout sélectionner

  Define St.S
  Define LSt.L
  Define Dia.S
  Define A.L
  Define i.L
  
  ;- On vide le presse-papier 
  
  SetClipboardText("") 

  ;- On attend que le presse-papier contienne qqch... 
  Repeat 
    Delay(5) 
    St = GetClipboardText() 
  Until St <> "" 

  SetClipboardText("")
  LSt = Len(St)
  For i = 1 To LSt
    A = Asc(Mid(St, i, 1) ) 
    SetClipboardText(GetClipboardText() + RSet(Hex(A), 2, "0") )
    If A > 31
      Dia + Chr(A) 
    Else
      Dia + "."
    EndIf
    If ((i - 1) % 16) = 15 Or i = LSt   
      SetClipboardText(GetClipboardText() + Space(4) + "«" + Dia + "»" + Chr(13) + Chr(10) )
      Dia = ""    
    EndIf
  Next i
  
  End

Ollivier · Message par **Ollivier** » mer. 26/nov./2008 16:04

En copiant la liste avec IE, j'obtiens ça. Peux-tu poster un extrait avec FireFox?

Code : Tout sélectionner

63656F63746E6E0D0A200D0A6F72656D    «ceoctnn.. ..orem»
6465660D0A200D0A726361656E640D0A    «def.. ..rcaend..»
200D0A65647A65706C0D0A200D0A696E    « ..edzepl.. ..in»
736772650D0A200D0A7A6162726C690D    «sgre.. ..zabrli.»
0A200D0A616861686E6E0D0A200D0A65    «. ..ahahnn.. ..e»
6C656E696C0D0A200D0A737269656774    «lenil.. ..sriegt»
0D0A200D0A747973637269680D0A200D    «.. ..tyscrih.. .»
0A    «.»

Ar-S · Message par **Ar-S** » mer. 26/nov./2008 16:18

Et bien sous FF les "# " sont bien là !

Code : Tout sélectionner

  23203231696F33700D0A232065746E70    «# 21io3p..# etnp»
796F720D0A2320796F77636F620D0A23    «yor..# yowcob..#»
207565696F6C730D0A23206974636169    « ueiols..# itcai»
720D0A2320646965617272730D0A2320    «r..# diearrs..# »
6B73656C65790D0A232069617373636F    «kseley..# iassco»
700D0A232063726F6973706F0D0A2320    «p..# croispo..# »
736F79727468    «soyrth»

Ollivier · Message par **Ollivier** » mer. 26/nov./2008 16:24

Ok, logiquement, ce code-ci fonctionne dans les deux types de navigateurs.

Code : Tout sélectionner

DataSection 
Data.S "html:)", "121212", "131313", "123123", "654321" 
Data.S "8675309", "666666", "696969", "888888", "1234567" 
Data.S "21122112", "12345678", "asdfjkl;", "hal9000" 
Data.S "bond007", "ncc1701d", "ncc1701e", "ncc1701" 
Data.S "thx1138", "a12345", "abcd1234", "1234qwer", "1a2b3c" 
Data.S "1q2w3e", "test123", "1p2o3i", "puppy123", "kitten12" 
Data.S "qwerty12", "john316", "apollo13", "ne1469", "amanda1" 
Data.S "mazda1", "angela1", "alpha1", "sarah1", "nirvana1" 
Data.S "bubba1", "scuba1", "rambo1", "charlie1", "david1" 
Data.S "digital1", "dragon1", "honda1", "shadow1", "eagle1" 
Data.S "freak1", "james1", "1sanjose", "apple1", "master1" 
Data.S "happy1", "martin1", "jason1", "larry1", "number1" 
Data.S "robert1", "soccer1", "direct1", "chester1", "welcome1" 
Data.S "french1", "hockey1", "chevy1", "scooter1", "chris1" 
Data.S "lucky1", "teddy1", "phoenix1", "hello1", "julie1" 
Data.S "kevin1", "pookie1", "viper1", "jenny1", "jesus1" 
Data.S "kelly1", "money1", "mouse1", "sting1", "justin1" 
Data.S "molly1", "sunny1", "front242", "jordan23", "2welcome" 
Data.S "h2opolo", "bird33", "4runner", "babylon5", "star69" 
Data.S "ib6ub9", "america7", "seven7", "number9", "porsche9" 
Data.S "barbara", "database", "banana", "bananas", "canada" 
Data.S "jamaica", "amanda", "valhalla", "samantha", "yamaha" 
Data.S "natasha", "alaska", "tamara", "zapata", "avatar" 
Data.S "basketba", "baseball", "basebal", "bastard" 
Data.S "nebraska", "banane", "abigail", "sabrina", "batman" 
Data.S "cocacola", "cascade", "cardinal", "claudia" 
Data.S "packard", "cannonda", "apache", "america", "canela" 
Data.S "camera", "caesar", "warcraft", "catalog", "chapman" 
Data.S "zachary", "alicia", "patricia", "carolina", "nicarao" 
Data.S "captain", "nautica", "pascal", "rascal", "camaro" 
Data.S "nascar", "deadhead", "adidas", "alexande", "airhead" 
Data.S "alexandr", "andrea", "gandalf", "grandma", "happyday" 
Data.S "indiana", "paladin", "miranda", "adrian", "dakota" 
Data.S "dallas", "mayday", "pandora", "sandra", "xanadu" 
Data.S "angela", "margaret", "stargate", "savage", "gateway" 
Data.S "athena", "ariane", "pearljam", "maryjane", "oatmeal" 
Data.S "pamela", "pantera", "vanessa", "graymail", "iguana" 
Data.S "jaguar", "galaxy", "gasman", "hannah", "hawaii" 
Data.S "mariah", "jonathan", "marshal", "martha", "nathan" 
Data.S "italia", "aikman", "saskia", "vanilla", "mailman" 
Data.S "animal", "animals", "impala", "attila", "marina" 
Data.S "mariposa", "nirvana", "arizona", "joanna", "january" 
Data.S "lakota", "avalon", "alyssa", "yomama", "montana" 
Data.S "mantra", "tazman", "tarzan", "starwars", "bobcat" 
Data.S "badboy", "barbie", "babies", "basketb", "rabbit" 
Data.S "bamboo", "rebecca", "abcdef", "abcdefg", "blackie" 
Data.S "excalibu", "campbell", "tacobell", "bigmac" 
Data.S "jsbach", "columbia", "buddha", "badger", "butthead" 
Data.S "bradley", "brenda", "bernard", "ladybug", "diablo" 
Data.S "blizzard", "brandi", "bandit", "brandon", "brandy" 
Data.S "beagle", "isabelle", "elizabet", "beanie", "beatles" 
Data.S "webmaste", "beaner", "beaver", "fireball", "beautifu" 
Data.S "gabriell", "gabriel", "poohbear", "bertha", "benjamin" 
Data.S "bailey", "beavis", "basket", "blaster", "albert" 
Data.S "blazer", "barney", "strawber", "braves", "buffalo" 
Data.S "football", "softball", "footbal", "foobar", "bigman" 
Data.S "gambit", "global", "malibu", "library", "brasil" 
Data.S "brazil", "rainbow", "obiwan", "kombat", "snowball" 
Data.S "marlboro", "snowbal", "playboy", "absolut", "wombat" 
Data.S "canced", "icecream", "chance", "celica", "cracker" 
Data.S "cancer", "access", "pacific", "chicago", "chocolat" 
Data.S "arctic", "clancy", "cactus", "dickhead", "maddock" 
Data.S "medical", "claude", "sundance", "dancer", "crawford" 
Data.S "richard", "wildcat", "picard", "colorado", "conrad" 
Data.S "corrado", "changeme", "chelsea", "peaches", "research" 
Data.S "teachers", "teacher", "creative", "cleaner" 
Data.S "france", "challeng", "michael", "charlie", "archie" 
Data.S "hacker", "chanel", "rachel", "charles", "patches" 
Data.S "jackie", "janice", "jessica", "maverick", "metallic" 
Data.S "caroline", "special", "claire", "iceman", "maurice" 
Data.S "maveric", "veronica", "carrie", "cassie", "active" 
Data.S "slacker", "packer", "packers", "marcel", "coltrane" 
Data.S "carole", "lacrosse", "scarlet", "scarlett", "castle" 
Data.S "carmen", "pacers", "racerx", "stacey", "catfish" 
Data.S "californ", "francois", "francis", "falcon", "graphic" 
Data.S "logical", "garlic", "camping", "racing", "cougars" 
Data.S "cougar", "chiquita", "christia", "nicholas" 
Data.S "champion", "cynthia", "charity", "charlott" 
Data.S "champs", "caitlin", "victoria", "tricia", "patrick" 
Data.S "calvin", "monica", "macintos", "action", "picasso" 
Data.S "jackson", "malcolm", "coolman", "classroo", "carlos" 
Data.S "crystal", "compaq", "tomcat", "marcus", "cannon" 
Data.S "corona", "cyrano", "topcat", "tractor", "laddie" 
Data.S "undead", "edward", "maddog", "diamond", "donald" 
Data.S "woodland", "greenday", "danielle", "dreamer" 
Data.S "reader", "garfield", "alfred", "reading", "gerald" 
Data.S "garden", "shithead", "daniel", "ireland", "raider" 
Data.S "raiders", "daytek", "leonard", "dreams", "anderson" 
Data.S "darren", "sanders", "andrew", "retard", "tuesday" 
Data.S "asdfghjk", "asdfgh", "dragonfl", "florida", "friday" 
Data.S "asdfjkl", "digital", "godzilla", "douglas", "dragon" 
Data.S "harold", "rhonda", "zaphod", "howard", "shadows" 
Data.S "shadow", "thursday", "indian", "island", "lindsay" 
Data.S "lizard", "madison", "pyramid", "darwin", "tardis" 
Data.S "wizard", "majordom", "jordan", "dollars", "orlando" 
Data.S "portland", "ronald", "rodman", "raymond", "monday" 
Data.S "sunday", "password", "passwd", "jeanette", "sweetpea" 
Data.S "jaeger", "general", "eagles", "heather", "kathleen" 
Data.S "hawkeye", "elephant", "sheena", "theresa", "theatre" 
Data.S "whatever", "whateve", "amelie", "melanie", "elaine" 
Data.S "valerie", "jeanne", "yankees", "walleye", "please" 
Data.S "seattle", "weasel", "awesome", "netware", "teresa" 
Data.S "grateful", "frankie", "fireman", "ferrari", "farmer" 
Data.S "safety", "maggie", "georgia", "aggies", "imagine" 
Data.S "galileo", "goalie", "enigma", "mirage", "wrangler" 
Data.S "angels", "german", "orange", "oranges", "ranger" 
Data.S "garnet", "voyager", "garrett", "target", "health" 
Data.S "katherin", "sheila", "stephani", "sapphire" 
Data.S "asshole", "harley", "stealth", "whales", "ashley" 
Data.S "hammer", "herman", "theman", "hamster", "matthew" 
Data.S "panther", "hearts", "harvey", "jasmine", "mikael" 
Data.S "mailer", "melissa", "valentin", "lorraine", "alpine" 
Data.S "aliens", "tequila", "reality", "laurie", "alexis" 
Data.S "sammie", "maxime", "marine", "vampire", "insane" 
Data.S "painter", "petunia", "praise", "pirate", "sierra" 
Data.S "asterix", "xavier", "jasper", "lakers", "walker" 
Data.S "kramer", "market", "tanker", "wanker", "parker" 
Data.S "startrek", "skater", "maxwell", "stella", "montreal" 
Data.S "temporal", "sampler", "marley", "samuel", "napoleon" 
Data.S "espanol", "snapple", "planet", "lauren", "stanley" 
Data.S "apples", "players", "player", "raquel", "slayer" 
Data.S "travel", "walter", "lestat", "superman", "masters" 
Data.S "master", "tanner", "suzanne", "newpass", "peanut" 
Data.S "warren", "tiffany", "wolfgang", "flamingo", "farming" 
Data.S "fugazi", "franklin", "family", "fountain", "wolfman" 
Data.S "smashing", "virginia", "sailing", "training" 
Data.S "stingray", "giants", "guitar", "magnum", "morgan" 
Data.S "mustang", "gymnast", "august", "mishka", "harrison" 
Data.S "spanish", "shanti", "joshua", "kathryn", "shalom" 
Data.S "hansolo", "phantom", "thomas", "shannon", "hanson" 
Data.S "anthony", "sharon", "hatton", "author", "arthur" 
Data.S "nikita", "williams", "william", "raistlin", "olivia" 
Data.S "julian", "jasmin", "allison", "marilyn", "alison" 
Data.S "polaris", "sailor", "quality", "sylvia", "ironman" 
Data.S "mountain", "tinman", "marino", "martin", "marvin" 
Data.S "matrix", "nissan", "passion", "station", "tristan" 
Data.S "austin", "utopia", "warriors", "warrior", "artist" 
Data.S "travis", "krystal", "spanky", "sparky", "apollo" 
Data.S "salmon", "psalms", "larson", "royals", "taylor" 
Data.S "norman", "snowman", "sampson", "samson", "mozart" 
Data.S "watson", "saturn", "tattoo", "toyota", "sparrow" 
Data.S "parrot", "passwor", "qwaszx", "stuart", "taurus" 
Data.S "bubbles", "debbie", "bluebird", "bigbird", "pebbles" 
Data.S "robbie", "hobbit", "jimbob", "booboo", "december" 
Data.S "quebec", "robotech", "republic", "october", "public" 
Data.S "zxcvbnm", "broncos", "cowboys", "scooby", "cowboy" 
Data.S "firebird", "bigred", "bridges", "dogbert", "thunderb" 
Data.S "birdie", "blondie", "dilbert", "doobie", "blonde" 
Data.S "rosebud", "bigdog", "bulldog", "sunbird", "remember" 
Data.S "septembe", "homebrew", "herbert", "biteme", "bernie" 
Data.S "reebok", "rebels", "byteme", "brewster", "webster" 
Data.S "boogie", "junebug", "goblue", "goober", "shelby" 
Data.S "theboss", "kimberly", "zombie", "timber", "bonnie" 
Data.S "benoit", "business", "nesbitt", "bootsie", "bluesky" 
Data.S "brooke", "volleyb", "bullet", "blowme", "trouble" 
Data.S "butler", "boomer", "benson", "booster", "trebor" 
Data.S "buster", "bigfoot", "blowfish", "bright", "bowling" 
Data.S "biology", "gibson", "bullshit", "robinhoo", "bookit" 
Data.S "wilbur", "bonjour", "symbol", "boston", "browns" 
Data.S "buttons", "button", "brutus", "cccccc", "electric" 
Data.S "science", "chicken", "cricket", "celtics", "cyclone" 
Data.S "connect", "concept", "soccer", "success", "church" 
Data.S "chucky", "scotch", "cloclo", "cuddles", "depeche" 
Data.S "mercedes", "frederic", "deutsch", "duckie", "wicked" 
Data.S "cinder", "director", "orchid", "dominic", "doctor" 
Data.S "cheese", "coffee", "fletcher", "gretchen", "college" 
Data.S "michelle", "michele", "speech", "chester", "celine" 
Data.S "eclipse", "pierce", "service", "colleen", "telecom" 
Data.S "welcome", "spencer", "center", "except", "secret" 
Data.S "chiefs", "fletch", "fuckme", "fucker", "michell" 
Data.S "mitchell", "michel", "chipper", "hockey", "cheryl" 
Data.S "techno", "porsche", "hector", "cherry", "justice" 
Data.S "pickle", "mickey", "snicker", "snickers", "cookie" 
Data.S "cookies", "nicole", "police", "clipper", "mexico" 
Data.S "connie", "vincent", "prince", "princess", "picture" 
Data.S "pisces", "security", "cruise", "rocket", "puckett" 
Data.S "tucker", "clover", "computer", "compute", "mercury" 
Data.S "newcourt", "courtney", "cooper", "scooter", "coyote" 
Data.S "copper", "fuckoff", "scruffy", "fiction", "fuckyou" 
Data.S "gocougs", "christin", "christop", "chrissy" 
Data.S "christ", "christy", "school", "psycho", "politics" 
Data.S "knicks", "lincoln", "unicorn", "scorpion", "corwin" 
Data.S "sonics", "scorpio", "victor", "victory", "curtis" 
Data.S "trucks", "control", "compton", "moocow", "cosmos" 
Data.S "popcorn", "xcountry", "country", "scotty", "deedee" 
Data.S "dundee", "freddy", "dodger", "dodgers", "defense" 
Data.S "freedom", "fender", "legend", "deliver", "denise" 
Data.S "kennedy", "ledzep", "denver", "speedo", "speedy" 
Data.S "dexter", "friend", "friends", "doggie", "digger" 
Data.S "goldie", "redwing", "design", "doogie", "dougie" 
Data.S "golden", "hendrix", "thunder", "inside", "kinder" 
Data.S "redskin", "dookie", "lindsey", "dennis", "trident" 
Data.S "sendit", "sidney", "detroit", "spider", "strider" 
Data.S "donkey", "reynolds", "elwood", "redrum", "wonder" 
Data.S "notused", "student", "sydney", "windsurf", "oxford" 
Data.S "midnight", "dwight", "hotdog", "indigo", "kingdom" 
Data.S "snoopdog", "gordon", "phurivdli", "judith", "dolphin" 
Data.S "dolphins", "hotrod", "dorothy", "midori", "skidoo" 
Data.S "domino", "nimrod", "wisdom", "windows", "dustin" 
Data.S "stupid", "drizzt", "london", "studly", "voodoo" 
Data.S "peewee", "reefer", "eugene", "sweetie", "kleenex" 
Data.S "skeeter", "penelope", "steelers", "steele", "eeyore" 
Data.S "weezer", "jeffrey", "jennifer", "jenifer", "ferret" 
Data.S "reggie", "george", "wheeling", "genesis", "sergei" 
Data.S "energy", "hershey", "kenneth", "shelley", "helpme" 
Data.S "wheels", "promethe", "hermes", "stephen", "einstein" 
Data.S "jessie", "nellie", "leslie", "letmein", "zeppelin" 
Data.S "etoile", "nemesis", "internet", "pierre", "jewels" 
Data.S "jeremy", "jensen", "jester", "kelsey", "loveme" 
Data.S "people", "explorer", "wrestle", "letter", "wesley" 
Data.S "velvet", "western", "newuser", "steven", "popeye" 
Data.S "europe", "pepper", "express", "tester", "stever" 
Data.S "testtest", "sweets", "sweety", "tweety", "griffey" 
Data.S "golfer", "fisher", "spitfire", "flipper", "xfiles" 
Data.S "fozzie", "sunflowe", "flowers", "flower", "flyers" 
Data.S "forest", "surfer", "future", "ginger", "tigger" 
Data.S "google", "nugget", "gregory", "theking", "gopher" 
Data.S "gemini", "gilles", "piglet", "penguin", "guinness" 
Data.S "singer", "testing", "genius", "tigers", "gretzky" 
Data.S "gunner", "nguyen", "grover", "shirley", "memphis" 
Data.S "sunshine", "phoenix", "whitney", "zenith", "hootie" 
Data.S "sophie", "joseph", "huskers", "shelly", "mother" 
Data.S "thumper", "hornets", "hornet", "hunter", "shooter" 
Data.S "topher", "horses", "zephyr", "sherry", "millie" 
Data.S "willie", "olivier", "minnie", "winnie", "trixie" 
Data.S "jupiter", "killme", "killer", "mookie", "kermit" 
Data.S "kristen", "tinker", "kittens", "kitten", "pookie" 
Data.S "skipper", "miller", "soleil", "elliot", "little" 
Data.S "merlin", "simple", "smiles", "smiley", "online" 
Data.S "wolverin", "liverpoo", "iloveyou", "oliver" 
Data.S "louise", "violet", "silver", "sylvie", "mortimer" 
Data.S "swimmer", "emmitt", "monique", "pentium", "mittens" 
Data.S "niners", "intern", "winner", "tennis", "senior" 
Data.S "sniper", "sunrise", "winter", "tootsie", "puppies" 
Data.S "ripper", "sprite", "monkey", "smokey", "network" 
Data.S "newyork", "volley", "yellow", "russell", "lennon" 
Data.S "nelson", "looney", "loveyou", "protel", "wolves" 
Data.S "purple", "russel", "turtle", "memory", "summer" 
Data.S "monster", "vermont", "trumpet", "system", "newton" 
Data.S "yvonne", "runner", "preston", "entropy", "reznor" 
Data.S "sunset", "rooster", "property", "porter", "export" 
Data.S "trevor", "qwerty", "fluffy", "muffin", "snuffy" 
Data.S "golfing", "froggy", "kingfish", "fishing", "flight" 
Data.S "gofish", "goforit", "informix", "pinkfloy", "foxtrot" 
Data.S "frosty", "zhongguo", "knights", "knight", "nothing" 
Data.S "hunting", "wright", "shotgun", "lionking", "skiing" 
Data.S "vikings", "viking", "swimming", "running", "roping" 
Data.S "spring", "grumpy", "topgun", "groovy", "phillip" 
Data.S "philip", "whisky", "timothy", "smiths", "sunshin" 
Data.S "horizon", "history", "johnson", "johnny", "murphy" 
Data.S "houston", "python", "shorty", "kristin", "kristi" 
Data.S "million", "mission", "tintin", "vision", "spirit" 
Data.S "junior", "justin", "pumpkin", "punkin", "skinny" 
Data.S "stinky", "skippy", "kristy", "suzuki", "willow" 
Data.S "wilson", "moroni", "mirror", "morris", "stimpy" 
Data.S "winston", "poiuyt", "squirt", "spunky", "spooky" 
Data.S "monopoly", "molson", "moomoo", "stormy", "toronto" 
Data.S "snoopy", "support", "sports" 
EndDataSection 
#WordCount = 1275 

Structure WORDATTR 
  Coef.L 
  Root.L 
EndStructure 

Structure COEF 
  Begin.L 
  End.L 
EndStructure 

  Define LastWord.L 
  Define i.L 
  Define j.L 
  Define k.L 
  Define m.L 
  Define Tmp.S 
  Define TestSt.S 
  Define A.L 
  Define FirstCoef.L 
  Define LastCoef.L 
  Define LI.L 
  Define LS.L 
  Define St.S 
  Define Word.S 
  Define LWord.L 
  Define Paste.S 
  
  OpenWindow(0, 0, 0, 320, 0, "Initialisation...", $CF0001) 
  StickyWindow(0, 1)  

  LastWord = #WordCount - 1 
  Global Dim WordList.S(LastWord) 
  Global NewList WordAttr.WORDATTR() 
  
  ;- On sort la liste de la DataSection 
  
  For i = 0 To LastWord 
    Read.S WordList(i) 
    WordList(i) = LCase(WordList(i) ) 
    AddElement(WordAttr() ) 
    WordAttr()\Root = i 
    ;-> Un coef par mot 
    For j = 1 To Len(WordList(i) ) 
      A = Asc(Mid(WordList(i), j, 1) ) 
      WordAttr()\Coef + A 
    Next j 
  Next i 

  ;- On fait un tri par coef 

  SortStructuredList(WordAttr(), #PB_Sort_Ascending, OffsetOf(WORDATTR\Coef), #PB_Sort_Long) 
  
  ;- On réfère les coefs au premier de la liste... 
  
  SelectElement(WordAttr(), 0) 
  
  FirstCoef = WordAttr()\Coef 
  
  ForEach WordAttr() 
    WordAttr()\Coef - FirstCoef 
  Next 
  
  ;- ...Pour la table d'accès par composition 
  
  LastCoef = WordAttr()\Coef 
  
  Global Dim Coef.COEF(LastCoef) 
  
  ;(Mise à zéro) 
  For i = 0 To LastCoef 
    Coef(i)\Begin = -1 
    Coef(i)\End = -1 
  Next i 
  
  ; Modif de Fred ! >> CountList devient ListSize... 
  
  LS = ListSize(WordAttr() ) 

  ForEach WordAttr() 
  
      LI = ListIndex(WordAttr() ) 
      A = WordAttr()\Coef 
      Coef(A)\Begin = LI 

      If LI + 1 < LS 

        For i = LI + 1 To LS 
          SelectElement(WordAttr(), i) 
          If WordAttr()\Coef <> A 
            Coef(A)\End = i - 1 
            SelectElement(WordAttr(), i - 1) 
            Break 
          EndIf 
        Next i 

      Else 

        Coef(A)\End = LS - 1 

      EndIf 

  Next 
  
  CloseWindow(0) 
  
  ;- On vide le presse-papier 
  
  SetClipboardText("") 
  
  ;- On attend que le presse-papier contienne qqch... 
  Repeat 
    Delay(5) 
    St = GetClipboardText() 
  Until St <> "" 

  ;- On traite...  
  
  OpenWindow(0, 0, 0, 320, 0, "Traitement...", $CF0001)  
  StickyWindow(0, 1) 
  Paste = "" 
  For i = 0 To 9 
    Word = LCase(Trim(StringField(St, i << 1 + 1, Chr(13) + Chr(10) ) ) ) 
    If Asc(Left(Word, 1) ) = 10 
      Word = Right(Word, Len(Word) - 1) 
    EndIf
    If Left(Word, 1) = "#"
      Word = Right(Word, Len(Word) - 2)
    EndIf
    LWord = Len(Word) 
    Coef = 0 
    For j = 1 To Len(Word) 
      A = Asc(Mid(Word, j, 1) ) 
      Coef + A 
    Next j 
    Coef - FirstCoef 
    If Coef(Coef)\Begin = Coef(Coef)\End 
      SelectElement(WordAttr(), Coef(Coef)\Begin) 
      Paste + WordList(WordAttr()\Root) + ", " 
    Else 
      For j = Coef(Coef)\Begin To Coef(Coef)\End 
        SelectElement(WordAttr(), j) 
        TestSt = WordList(WordAttr()\Root) 
        Tmp = TestSt 
        If Len(TestSt) = LWord 
          For k = 1 To LWord 
            For m = 1 To Len(Tmp) 
              If Mid(Word, k, 1) = Mid(Tmp, m, 1) 
                Tmp = Left(Tmp, m - 1) + Right(Tmp, Len(Tmp) - m) 
              EndIf 
            Next m 
          Next k 
          If Tmp = "" 
            Paste + TestSt + ", " 
            Break 
          EndIf 
        EndIf 
      Next j 
    EndIf 
  Next i 
  
  ;- Et on renvoie dans le presse-papier 
  
  SetClipboardText(Paste) 
  CloseWindow(0)

Ar-S · Message par **Ar-S** » mer. 26/nov./2008 16:42

Désolé mais marche tjrs pas sous FF,
la fenêtre se lance, je fait CTRL+C sur les 10 mots et ça freeze.. (je dois fermer comme un bourrin le prog, pas ff)

Dans le presse papier j'ai toujours :

Code : Tout sélectionner

# metrssa # cancyl # rpdica # srpeaj # tmetim # aektdy # gimrae # odolnn # etksba # wyelol

Pas d'espace avec le 1er # mais un espace avant tous les autres..

-----EDIT-----

Hum en collant la série de mots dans le champ j'ai bien ces espaces mais en fait ce sont bien des retour charriot. En y collant dans le blockNote j'ai bien les mots les uns sous les autres :
# mot1
# mot2
# mot 3
etc...

Ollivier · Message par **Ollivier** » mer. 26/nov./2008 18:10

Ok. En fait, vu les deux extraits hexa, FireFox semble quelquepart plus carré que IE. Je vais voir ça.

brossden · Message par **brossden** » mer. 26/nov./2008 20:19

Effacé

Ollivier · Message par **Ollivier** » mer. 26/nov./2008 20:21

Bon, logiquement, ça dicerne bien si c'est une sélection sous FF ou IE.

Je remets l'adresse

Code : Tout sélectionner

DataSection 
Data.S "html:)", "121212", "131313", "123123", "654321" 
Data.S "8675309", "666666", "696969", "888888", "1234567" 
Data.S "21122112", "12345678", "asdfjkl;", "hal9000" 
Data.S "bond007", "ncc1701d", "ncc1701e", "ncc1701" 
Data.S "thx1138", "a12345", "abcd1234", "1234qwer", "1a2b3c" 
Data.S "1q2w3e", "test123", "1p2o3i", "puppy123", "kitten12" 
Data.S "qwerty12", "john316", "apollo13", "ne1469", "amanda1" 
Data.S "mazda1", "angela1", "alpha1", "sarah1", "nirvana1" 
Data.S "bubba1", "scuba1", "rambo1", "charlie1", "david1" 
Data.S "digital1", "dragon1", "honda1", "shadow1", "eagle1" 
Data.S "freak1", "james1", "1sanjose", "apple1", "master1" 
Data.S "happy1", "martin1", "jason1", "larry1", "number1" 
Data.S "robert1", "soccer1", "direct1", "chester1", "welcome1" 
Data.S "french1", "hockey1", "chevy1", "scooter1", "chris1" 
Data.S "lucky1", "teddy1", "phoenix1", "hello1", "julie1" 
Data.S "kevin1", "pookie1", "viper1", "jenny1", "jesus1" 
Data.S "kelly1", "money1", "mouse1", "sting1", "justin1" 
Data.S "molly1", "sunny1", "front242", "jordan23", "2welcome" 
Data.S "h2opolo", "bird33", "4runner", "babylon5", "star69" 
Data.S "ib6ub9", "america7", "seven7", "number9", "porsche9" 
Data.S "barbara", "database", "banana", "bananas", "canada" 
Data.S "jamaica", "amanda", "valhalla", "samantha", "yamaha" 
Data.S "natasha", "alaska", "tamara", "zapata", "avatar" 
Data.S "basketba", "baseball", "basebal", "bastard" 
Data.S "nebraska", "banane", "abigail", "sabrina", "batman" 
Data.S "cocacola", "cascade", "cardinal", "claudia" 
Data.S "packard", "cannonda", "apache", "america", "canela" 
Data.S "camera", "caesar", "warcraft", "catalog", "chapman" 
Data.S "zachary", "alicia", "patricia", "carolina", "nicarao" 
Data.S "captain", "nautica", "pascal", "rascal", "camaro" 
Data.S "nascar", "deadhead", "adidas", "alexande", "airhead" 
Data.S "alexandr", "andrea", "gandalf", "grandma", "happyday" 
Data.S "indiana", "paladin", "miranda", "adrian", "dakota" 
Data.S "dallas", "mayday", "pandora", "sandra", "xanadu" 
Data.S "angela", "margaret", "stargate", "savage", "gateway" 
Data.S "athena", "ariane", "pearljam", "maryjane", "oatmeal" 
Data.S "pamela", "pantera", "vanessa", "graymail", "iguana" 
Data.S "jaguar", "galaxy", "gasman", "hannah", "hawaii" 
Data.S "mariah", "jonathan", "marshal", "martha", "nathan" 
Data.S "italia", "aikman", "saskia", "vanilla", "mailman" 
Data.S "animal", "animals", "impala", "attila", "marina" 
Data.S "mariposa", "nirvana", "arizona", "joanna", "january" 
Data.S "lakota", "avalon", "alyssa", "yomama", "montana" 
Data.S "mantra", "tazman", "tarzan", "starwars", "bobcat" 
Data.S "badboy", "barbie", "babies", "basketb", "rabbit" 
Data.S "bamboo", "rebecca", "abcdef", "abcdefg", "blackie" 
Data.S "excalibu", "campbell", "tacobell", "bigmac" 
Data.S "jsbach", "columbia", "buddha", "badger", "butthead" 
Data.S "bradley", "brenda", "bernard", "ladybug", "diablo" 
Data.S "blizzard", "brandi", "bandit", "brandon", "brandy" 
Data.S "beagle", "isabelle", "elizabet", "beanie", "beatles" 
Data.S "webmaste", "beaner", "beaver", "fireball", "beautifu" 
Data.S "gabriell", "gabriel", "poohbear", "bertha", "benjamin" 
Data.S "bailey", "beavis", "basket", "blaster", "albert" 
Data.S "blazer", "barney", "strawber", "braves", "buffalo" 
Data.S "football", "softball", "footbal", "foobar", "bigman" 
Data.S "gambit", "global", "malibu", "library", "brasil" 
Data.S "brazil", "rainbow", "obiwan", "kombat", "snowball" 
Data.S "marlboro", "snowbal", "playboy", "absolut", "wombat" 
Data.S "canced", "icecream", "chance", "celica", "cracker" 
Data.S "cancer", "access", "pacific", "chicago", "chocolat" 
Data.S "arctic", "clancy", "cactus", "dickhead", "maddock" 
Data.S "medical", "claude", "sundance", "dancer", "crawford" 
Data.S "richard", "wildcat", "picard", "colorado", "conrad" 
Data.S "corrado", "changeme", "chelsea", "peaches", "research" 
Data.S "teachers", "teacher", "creative", "cleaner" 
Data.S "france", "challeng", "michael", "charlie", "archie" 
Data.S "hacker", "chanel", "rachel", "charles", "patches" 
Data.S "jackie", "janice", "jessica", "maverick", "metallic" 
Data.S "caroline", "special", "claire", "iceman", "maurice" 
Data.S "maveric", "veronica", "carrie", "cassie", "active" 
Data.S "slacker", "packer", "packers", "marcel", "coltrane" 
Data.S "carole", "lacrosse", "scarlet", "scarlett", "castle" 
Data.S "carmen", "pacers", "racerx", "stacey", "catfish" 
Data.S "californ", "francois", "francis", "falcon", "graphic" 
Data.S "logical", "garlic", "camping", "racing", "cougars" 
Data.S "cougar", "chiquita", "christia", "nicholas" 
Data.S "champion", "cynthia", "charity", "charlott" 
Data.S "champs", "caitlin", "victoria", "tricia", "patrick" 
Data.S "calvin", "monica", "macintos", "action", "picasso" 
Data.S "jackson", "malcolm", "coolman", "classroo", "carlos" 
Data.S "crystal", "compaq", "tomcat", "marcus", "cannon" 
Data.S "corona", "cyrano", "topcat", "tractor", "laddie" 
Data.S "undead", "edward", "maddog", "diamond", "donald" 
Data.S "woodland", "greenday", "danielle", "dreamer" 
Data.S "reader", "garfield", "alfred", "reading", "gerald" 
Data.S "garden", "shithead", "daniel", "ireland", "raider" 
Data.S "raiders", "daytek", "leonard", "dreams", "anderson" 
Data.S "darren", "sanders", "andrew", "retard", "tuesday" 
Data.S "asdfghjk", "asdfgh", "dragonfl", "florida", "friday" 
Data.S "asdfjkl", "digital", "godzilla", "douglas", "dragon" 
Data.S "harold", "rhonda", "zaphod", "howard", "shadows" 
Data.S "shadow", "thursday", "indian", "island", "lindsay" 
Data.S "lizard", "madison", "pyramid", "darwin", "tardis" 
Data.S "wizard", "majordom", "jordan", "dollars", "orlando" 
Data.S "portland", "ronald", "rodman", "raymond", "monday" 
Data.S "sunday", "password", "passwd", "jeanette", "sweetpea" 
Data.S "jaeger", "general", "eagles", "heather", "kathleen" 
Data.S "hawkeye", "elephant", "sheena", "theresa", "theatre" 
Data.S "whatever", "whateve", "amelie", "melanie", "elaine" 
Data.S "valerie", "jeanne", "yankees", "walleye", "please" 
Data.S "seattle", "weasel", "awesome", "netware", "teresa" 
Data.S "grateful", "frankie", "fireman", "ferrari", "farmer" 
Data.S "safety", "maggie", "georgia", "aggies", "imagine" 
Data.S "galileo", "goalie", "enigma", "mirage", "wrangler" 
Data.S "angels", "german", "orange", "oranges", "ranger" 
Data.S "garnet", "voyager", "garrett", "target", "health" 
Data.S "katherin", "sheila", "stephani", "sapphire" 
Data.S "asshole", "harley", "stealth", "whales", "ashley" 
Data.S "hammer", "herman", "theman", "hamster", "matthew" 
Data.S "panther", "hearts", "harvey", "jasmine", "mikael" 
Data.S "mailer", "melissa", "valentin", "lorraine", "alpine" 
Data.S "aliens", "tequila", "reality", "laurie", "alexis" 
Data.S "sammie", "maxime", "marine", "vampire", "insane" 
Data.S "painter", "petunia", "praise", "pirate", "sierra" 
Data.S "asterix", "xavier", "jasper", "lakers", "walker" 
Data.S "kramer", "market", "tanker", "wanker", "parker" 
Data.S "startrek", "skater", "maxwell", "stella", "montreal" 
Data.S "temporal", "sampler", "marley", "samuel", "napoleon" 
Data.S "espanol", "snapple", "planet", "lauren", "stanley" 
Data.S "apples", "players", "player", "raquel", "slayer" 
Data.S "travel", "walter", "lestat", "superman", "masters" 
Data.S "master", "tanner", "suzanne", "newpass", "peanut" 
Data.S "warren", "tiffany", "wolfgang", "flamingo", "farming" 
Data.S "fugazi", "franklin", "family", "fountain", "wolfman" 
Data.S "smashing", "virginia", "sailing", "training" 
Data.S "stingray", "giants", "guitar", "magnum", "morgan" 
Data.S "mustang", "gymnast", "august", "mishka", "harrison" 
Data.S "spanish", "shanti", "joshua", "kathryn", "shalom" 
Data.S "hansolo", "phantom", "thomas", "shannon", "hanson" 
Data.S "anthony", "sharon", "hatton", "author", "arthur" 
Data.S "nikita", "williams", "william", "raistlin", "olivia" 
Data.S "julian", "jasmin", "allison", "marilyn", "alison" 
Data.S "polaris", "sailor", "quality", "sylvia", "ironman" 
Data.S "mountain", "tinman", "marino", "martin", "marvin" 
Data.S "matrix", "nissan", "passion", "station", "tristan" 
Data.S "austin", "utopia", "warriors", "warrior", "artist" 
Data.S "travis", "krystal", "spanky", "sparky", "apollo" 
Data.S "salmon", "psalms", "larson", "royals", "taylor" 
Data.S "norman", "snowman", "sampson", "samson", "mozart" 
Data.S "watson", "saturn", "tattoo", "toyota", "sparrow" 
Data.S "parrot", "passwor", "qwaszx", "stuart", "taurus" 
Data.S "bubbles", "debbie", "bluebird", "bigbird", "pebbles" 
Data.S "robbie", "hobbit", "jimbob", "booboo", "december" 
Data.S "quebec", "robotech", "republic", "october", "public" 
Data.S "zxcvbnm", "broncos", "cowboys", "scooby", "cowboy" 
Data.S "firebird", "bigred", "bridges", "dogbert", "thunderb" 
Data.S "birdie", "blondie", "dilbert", "doobie", "blonde" 
Data.S "rosebud", "bigdog", "bulldog", "sunbird", "remember" 
Data.S "septembe", "homebrew", "herbert", "biteme", "bernie" 
Data.S "reebok", "rebels", "byteme", "brewster", "webster" 
Data.S "boogie", "junebug", "goblue", "goober", "shelby" 
Data.S "theboss", "kimberly", "zombie", "timber", "bonnie" 
Data.S "benoit", "business", "nesbitt", "bootsie", "bluesky" 
Data.S "brooke", "volleyb", "bullet", "blowme", "trouble" 
Data.S "butler", "boomer", "benson", "booster", "trebor" 
Data.S "buster", "bigfoot", "blowfish", "bright", "bowling" 
Data.S "biology", "gibson", "bullshit", "robinhoo", "bookit" 
Data.S "wilbur", "bonjour", "symbol", "boston", "browns" 
Data.S "buttons", "button", "brutus", "cccccc", "electric" 
Data.S "science", "chicken", "cricket", "celtics", "cyclone" 
Data.S "connect", "concept", "soccer", "success", "church" 
Data.S "chucky", "scotch", "cloclo", "cuddles", "depeche" 
Data.S "mercedes", "frederic", "deutsch", "duckie", "wicked" 
Data.S "cinder", "director", "orchid", "dominic", "doctor" 
Data.S "cheese", "coffee", "fletcher", "gretchen", "college" 
Data.S "michelle", "michele", "speech", "chester", "celine" 
Data.S "eclipse", "pierce", "service", "colleen", "telecom" 
Data.S "welcome", "spencer", "center", "except", "secret" 
Data.S "chiefs", "fletch", "fuckme", "fucker", "michell" 
Data.S "mitchell", "michel", "chipper", "hockey", "cheryl" 
Data.S "techno", "porsche", "hector", "cherry", "justice" 
Data.S "pickle", "mickey", "snicker", "snickers", "cookie" 
Data.S "cookies", "nicole", "police", "clipper", "mexico" 
Data.S "connie", "vincent", "prince", "princess", "picture" 
Data.S "pisces", "security", "cruise", "rocket", "puckett" 
Data.S "tucker", "clover", "computer", "compute", "mercury" 
Data.S "newcourt", "courtney", "cooper", "scooter", "coyote" 
Data.S "copper", "fuckoff", "scruffy", "fiction", "fuckyou" 
Data.S "gocougs", "christin", "christop", "chrissy" 
Data.S "christ", "christy", "school", "psycho", "politics" 
Data.S "knicks", "lincoln", "unicorn", "scorpion", "corwin" 
Data.S "sonics", "scorpio", "victor", "victory", "curtis" 
Data.S "trucks", "control", "compton", "moocow", "cosmos" 
Data.S "popcorn", "xcountry", "country", "scotty", "deedee" 
Data.S "dundee", "freddy", "dodger", "dodgers", "defense" 
Data.S "freedom", "fender", "legend", "deliver", "denise" 
Data.S "kennedy", "ledzep", "denver", "speedo", "speedy" 
Data.S "dexter", "friend", "friends", "doggie", "digger" 
Data.S "goldie", "redwing", "design", "doogie", "dougie" 
Data.S "golden", "hendrix", "thunder", "inside", "kinder" 
Data.S "redskin", "dookie", "lindsey", "dennis", "trident" 
Data.S "sendit", "sidney", "detroit", "spider", "strider" 
Data.S "donkey", "reynolds", "elwood", "redrum", "wonder" 
Data.S "notused", "student", "sydney", "windsurf", "oxford" 
Data.S "midnight", "dwight", "hotdog", "indigo", "kingdom" 
Data.S "snoopdog", "gordon", "phurivdli", "judith", "dolphin" 
Data.S "dolphins", "hotrod", "dorothy", "midori", "skidoo" 
Data.S "domino", "nimrod", "wisdom", "windows", "dustin" 
Data.S "stupid", "drizzt", "london", "studly", "voodoo" 
Data.S "peewee", "reefer", "eugene", "sweetie", "kleenex" 
Data.S "skeeter", "penelope", "steelers", "steele", "eeyore" 
Data.S "weezer", "jeffrey", "jennifer", "jenifer", "ferret" 
Data.S "reggie", "george", "wheeling", "genesis", "sergei" 
Data.S "energy", "hershey", "kenneth", "shelley", "helpme" 
Data.S "wheels", "promethe", "hermes", "stephen", "einstein" 
Data.S "jessie", "nellie", "leslie", "letmein", "zeppelin" 
Data.S "etoile", "nemesis", "internet", "pierre", "jewels" 
Data.S "jeremy", "jensen", "jester", "kelsey", "loveme" 
Data.S "people", "explorer", "wrestle", "letter", "wesley" 
Data.S "velvet", "western", "newuser", "steven", "popeye" 
Data.S "europe", "pepper", "express", "tester", "stever" 
Data.S "testtest", "sweets", "sweety", "tweety", "griffey" 
Data.S "golfer", "fisher", "spitfire", "flipper", "xfiles" 
Data.S "fozzie", "sunflowe", "flowers", "flower", "flyers" 
Data.S "forest", "surfer", "future", "ginger", "tigger" 
Data.S "google", "nugget", "gregory", "theking", "gopher" 
Data.S "gemini", "gilles", "piglet", "penguin", "guinness" 
Data.S "singer", "testing", "genius", "tigers", "gretzky" 
Data.S "gunner", "nguyen", "grover", "shirley", "memphis" 
Data.S "sunshine", "phoenix", "whitney", "zenith", "hootie" 
Data.S "sophie", "joseph", "huskers", "shelly", "mother" 
Data.S "thumper", "hornets", "hornet", "hunter", "shooter" 
Data.S "topher", "horses", "zephyr", "sherry", "millie" 
Data.S "willie", "olivier", "minnie", "winnie", "trixie" 
Data.S "jupiter", "killme", "killer", "mookie", "kermit" 
Data.S "kristen", "tinker", "kittens", "kitten", "pookie" 
Data.S "skipper", "miller", "soleil", "elliot", "little" 
Data.S "merlin", "simple", "smiles", "smiley", "online" 
Data.S "wolverin", "liverpoo", "iloveyou", "oliver" 
Data.S "louise", "violet", "silver", "sylvie", "mortimer" 
Data.S "swimmer", "emmitt", "monique", "pentium", "mittens" 
Data.S "niners", "intern", "winner", "tennis", "senior" 
Data.S "sniper", "sunrise", "winter", "tootsie", "puppies" 
Data.S "ripper", "sprite", "monkey", "smokey", "network" 
Data.S "newyork", "volley", "yellow", "russell", "lennon" 
Data.S "nelson", "looney", "loveyou", "protel", "wolves" 
Data.S "purple", "russel", "turtle", "memory", "summer" 
Data.S "monster", "vermont", "trumpet", "system", "newton" 
Data.S "yvonne", "runner", "preston", "entropy", "reznor" 
Data.S "sunset", "rooster", "property", "porter", "export" 
Data.S "trevor", "qwerty", "fluffy", "muffin", "snuffy" 
Data.S "golfing", "froggy", "kingfish", "fishing", "flight" 
Data.S "gofish", "goforit", "informix", "pinkfloy", "foxtrot" 
Data.S "frosty", "zhongguo", "knights", "knight", "nothing" 
Data.S "hunting", "wright", "shotgun", "lionking", "skiing" 
Data.S "vikings", "viking", "swimming", "running", "roping" 
Data.S "spring", "grumpy", "topgun", "groovy", "phillip" 
Data.S "philip", "whisky", "timothy", "smiths", "sunshin" 
Data.S "horizon", "history", "johnson", "johnny", "murphy" 
Data.S "houston", "python", "shorty", "kristin", "kristi" 
Data.S "million", "mission", "tintin", "vision", "spirit" 
Data.S "junior", "justin", "pumpkin", "punkin", "skinny" 
Data.S "stinky", "skippy", "kristy", "suzuki", "willow" 
Data.S "wilson", "moroni", "mirror", "morris", "stimpy" 
Data.S "winston", "poiuyt", "squirt", "spunky", "spooky" 
Data.S "monopoly", "molson", "moomoo", "stormy", "toronto" 
Data.S "snoopy", "support", "sports" 
EndDataSection 
#WordCount = 1275 

Structure WORDATTR 
  Coef.L 
  Root.L 
EndStructure 

Structure COEF 
  Begin.L 
  End.L 
EndStructure 

Structure STRINGFIELDEX
  String.S
  Separator.S
  SepLength.L
  Cursor.L
EndStructure

Procedure.S NextField(*Ptr.STRINGFIELDEX)

  Protected Result.S
  Protected i.L
  Protected OldCursor.L

  OldCursor = *Ptr\Cursor
  *Ptr\Cursor = FindString(*Ptr\String, *Ptr\Separator, *Ptr\Cursor + 1)
  If OldCursor = 0
    Result = Mid(*Ptr\String, 1, *Ptr\Cursor - 1)
  Else
    Result = Mid(*Ptr\String, OldCursor + *Ptr\SepLength, *Ptr\Cursor - OldCursor - *Ptr\SepLength)
  EndIf

  ProcedureReturn Result
  
EndProcedure

Procedure FieldSetting(*Ptr.STRINGFIELDEX, String.S, Cursor, Separator.S)

  *Ptr\String = String
  *Ptr\Cursor = Cursor
  *Ptr\Separator = Separator
  *Ptr\SepLength = Len(*Ptr\Separator)

EndProcedure

  Define SFE.STRINGFIELDEX
  Define Separator.S
  Define LastWord.L 
  Define i.L 
  Define j.L 
  Define k.L 
  Define m.L 
  Define Tmp.S 
  Define TestSt.S 
  Define A.L 
  Define FirstCoef.L 
  Define LastCoef.L 
  Define LI.L 
  Define LS.L 
  Define St.S 
  Define Word.S 
  Define LWord.L 
  Define Paste.S 
  
  OpenWindow(0, 0, 0, 320, 0, "Initialisation...", $CF0001) 
  StickyWindow(0, 1)  

  LastWord = #WordCount - 1 
  Global Dim WordList.S(LastWord) 
  Global NewList WordAttr.WORDATTR() 
  
  ;- On sort la liste de la DataSection 
  
  For i = 0 To LastWord 
    Read.S WordList(i) 
    WordList(i) = LCase(WordList(i) ) 
    AddElement(WordAttr() ) 
    WordAttr()\Root = i 
    ;-> Un coef par mot 
    For j = 1 To Len(WordList(i) ) 
      A = Asc(Mid(WordList(i), j, 1) ) 
      WordAttr()\Coef + A 
    Next j 
  Next i 

  ;- On fait un tri par coef 

  SortStructuredList(WordAttr(), #PB_Sort_Ascending, OffsetOf(WORDATTR\Coef), #PB_Sort_Long) 
  
  ;- On réfère les coefs au premier de la liste... 
  
  SelectElement(WordAttr(), 0) 
  
  FirstCoef = WordAttr()\Coef 
  
  ForEach WordAttr() 
    WordAttr()\Coef - FirstCoef 
  Next 
  
  ;- ...Pour la table d'accès par composition 
  
  LastCoef = WordAttr()\Coef 
  
  Global Dim Coef.COEF(LastCoef) 
  
  ;(Mise à zéro) 
  For i = 0 To LastCoef 
    Coef(i)\Begin = -1 
    Coef(i)\End = -1 
  Next i 
  
  ; Modif de Fred ! >> CountList devient ListSize... 
  
  LS = ListSize(WordAttr() ) 

  ForEach WordAttr() 
  
      LI = ListIndex(WordAttr() ) 
      A = WordAttr()\Coef 
      Coef(A)\Begin = LI 

      If LI + 1 < LS 

        For i = LI + 1 To LS 
          SelectElement(WordAttr(), i) 
          If WordAttr()\Coef <> A 
            Coef(A)\End = i - 1 
            SelectElement(WordAttr(), i - 1) 
            Break 
          EndIf 
        Next i 

      Else 

        Coef(A)\End = LS - 1 

      EndIf 

  Next 
  
  CloseWindow(0) 
  
  ;- On vide le presse-papier 
  
  SetClipboardText("") 
  
  ;- On attend que le presse-papier contienne qqch... 
  Repeat 
    Delay(5) 
    St = GetClipboardText() 
  Until St <> "" 

  ;- On traite...  
  
  OpenWindow(0, 0, 0, 320, 0, "Traitement...", $CF0001)  
  StickyWindow(0, 1)
  If Left(St, 1) = "#"
    St = Right(St, Len(St) - 2)
    Separator = Chr(13) + Chr(10) + "# "
  Else
    Separator = Chr(13) + Chr(10) + " " + Chr(13) + Chr(10)
  EndIf
  FieldSetting(SFE, St, 0, Separator)
  Paste = "" 
  For i = 0 To 9 
    Word = LCase(Trim(NextField(SFE) ) ) 
    LWord = Len(Word) 
    Coef = 0 
    For j = 1 To Len(Word) 
      A = Asc(Mid(Word, j, 1) ) 
      Coef + A 
    Next j 
    Coef - FirstCoef 
    If Coef(Coef)\Begin = Coef(Coef)\End 
      SelectElement(WordAttr(), Coef(Coef)\Begin) 
      Paste + WordList(WordAttr()\Root) + ", " 
    Else 
      For j = Coef(Coef)\Begin To Coef(Coef)\End 
        SelectElement(WordAttr(), j) 
        TestSt = WordList(WordAttr()\Root) 
        Tmp = TestSt 
        If Len(TestSt) = LWord 
          For k = 1 To LWord 
            For m = 1 To Len(Tmp) 
              If Mid(Word, k, 1) = Mid(Tmp, m, 1) 
                Tmp = Left(Tmp, m - 1) + Right(Tmp, Len(Tmp) - m) 
              EndIf 
            Next m 
          Next k 
          If Tmp = "" 
            Paste + TestSt + ", " 
            Break 
          EndIf 
        EndIf 
      Next j 
    EndIf 
  Next i 
  
  ;- Et on renvoie dans le presse-papier 
  
  SetClipboardText(Paste) 
  CloseWindow(0)

brossden · Message par **brossden** » mer. 26/nov./2008 20:24

Peut être une autre solution plus à la portée de plus de monde !

Si cela en intéressent quelques uns, je peux expliquer le principe si vous n'arrivez pas à comprendre l'algorithme.

Code : Tout sélectionner

DataSection
  Data.S "html:)", "121212", "131313", "123123", "654321"
  Data.S "8675309", "666666", "696969", "888888", "1234567"
  Data.S "21122112", "12345678", "asdfjkl;", "hal9000"
  Data.S "bond007", "ncc1701d", "ncc1701e", "ncc1701"
  Data.S "thx1138", "a12345", "abcd1234", "1234qwer", "1a2b3c"
  Data.S "1q2w3e", "test123", "1p2o3i", "puppy123", "kitten12"
  Data.S "qwerty12", "john316", "apollo13", "ne1469", "amanda1"
  Data.S "mazda1", "angela1", "alpha1", "sarah1", "nirvana1"
  Data.S "bubba1", "scuba1", "rambo1", "charlie1", "david1"
  Data.S "digital1", "dragon1", "honda1", "shadow1", "eagle1"
  Data.S "freak1", "james1", "1sanjose", "apple1", "master1"
  Data.S "happy1", "martin1", "jason1", "larry1", "number1"
  Data.S "robert1", "soccer1", "direct1", "chester1", "welcome1"
  Data.S "french1", "hockey1", "chevy1", "scooter1", "chris1"
  Data.S "lucky1", "teddy1", "phoenix1", "hello1", "julie1"
  Data.S "kevin1", "pookie1", "viper1", "jenny1", "jesus1"
  Data.S "kelly1", "money1", "mouse1", "sting1", "justin1"
  Data.S "molly1", "sunny1", "front242", "jordan23", "2welcome"
  Data.S "h2opolo", "bird33", "4runner", "babylon5", "star69"
  Data.S "ib6ub9", "america7", "seven7", "number9", "porsche9"
  Data.S "barbara", "database", "banana", "bananas", "canada"
  Data.S "jamaica", "amanda", "valhalla", "samantha", "yamaha"
  Data.S "natasha", "alaska", "tamara", "zapata", "avatar"
  Data.S "basketba", "baseball", "basebal", "bastard"
  Data.S "nebraska", "banane", "abigail", "sabrina", "batman"
  Data.S "cocacola", "cascade", "cardinal", "claudia"
  Data.S "packard", "cannonda", "apache", "america", "canela"
  Data.S "camera", "caesar", "warcraft", "catalog", "chapman"
  Data.S "zachary", "alicia", "patricia", "carolina", "nicarao"
  Data.S "captain", "nautica", "pascal", "rascal", "camaro"
  Data.S "nascar", "deadhead", "adidas", "alexande", "airhead"
  Data.S "alexandr", "andrea", "gandalf", "grandma", "happyday"
  Data.S "indiana", "paladin", "miranda", "adrian", "dakota"
  Data.S "dallas", "mayday", "pandora", "sandra", "xanadu"
  Data.S "angela", "margaret", "stargate", "savage", "gateway"
  Data.S "athena", "ariane", "pearljam", "maryjane", "oatmeal"
  Data.S "pamela", "pantera", "vanessa", "graymail", "iguana"
  Data.S "jaguar", "galaxy", "gasman", "hannah", "hawaii"
  Data.S "mariah", "jonathan", "marshal", "martha", "nathan"
  Data.S "italia", "aikman", "saskia", "vanilla", "mailman"
  Data.S "animal", "animals", "impala", "attila", "marina"
  Data.S "mariposa", "nirvana", "arizona", "joanna", "january"
  Data.S "lakota", "avalon", "alyssa", "yomama", "montana"
  Data.S "mantra", "tazman", "tarzan", "starwars", "bobcat"
  Data.S "badboy", "barbie", "babies", "basketb", "rabbit"
  Data.S "bamboo", "rebecca", "abcdef", "abcdefg", "blackie"
  Data.S "excalibu", "campbell", "tacobell", "bigmac"
  Data.S "jsbach", "columbia", "buddha", "badger", "butthead"
  Data.S "bradley", "brenda", "bernard", "ladybug", "diablo"
  Data.S "blizzard", "brandi", "bandit", "brandon", "brandy"
  Data.S "beagle", "isabelle", "elizabet", "beanie", "beatles"
  Data.S "webmaste", "beaner", "beaver", "fireball", "beautifu"
  Data.S "gabriell", "gabriel", "poohbear", "bertha", "benjamin"
  Data.S "bailey", "beavis", "basket", "blaster", "albert"
  Data.S "blazer", "barney", "strawber", "braves", "buffalo"
  Data.S "football", "softball", "footbal", "foobar", "bigman"
  Data.S "gambit", "global", "malibu", "library", "brasil"
  Data.S "brazil", "rainbow", "obiwan", "kombat", "snowball"
  Data.S "marlboro", "snowbal", "playboy", "absolut", "wombat"
  Data.S "canced", "icecream", "chance", "celica", "cracker"
  Data.S "cancer", "access", "pacific", "chicago", "chocolat"
  Data.S "arctic", "clancy", "cactus", "dickhead", "maddock"
  Data.S "medical", "claude", "sundance", "dancer", "crawford"
  Data.S "richard", "wildcat", "picard", "colorado", "conrad"
  Data.S "corrado", "changeme", "chelsea", "peaches", "research"
  Data.S "teachers", "teacher", "creative", "cleaner"
  Data.S "france", "challeng", "michael", "charlie", "archie"
  Data.S "hacker", "chanel", "rachel", "charles", "patches"
  Data.S "jackie", "janice", "jessica", "maverick", "metallic"
  Data.S "caroline", "special", "claire", "iceman", "maurice"
  Data.S "maveric", "veronica", "carrie", "cassie", "active"
  Data.S "slacker", "packer", "packers", "marcel", "coltrane"
  Data.S "carole", "lacrosse", "scarlet", "scarlett", "castle"
  Data.S "carmen", "pacers", "racerx", "stacey", "catfish"
  Data.S "californ", "francois", "francis", "falcon", "graphic"
  Data.S "logical", "garlic", "camping", "racing", "cougars"
  Data.S "cougar", "chiquita", "christia", "nicholas"
  Data.S "champion", "cynthia", "charity", "charlott"
  Data.S "champs", "caitlin", "victoria", "tricia", "patrick"
  Data.S "calvin", "monica", "macintos", "action", "picasso"
  Data.S "jackson", "malcolm", "coolman", "classroo", "carlos"
  Data.S "crystal", "compaq", "tomcat", "marcus", "cannon"
  Data.S "corona", "cyrano", "topcat", "tractor", "laddie"
  Data.S "undead", "edward", "maddog", "diamond", "donald"
  Data.S "woodland", "greenday", "danielle", "dreamer"
  Data.S "reader", "garfield", "alfred", "reading", "gerald"
  Data.S "garden", "shithead", "daniel", "ireland", "raider"
  Data.S "raiders", "daytek", "leonard", "dreams", "anderson"
  Data.S "darren", "sanders", "andrew", "retard", "tuesday"
  Data.S "asdfghjk", "asdfgh", "dragonfl", "florida", "friday"
  Data.S "asdfjkl", "digital", "godzilla", "douglas", "dragon"
  Data.S "harold", "rhonda", "zaphod", "howard", "shadows"
  Data.S "shadow", "thursday", "indian", "island", "lindsay"
  Data.S "lizard", "madison", "pyramid", "darwin", "tardis"
  Data.S "wizard", "majordom", "jordan", "dollars", "orlando"
  Data.S "portland", "ronald", "rodman", "raymond", "monday"
  Data.S "sunday", "password", "passwd", "jeanette", "sweetpea"
  Data.S "jaeger", "general", "eagles", "heather", "kathleen"
  Data.S "hawkeye", "elephant", "sheena", "theresa", "theatre"
  Data.S "whatever", "whateve", "amelie", "melanie", "elaine"
  Data.S "valerie", "jeanne", "yankees", "walleye", "please"
  Data.S "seattle", "weasel", "awesome", "netware", "teresa"
  Data.S "grateful", "frankie", "fireman", "ferrari", "farmer"
  Data.S "safety", "maggie", "georgia", "aggies", "imagine"
  Data.S "galileo", "goalie", "enigma", "mirage", "wrangler"
  Data.S "angels", "german", "orange", "oranges", "ranger"
  Data.S "garnet", "voyager", "garrett", "target", "health"
  Data.S "katherin", "sheila", "stephani", "sapphire"
  Data.S "asshole", "harley", "stealth", "whales", "ashley"
  Data.S "hammer", "herman", "theman", "hamster", "matthew"
  Data.S "panther", "hearts", "harvey", "jasmine", "mikael"
  Data.S "mailer", "melissa", "valentin", "lorraine", "alpine"
  Data.S "aliens", "tequila", "reality", "laurie", "alexis"
  Data.S "sammie", "maxime", "marine", "vampire", "insane"
  Data.S "painter", "petunia", "praise", "pirate", "sierra"
  Data.S "asterix", "xavier", "jasper", "lakers", "walker"
  Data.S "kramer", "market", "tanker", "wanker", "parker"
  Data.S "startrek", "skater", "maxwell", "stella", "montreal"
  Data.S "temporal", "sampler", "marley", "samuel", "napoleon"
  Data.S "espanol", "snapple", "planet", "lauren", "stanley"
  Data.S "apples", "players", "player", "raquel", "slayer"
  Data.S "travel", "walter", "lestat", "superman", "masters"
  Data.S "master", "tanner", "suzanne", "newpass", "peanut"
  Data.S "warren", "tiffany", "wolfgang", "flamingo", "farming"
  Data.S "fugazi", "franklin", "family", "fountain", "wolfman"
  Data.S "smashing", "virginia", "sailing", "training"
  Data.S "stingray", "giants", "guitar", "magnum", "morgan"
  Data.S "mustang", "gymnast", "august", "mishka", "harrison"
  Data.S "spanish", "shanti", "joshua", "kathryn", "shalom"
  Data.S "hansolo", "phantom", "thomas", "shannon", "hanson"
  Data.S "anthony", "sharon", "hatton", "author", "arthur"
  Data.S "nikita", "williams", "william", "raistlin", "olivia"
  Data.S "julian", "jasmin", "allison", "marilyn", "alison"
  Data.S "polaris", "sailor", "quality", "sylvia", "ironman"
  Data.S "mountain", "tinman", "marino", "martin", "marvin"
  Data.S "matrix", "nissan", "passion", "station", "tristan"
  Data.S "austin", "utopia", "warriors", "warrior", "artist"
  Data.S "travis", "krystal", "spanky", "sparky", "apollo"
  Data.S "salmon", "psalms", "larson", "royals", "taylor"
  Data.S "norman", "snowman", "sampson", "samson", "mozart"
  Data.S "watson", "saturn", "tattoo", "toyota", "sparrow"
  Data.S "parrot", "passwor", "qwaszx", "stuart", "taurus"
  Data.S "bubbles", "debbie", "bluebird", "bigbird", "pebbles"
  Data.S "robbie", "hobbit", "jimbob", "booboo", "december"
  Data.S "quebec", "robotech", "republic", "october", "public"
  Data.S "zxcvbnm", "broncos", "cowboys", "scooby", "cowboy"
  Data.S "firebird", "bigred", "bridges", "dogbert", "thunderb"
  Data.S "birdie", "blondie", "dilbert", "doobie", "blonde"
  Data.S "rosebud", "bigdog", "bulldog", "sunbird", "remember"
  Data.S "septembe", "homebrew", "herbert", "biteme", "bernie"
  Data.S "reebok", "rebels", "byteme", "brewster", "webster"
  Data.S "boogie", "junebug", "goblue", "goober", "shelby"
  Data.S "theboss", "kimberly", "zombie", "timber", "bonnie"
  Data.S "benoit", "business", "nesbitt", "bootsie", "bluesky"
  Data.S "brooke", "volleyb", "bullet", "blowme", "trouble"
  Data.S "butler", "boomer", "benson", "booster", "trebor"
  Data.S "buster", "bigfoot", "blowfish", "bright", "bowling"
  Data.S "biology", "gibson", "bullshit", "robinhoo", "bookit"
  Data.S "wilbur", "bonjour", "symbol", "boston", "browns"
  Data.S "buttons", "button", "brutus", "cccccc", "electric"
  Data.S "science", "chicken", "cricket", "celtics", "cyclone"
  Data.S "connect", "concept", "soccer", "success", "church"
  Data.S "chucky", "scotch", "cloclo", "cuddles", "depeche"
  Data.S "mercedes", "frederic", "deutsch", "duckie", "wicked"
  Data.S "cinder", "director", "orchid", "dominic", "doctor"
  Data.S "cheese", "coffee", "fletcher", "gretchen", "college"
  Data.S "michelle", "michele", "speech", "chester", "celine"
  Data.S "eclipse", "pierce", "service", "colleen", "telecom"
  Data.S "welcome", "spencer", "center", "except", "secret"
  Data.S "chiefs", "fletch", "fuckme", "fucker", "michell"
  Data.S "mitchell", "michel", "chipper", "hockey", "cheryl"
  Data.S "techno", "porsche", "hector", "cherry", "justice"
  Data.S "pickle", "mickey", "snicker", "snickers", "cookie"
  Data.S "cookies", "nicole", "police", "clipper", "mexico"
  Data.S "connie", "vincent", "prince", "princess", "picture"
  Data.S "pisces", "security", "cruise", "rocket", "puckett"
  Data.S "tucker", "clover", "computer", "compute", "mercury"
  Data.S "newcourt", "courtney", "cooper", "scooter", "coyote"
  Data.S "copper", "fuckoff", "scruffy", "fiction", "fuckyou"
  Data.S "gocougs", "christin", "christop", "chrissy"
  Data.S "christ", "christy", "school", "psycho", "politics"
  Data.S "knicks", "lincoln", "unicorn", "scorpion", "corwin"
  Data.S "sonics", "scorpio", "victor", "victory", "curtis"
  Data.S "trucks", "control", "compton", "moocow", "cosmos"
  Data.S "popcorn", "xcountry", "country", "scotty", "deedee"
  Data.S "dundee", "freddy", "dodger", "dodgers", "defense"
  Data.S "freedom", "fender", "legend", "deliver", "denise"
  Data.S "kennedy", "ledzep", "denver", "speedo", "speedy"
  Data.S "dexter", "friend", "friends", "doggie", "digger"
  Data.S "goldie", "redwing", "design", "doogie", "dougie"
  Data.S "golden", "hendrix", "thunder", "inside", "kinder"
  Data.S "redskin", "dookie", "lindsey", "dennis", "trident"
  Data.S "sendit", "sidney", "detroit", "spider", "strider"
  Data.S "donkey", "reynolds", "elwood", "redrum", "wonder"
  Data.S "notused", "student", "sydney", "windsurf", "oxford"
  Data.S "midnight", "dwight", "hotdog", "indigo", "kingdom"
  Data.S "snoopdog", "gordon", "phurivdli", "judith", "dolphin"
  Data.S "dolphins", "hotrod", "dorothy", "midori", "skidoo"
  Data.S "domino", "nimrod", "wisdom", "windows", "dustin"
  Data.S "stupid", "drizzt", "london", "studly", "voodoo"
  Data.S "peewee", "reefer", "eugene", "sweetie", "kleenex"
  Data.S "skeeter", "penelope", "steelers", "steele", "eeyore"
  Data.S "weezer", "jeffrey", "jennifer", "jenifer", "ferret"
  Data.S "reggie", "george", "wheeling", "genesis", "sergei"
  Data.S "energy", "hershey", "kenneth", "shelley", "helpme"
  Data.S "wheels", "promethe", "hermes", "stephen", "einstein"
  Data.S "jessie", "nellie", "leslie", "letmein", "zeppelin"
  Data.S "etoile", "nemesis", "internet", "pierre", "jewels"
  Data.S "jeremy", "jensen", "jester", "kelsey", "loveme"
  Data.S "people", "explorer", "wrestle", "letter", "wesley"
  Data.S "velvet", "western", "newuser", "steven", "popeye"
  Data.S "europe", "pepper", "express", "tester", "stever"
  Data.S "testtest", "sweets", "sweety", "tweety", "griffey"
  Data.S "golfer", "fisher", "spitfire", "flipper", "xfiles"
  Data.S "fozzie", "sunflowe", "flowers", "flower", "flyers"
  Data.S "forest", "surfer", "future", "ginger", "tigger"
  Data.S "google", "nugget", "gregory", "theking", "gopher"
  Data.S "gemini", "gilles", "piglet", "penguin", "guinness"
  Data.S "singer", "testing", "genius", "tigers", "gretzky"
  Data.S "gunner", "nguyen", "grover", "shirley", "memphis"
  Data.S "sunshine", "phoenix", "whitney", "zenith", "hootie"
  Data.S "sophie", "joseph", "huskers", "shelly", "mother"
  Data.S "thumper", "hornets", "hornet", "hunter", "shooter"
  Data.S "topher", "horses", "zephyr", "sherry", "millie"
  Data.S "willie", "olivier", "minnie", "winnie", "trixie"
  Data.S "jupiter", "killme", "killer", "mookie", "kermit"
  Data.S "kristen", "tinker", "kittens", "kitten", "pookie"
  Data.S "skipper", "miller", "soleil", "elliot", "little"
  Data.S "merlin", "simple", "smiles", "smiley", "online"
  Data.S "wolverin", "liverpoo", "iloveyou", "oliver"
  Data.S "louise", "violet", "silver", "sylvie", "mortimer"
  Data.S "swimmer", "emmitt", "monique", "pentium", "mittens"
  Data.S "niners", "intern", "winner", "tennis", "senior"
  Data.S "sniper", "sunrise", "winter", "tootsie", "puppies"
  Data.S "ripper", "sprite", "monkey", "smokey", "network"
  Data.S "newyork", "volley", "yellow", "russell", "lennon"
  Data.S "nelson", "looney", "loveyou", "protel", "wolves"
  Data.S "purple", "russel", "turtle", "memory", "summer"
  Data.S "monster", "vermont", "trumpet", "system", "newton"
  Data.S "yvonne", "runner", "preston", "entropy", "reznor"
  Data.S "sunset", "rooster", "property", "porter", "export"
  Data.S "trevor", "qwerty", "fluffy", "muffin", "snuffy"
  Data.S "golfing", "froggy", "kingfish", "fishing", "flight"
  Data.S "gofish", "goforit", "informix", "pinkfloy", "foxtrot"
  Data.S "frosty", "zhongguo", "knights", "knight", "nothing"
  Data.S "hunting", "wright", "shotgun", "lionking", "skiing"
  Data.S "vikings", "viking", "swimming", "running", "roping"
  Data.S "spring", "grumpy", "topgun", "groovy", "phillip"
  Data.S "philip", "whisky", "timothy", "smiths", "sunshin"
  Data.S "horizon", "history", "johnson", "johnny", "murphy"
  Data.S "houston", "python", "shorty", "kristin", "kristi"
  Data.S "million", "mission", "tintin", "vision", "spirit"
  Data.S "junior", "justin", "pumpkin", "punkin", "skinny"
  Data.S "stinky", "skippy", "kristy", "suzuki", "willow"
  Data.S "wilson", "moroni", "mirror", "morris", "stimpy"
  Data.S "winston", "poiuyt", "squirt", "spunky", "spooky"
  Data.S "monopoly", "molson", "moomoo", "stormy", "toronto"
  Data.S "snoopy", "support", "sports"
EndDataSection
LastWord = 1274 


Global Dim Car.S(9), Chaine1.S, Chaine2.S, Txt.S, Clip.S

Procedure Open_Window_0()
  If OpenWindow(0, 419, 89, 913, 52, "Trouve",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(0))
      StringGadget(1, 29, 10, 770, 22, "")
      ButtonGadget(2, 830, 10, 60, 30, "Stop")
    EndIf
  EndIf
EndProcedure

Procedure.S TriAlpha(String.S)
  String = RSet(String,10," ")
  For n = 1 To 10
    Car(n-1)=Mid(String,n,1)
  Next
  SortArray(Car(),0)
  Ret.S=""
  For n=0 To 9
    Ret+Car(n)
  Next
  ProcedureReturn Ret
EndProcedure

Procedure Trouve(Param)
  Repeat
    If Clip<>GetClipboardText() 
      Clip=GetClipboardText()
      Clip = ReplaceString(Clip,"#","")
      Clip = ReplaceString(Clip," ","")
      Clip = ReplaceString(Clip,Chr(13),",")
      Clip = ReplaceString(Clip,Chr(10),"")
      Clip = ReplaceString(Clip,",,",",")
      
      Debug Clip
      Ret.S=""
      For n=1 To 10
        Chaine1 = TriAlpha(StringField(Clip,n,","))
        Ret + Trim(Mid(Txt,FindString(Txt,Chaine1,1)+11,10))
          Ret+", "
      Next
      Clip=Ret
      SetGadgetText(1,Ret)
      SetClipboardText(Clip)
      
  EndIf
  Delay(300)
ForEver
EndProcedure

Open_Window_0()
Txt=""

For i = 0 To LastWord 
  Read.S Chaine1
  Chaine2=TriAlpha(Chaine1)
  Txt + Chaine2 + " " + RSet(Chaine1,10," ")+" "
Next

SetClipboardText("")
Clip=""

CreateThread(@Trouve(),0)

Repeat
  Event = WaitWindowEvent() 
  GadgetID = EventGadget()
  If Event = #PB_Event_Gadget
    If GadgetID = 2
      End      
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow

Ollivier · Message par **Ollivier** » mer. 26/nov./2008 20:49

@brossden

Salut, j'ai testé ton code. C'est un autre procédé qui n'est pas plus mal. Par contre, il couine sur le mien. FindString() renvoie 0 (et donc le premier mot de la liste : «html») un mot sur 2 ! ! ! Sur IE, ça ne marche donc pas.

Je parierais que tu as FireFox

Sinon, le dernier code que je viens de poster fonctionne impeccab'. J'attends qu'Ar-S ou toi puisse le tester pour vérifier.

Ar-S · Message par **Ar-S** » mer. 26/nov./2008 21:12

Alors apres test de vos 2 codes,

Le tiens ollivier revoit toujours le probleme de
# mot1
# mot2 etc...

Le code de brossdent fonctionne, faut juste supprimer la dernière virgule.
J'ai pas trop le temps de les zieuter ce soir mais je reviens sur le topix des que possible.

brossden · Message par **brossden** » mer. 26/nov./2008 21:13

Exacte Ollivier mais j'ai corrigé le bug et tout marche avec IE aussi !

Pour Ar-S, non le dernier "," est nécessaire d'ailleurs le code est donné par le programme !

Debut: Wednesday 26th of November 2008 09:15:42
Fin: Wednesday 26th of November 2008 09:15:50
C'est bon pour le timing (8)

C'est bon pour le recodage
Le code est 'FunzzyCrazzy32'

Ollivier · Message par **Ollivier** » jeu. 27/nov./2008 9:20

Bon ben je vous laisse hacker à vos occupations

Ar-S · Message par **Ar-S** » jeu. 27/nov./2008 15:04

Ok merci en tout cas à tous les deux pour votre aide.