*----------------------------------------------------------------------------* * Fcats.PRG * FUNKTIONS: per taal een * - categorieen lijst maken met FCAT.prg * - woordselectie lijst maken met FCATLIST.prg *----------------------------------------------------------------------------* * nieuw 16-07-2008 * * *----------------------------------------------------------------------------* PROCEDURE FCATS MXMUT='?' DO WHILE .NOT. MXMUT $ 'CW' MXMUT=' ' @ 05,5 SAY 'C zijn de categorie-lijsten per taal.' @ 06,5 SAY 'W zijn de woordselectie-lijsten per taal/categorie.' @ 07,5 SAY '(Blanco is stoppen)' @ 08,5 SAY 'Keuze: 'GET MXMUT PICT "@! A" READ IF EMPTY(MXMUT) CLEAR MXMUT='?' RETURN ENDIF IF MXMUT='?' CLEAR RETURN ENDIF * @ 0,5 SAY 'Gekozen transactie: '+MXMUT IF MXMUT = 'C' DO FCAT WITH "EN" DO FCAT WITH "FR" DO FCAT WITH "DE" DO FCAT WITH "DA" DO FCAT WITH "SE" DO FCAT WITH "ES" DO FCAT WITH "NL" ELSE IF MXMUT = 'W' DO FCATLIST WITH "EN" DO FCATLIST WITH "FR" DO FCATLIST WITH "DE" DO FCATLIST WITH "DA" DO FCATLIST WITH "SE" DO FCATLIST WITH "ES" DO FCATLIST WITH "NL" ENDIF ENDIF ENDDO RETURN *----------------------------------------------------------------------------* * Fcat.PRG * FUNKTIONS: per taal een selectielijst maken met FCAT.prg *----------------------------------------------------------------------------* * nieuw 16-07-2008 * * *----------------------------------------------------------------------------* PROCEDURE FCAT (LANG) LOCAL VELDJE, CATLIST, CATNAAM, CATTEL * VERVALLEN CATSDIR ='cats\' && sub dir voor pages wordt MXHOOFDDIR CATLIST = LOWER(TRIM(LANG)-"cat.htm") && outputnaam CATNAAM = LOWER(MXHOOFDDIR+CATLIST) && SUBDIR\ outputnaam CATTEL = 0 && teller VELDJE = '' && title / header ?? CATNAAM SET CONS OFF DO CASE CASE LANG = 'EN' VELDJE = 'Categories in English' CASE LANG = 'FR' VELDJE = 'Catégories en français' CASE LANG = 'DE' VELDJE = 'Kategorien in Deutsch' CASE LANG = 'DA' VELDJE = 'Kategorier in dansk' CASE LANG = 'SE' VELDJE = 'Kategorier in svenska' CASE LANG = 'ES' VELDJE = 'Categorías en español' CASE LANG = 'NL' VELDJE = 'Categorieën in Nederlands' ENDCASE SELECT CATS GO TOP * ---------------- * lijst header * ---------------- SET ALTERNATE TO (CATNAAM) SET ALTERNATE ON DO FDOCTYPE WITH "IFM" ? ''+VELDJE+'' ? '' ? '' ? '' ? '' ? '
' ? '
' ? '' ? '' ? '' ? '' ? '' ? ' ' ? ' ' ? '' ? '' ? '' ? '' ? '' ? '' ? '' DO FWWWKAP WITH "INHPICS" ?? '
' ? '
' ? '
' ? '' ? '' ? '
' ? '
' VELDJE = '' && title / header DO CASE CASE LANG = 'EN' VELDJE = 'categorie in English' CASE LANG = 'FR' VELDJE = 'Catégories en français' CASE LANG = 'DE' VELDJE = 'Kategorien in Deutsch' CASE LANG = 'DA' VELDJE = 'Kategorier in dansk' CASE LANG = 'SE' VELDJE = 'Kategorier in svenska' CASE LANG = 'ES' VELDJE = 'Categorías en español' CASE LANG = 'NL' VELDJE = 'Categorieën in Nederlands' ENDCASE ? '' ? '' ? '' ? '' DO WHILE .NOT. EOF() DO CASE CASE LANG = 'EN' VELDJE = TRIM(EN) CASE LANG = 'FR' VELDJE = TRIM(FR) CASE LANG = 'DE' VELDJE = TRIM(DE) CASE LANG = 'DA' VELDJE = TRIM(DA) CASE LANG = 'SE' VELDJE = TRIM(SE) CASE LANG = 'ES' VELDJE = TRIM(ES) CASE LANG = 'NL' VELDJE = TRIM(NL) ENDCASE IF CATTEL = 0 ? '' ENDIF ? '' CATTEL = CATTEL + 1 IF CATTEL = 2 ?? '' CATTEL = 0 ENDIF SKIP ENDDO IF CATTEL = 1 ? '' ENDIF ?? '
'+VELDJE+'  
'+SRT+': '+VELDJE+'
 
' * ? ' ' ? '
' ? '
' ? 'navigation arrows' ? '' ? ' ' ? ' ' ? ' ' ? '' ? '
' ? '
' ? ' ' ? '
' DO FOODVOET ? '
' ? '
' ? '
' ? '' SET ALTERNATE OFF CLOSE ALTERNATE * * ---------------- * SIDEMAP BIJWERKEN * ---------------- * SELECT SMAP SEEK CATLIST IF .NOT. FOUND() GO BOTTOM APPEND BLANK REPL HAND WITH "X", NAAM WITH CATLIST, DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ELSE REPL HAND WITH "X", DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ENDIF * SELECT CATS * ---------------- * RUN NOZ * ---------------- CATNAAM = "NOZ "+CATNAAM RUN (CATNAAM) SET CONS ON RETURN * * HIRO *----------------------------------------------------------------------------* * Fcatlist.PRG * FUNKTIONS: per taal/categorie een woordenlijst maken *----------------------------------------------------------------------------* * nieuw 17-07-2008 * * *----------------------------------------------------------------------------* PROCEDURE FCATLIST (LANG) LOCAL LVELDJE, CATLLIST, CATLNAAM, CATLTEL, CATSRIJ, CATSPAGE, CATSWOORD, CATSOMS CATLLIST = "acatsen.htm" && outputnaam CATLNAAM = LOWER(MXHOOFDDIR+CATLLIST) && DIR\ outputnaam CATLTEL = 0 && teller CATSRIJ = " " && soortletter(s) uit cats LVELDJE = '' && title / header CATSPAGE = " " && LNK uit Page CATSWOORD = " " && WOORD uit Page CATSOMS = " " && omschrijving bij soortletter SET CONS OFF SELECT CATS GO TOP DO WHILE .T. SELECT CATS IF EOF() SET CONS ON RETURN ENDIF CATSRIJ = TRIM(SRT) CATLLIST = LOWER(CATSRIJ)+"cats"+LOWER(LANG)+".htm" CATLNAAM = LOWER(MXHOOFDDIR+CATLLIST) DO CASE CASE LANG = 'EN' LVELDJE = 'Category' CATSOMS = TRIM(EN) CASE LANG = 'FR' LVELDJE = 'Catégorie' CATSOMS = TRIM(FR) CASE LANG = 'DE' LVELDJE = 'Kategorie' CATSOMS = TRIM(DE) CASE LANG = 'DA' LVELDJE = 'Kategori' CATSOMS = TRIM(DA) CASE LANG = 'SE' LVELDJE = 'Kategori' CATSOMS = TRIM(SE) CASE LANG = 'ES' LVELDJE = 'Categoría' CATSOMS = TRIM(ES) CASE LANG = 'NL' LVELDJE = 'Categorie' CATSOMS = TRIM(NL) ENDCASE SKIP * ---------------- * lijst header * ---------------- SET ALTERNATE TO (CATLNAAM) SET ALTERNATE ON DO FDOCTYPE WITH "IFM" ? ''+LVELDJE+' '+CATSRIJ+'' ? '' ? '' ? '' ? '' ? '' ? '
' ? '
' ? '' ? '' * SELECT TEKENS DO WHILE LEN(LVELDJE) > 0 IF LEFT(LVELDJE,1) = "&" SEEK LEFT(LVELDJE,6) IF FOUND() ? '' ELSE EXIT ENDIF IF LEN(LVELDJE) > 7 LVELDJE = STUFF(LVELDJE,1,6,"") ELSE EXIT ENDIF * ELSE * SEEK LEFT(LVELDJE,1) IF FOUND() ? '' ELSE EXIT ENDIF IF LEN(LVELDJE) > 1 LVELDJE = STUFF(LVELDJE,1,1,"") ELSE EXIT ENDIF ENDIF ENDDO * ? '' * DO WHILE LEN(CATSOMS) > 0 SEEK LEFT(CATSOMS,1) IF FOUND() ? '' ELSE EXIT ENDIF IF LEN(CATSOMS) > 1 CATSOMS = STUFF(CATSOMS,1,1,"") ELSE EXIT ENDIF ENDDO * ? '' * ? '' ? '
' ? '' DO FWWWKAP WITH "INHPICS" ?? '
' ? '
' ? '
' ? '' ? '' ? '
' ? '
' * ? '' ? '' ? '' ? '' * ---------------- * lijst inhoud * ---------------- SELECT PAGE GO TOP CATLTEL = 0 DO WHILE .NOT. EOF() IF LEFT(SRT01,1) $ CATSRIJ .OR. LEFT(SRT02,1) $ CATSRIJ CATSPAGE = TRIM(LNK) SELECT MOEDER SEEK CATSPAGE CATSWOORD = " " IF FOUND() DO WHILE CATSPAGE = TRIM(LNK) DO CASE CASE LANG = 'EN' IF EN CATSWOORD = TRIM(WOORD) EXIT ELSE SKIP ENDIF CASE LANG = 'FR' IF FR CATSWOORD = TRIM(WOORD) EXIT ELSE SKIP ENDIF CASE LANG = 'DE' IF DE CATSWOORD = TRIM(WOORD) EXIT ELSE SKIP ENDIF CASE LANG = 'DA' IF DA CATSWOORD = TRIM(WOORD) EXIT ELSE SKIP ENDIF CASE LANG = 'SE' IF SE CATSWOORD = TRIM(WOORD) EXIT ELSE SKIP ENDIF CASE LANG = 'ES' IF ES CATSWOORD = TRIM(WOORD) EXIT ELSE SKIP ENDIF CASE LANG = 'NL' IF NL CATSWOORD = TRIM(WOORD) EXIT ELSE SKIP ENDIF ENDCASE ENDDO IF EMPTY(CATSWOORD) SELECT PAGE SKIP LOOP ENDIF ELSE SELECT PAGE SKIP LOOP ENDIF * SELECT PAGE * IF CATLTEL = 0 ? '' ENDIF ? '' CATLTEL = CATLTEL + 1 IF CATLTEL = 2 ?? '' CATLTEL = 0 ENDIF ENDIF SKIP ENDDO IF CATLTEL = 1 ? '' ENDIF ?? '
select your word.  
'+CATSWOORD+'
 
' * ? ' ' ? '
' ? '
' ? 'navigation arrows' ? '' ? ' ' ? ' ' ? ' ' ? '' ? '
' ? '
' ? ' ' ? '
' DO FOODVOET ? '
' ? '
' ? '
' ? '' SET ALTERNATE OFF CLOSE ALTERNATE * * ---------------- * SIDEMAP BIJWERKEN * ---------------- * SELECT SMAP SEEK CATLLIST IF .NOT. FOUND() GO BOTTOM APPEND BLANK REPL HAND WITH "X", NAAM WITH CATLLIST, DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ELSE REPL HAND WITH "X", DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ENDIF * ---------------- * RUN NOZ * ---------------- CATLNAAM = "NOZ "+CATLNAAM RUN (CATLNAAM) ENDDO SET CONS ON RETURN * *----------------------------------------------------------------------------* * Foodmo.PRG * FUNKTIONS: keuze tussen * de fmolijst.dbf vullen * een alfabetische lijst xxwords.htm *----------------------------------------------------------------------------* * nieuw 19-11-2007 * 21-11 7007 filter vervangen door selectie * versie 06-01-2008 vernieuwing google opzet. *----------------------------------------------------------------------------* PROCEDURE FOODMO * * MXMUT=' ' DO WHILE .NOT. MXMUT $ 'LX' MXMUT=' ' @ 05,5 SAY 'X is de fmolijst.dbf vernieuwen.' @ 06,5 SAY 'L is alfabetische lijsten xxwords.htm maken.' @ 07,5 SAY '(Blanco is stoppen)' @ 08,5 SAY 'Keuze: 'GET MXMUT PICT "@! A" READ IF EMPTY(MXMUT) CLEAR MXMUT='?' RETURN ENDIF * @ 0,5 SAY 'Gekozen transactie: '+MXMUT IF MXMUT = 'X' DO FMOVUL ELSE IF MXMUT = 'L' CLEAR DO FMOLIST WITH "SITE" ENDIF ENDIF ENDDO * *----------------------------------------------------------------------------* * Fmovul.PRG * FUNKTIONS: * -vervallen records opruimen * -het indexveld in fmoe.dbf (de moedertab) vullen (vernieuwen). * -de fmolijst.dbf vullen (vernieuwen) vanuit de moedertab. * * roept aan: fmoind * param in: niks * * *----------------------------------------------------------------------------- * V01 * * v 22-12- 2005 Woord niet in Page, dan vervallen en lijst Del_Moe.txt vullen. * (Bij de volgende run vervallen de woorden definitief.) * v 08-11-2007 taal se toegevoegd, fout over... * v 12-11-2007 idem *----------------------------------------------------------------------------- PROCEDURE FMOVUL * * ---------------- * define variables * ---------------- LOCAL MOANTW, ELKODE, LKODE, BEGIN, MOWRD, MIWRD, MDELLIJST, MDELSAY MOANTW= "?" LKODE=" " && TAALKODE ELKODE = " " && EXTRA TAAL BEGIN = " " && LNK in moeder? MOWRD = " " && van WOORD uit fmoe tot IND MIWRD = " " && IND MDELLIJST = "Del_Moe.txt" && VERVALLEN WOORDEN MDELSAY = .F. && melding vervallen woorden * ---------------- * clean dbf'n * ---------------- SELECT PAGE PACK SELECT MOEDER PACK * ---------------- * index veld vullen * ---------------- SET CONS ON ? "INDEXVELDEN VULLEN " SET CONS OFF SELE MOEDER GO TOP DO WHILE .NOT. EOF() SELE MOEDER MOWRD = TRIM(LTRIM(UPPER(WOORD))) BEGIN = TRIM(LTRIM(LNK)) * ---------------- * woord niet in Page: vervallem * ---------------- SELE PAGE SEEK BEGIN IF .NOT. FOUND() MDELSAY = .T. SELE MOEDER SET CONS OFF IF .NOT. FILE(MDELLIJST) SET ALTERNATE TO (MDELLIJST) ELSE SET ALTERNATE TO (MDELLIJST) ADDITIVE ENDIF SET ALTERNATE ON ? 'Niet in Fpage.dbf, woord vervalt '+BEGIN +' - '+MOWRD SET ALTERNATE OFF CLOSE ALTERNATE DELETE SKIP LOOP ENDIF * ---------------- * * ---------------- SELE MOEDER MOANTW = "WORD" DO MAKEIND WITH MOANTW * SELE MOEDER * ---------------- * woord niet in Page of Moe: vervallem * ---------------- IF MXMUT ="?" MDELSAY = .T. SELE MOEDER SET CONS OFF IF .NOT. FILE(MDELLIJST) SET ALTERNATE TO (MDELLIJST) ELSE SET ALTERNATE TO (MDELLIJST) ADDITIVE ENDIF SET ALTERNATE ON ? 'Vervallen: '+BEGIN +' - '+MOWRD SET ALTERNATE OFF CLOSE ALTERNATE DELETE SKIP LOOP ENDIF * ---------------- * Geen puntkomma * ---------------- IF MOANTW = "Geen PUNT-KOMMA gevonden" MDELSAY = .T. SELE MOEDER SET CONS OFF IF .NOT. FILE(MDELLIJST) SET ALTERNATE TO (MDELLIJST) ELSE SET ALTERNATE TO (MDELLIJST) ADDITIVE ENDIF SET ALTERNATE ON ? 'Geen ; gevonden: '+BEGIN +' - '+MOWRD SET ALTERNATE OFF CLOSE ALTERNATE SKIP LOOP ENDIF * ---------------- * woord niet goed * ---------------- IF MOANTW = "Het WOORD aanpassen." MDELSAY = .T. SELE MOEDER SET CONS OFF IF .NOT. FILE(MDELLIJST) SET ALTERNATE TO (MDELLIJST) ELSE SET ALTERNATE TO (MDELLIJST) ADDITIVE ENDIF SET ALTERNATE ON ? 'Woord aanpassen: '+BEGIN +' - '+MOWRD SET ALTERNATE OFF CLOSE ALTERNATE SKIP LOOP ENDIF * SKIP ENDDO * ---------------- * zap fmolijst.dbf * ---------------- SELECT LIJST ZAP * SET CONS ON ? ' Fmolijst.dbf gevuld.' SET CONS OFF * ---------------- * fmolijst.dbf vullen * ---------------- SELE MOEDER GO TOP DO WHILE .T. SELE MOEDER IF EOF() EXIT ENDIF IF LEN(TRIM(WOORD))=0 SKIP LOOP ENDIF IF LEFT(WOORD,1)="-" SKIP LOOP ENDIF LKODE = ' ' DO CASE CASE FR LKODE = 'FR' CASE DE LKODE = 'DE' CASE EN LKODE = 'EN' CASE DA LKODE = 'DA' CASE NL LKODE = 'NL' CASE ES LKODE = 'ES' CASE LAT LKODE = 'LA' CASE SE LKODE = 'SE' OTHER SKIP LOOP ENDCASE MOWRD = WOORD MIWRD = IND BEGIN = LNK ELKODE = EXTRA_TAAL SKIP SELE PAGE SEEK BEGIN IF FOUND() MXEENTAAL=EENTAAL ELSE MXEENTAAL=" " ENDIF SELE LIJST APPEND BLANK REPL IND WITH MIWRD, LANG WITH LKODE, LNK WITH BEGIN, WOORD WITH MOWRD, EXTRA_TAAL WITH ELKODE, EENTAAL WITH MXEENTAAL ENDDO SELECT LIJST INDEX ON IND TO LIJST SET INDEX TO LIJST SET CONS ON IF MDELSAY WAIT "De Del_Moe.txt met vervallen e.d. woorden is gevuld. Mep een knop." ENDIF * RETURN * * *----------------------------------------------------------------------------* * Fmolist.PRG * FUNKTIONS: * * -maak een alfabetische lijst over 2 kolommen van fmolijst.dbf * * param in: MOWATTE = "PAGE" OF "SITE" * * output: pages in HTM-format * LET OP: pas ook FTABEL.PRG in foodproc aan! *----------------------------------------------------------------------------- * v01 * v02 Google search toegevoegd * v03 Google linklist " * v04 Zen css versie 17-11-2006 * v 27-12-2006 XHTML * v 11-2-2007 RUN ("NOZ "+MISLIST), remove ctrl-z (Autor NoZ.exe Wayne Larmon, wlarmon@netheaven.com) * versie 1.5.2007 foodlex.txt HAND-indicatie H=handwerk, W=woord, X=wordsindex en O=overigen. * V 8-11-2007 zweeds toegevoegd, fout: variable undefined (terwijl disp memo het wel toont) * v 13-11-2007 nu onderdeel van FOODLIST fout: variable undefined (terwijl disp memo het wel toont) * (m.a.w. geen ruimtegebrek?) * V 14-11-2007 try-out gewijzigde selectie fout: variable undefined (terwijl disp memo het wel toont) * (m.a.w. toch waarschijnlijk te veel voor het geheugen.) * v 20-11-2007 try-out geen filter gebruiken: het werkt. * V 21-11-2007 Fout: metagegevens weggelaten. * v 06-01-2008 google opzet. * v 07-01-2008 niet meer opnemen in sitemap * v 17-05-2008 Google Custom Search Internet * v 03-07-2008 Google Pack weg * v 12-12-2009 Afwijkende char gebruiken en vernieuwde prog: * v 24-12-2009 uitgebreidere selectie htm-files * * MXNAAMWORDS pos. 1 en 2 * GEVONDEN IN INDEX: WORDT: * KEUZE IN MENU [Blank] op index pagina, eerste begin * - + - 2x tekens: [!"#$%&'()*+,-./0123456789;<=>?@\^_`{|}~?] bijv. cijfers --words.htm * - + kap 1x tekens plus hoofdletter, bijv. cijfer plus alle gewone letters idem * - + ok 1x tekens plus kleine letter, bijv. cijfer plus alle noordse letters idem oke 2 * * kap + - 1x hoofdletter plus tekens, [A] + [blank] a- t/m z-words oke 2 * * kap + ok 1x hoofdletter plus alle noordse letters [A] + [noordse] a1 t/m z1words oke * * ok - alle noordse letters afznderlijk [.] [] [] [] [] op index pagina 1a t/m 6awords oke 2 * * kap + kap 2x hoofdletter [A] + [a] aa t/m zzwords * * * * Fmoe-IND = code = talen wordt cijfer tbv xxwords ; omzetting letter tbv alfabetisering SE * a = aring, Aring = deens wordt 1 ; aring = å Aring = Å * b = aring, Aring = zweeds wordt 2 ; aring = å Aring = Å * c = auml, Auml = zweeds wordt 3 ; auml = ä Auml = Ä * d = aelig, Aelig = deens wordt 4 ; aelig= æ Aelig = Æ * e = ouml, Ouml = zweeds wordt 5 ; ouml = ö Ouml = Ö * f = oslash,Oslash = deens wordt 6 ; oslash= ø Oslash= Ø * *----------------------------------------------------------------------------- PROC FMOLIST(MOWATTE) * ---------------- * INITIALISATION * ---------------- SET CONS OFF SET EXACT OFF * ---------------- * define variables * ---------------- LOCAL MOLIST, MOSELEKT, MOEERSTE, MOTWEEDE, MONOTFOUND, MOSTOP, MLIST * * MOWATTE = "PAGE" OF "SITE" * MXNAAMWORDS ='a-words.htm' && naam van de xxwords.html * IF MOWATTE = "SITE" MXNAAMWORDS ='--words.htm' && naam van de xxwords.html MOSELEKT = "-" ELSE MOSELEKT = LEFT(MXNAAMWORDS,2) && 'aA' ENDIF * MOLIST = LOWER(MXHOOFDDIR+MXNAAMWORDS) && lijstnaam: \hoofd\a-words.htm MOEERSTE = "A" && 1E letter boven het scherm-overzicht MOTWEEDE = "-" && 2E letter boven het scherm-overzicht MONOTFOUND = .F. && found() MOSTOP = "0" && kode om het maken pagina op de juiste plek te stoppen * * ---------------- * MAIN PROCESS * ---------------- SELECT LIJST GO TOP * DO WHILE .T. * ---------------- * selectie start * ---------------- MOEERSTE = " " DO CASE CASE LEFT(MOSELEKT,1) = "-" && eerste begin MXNAAMWORDS = "--words.htm" MOEERSTE = "-" MOTWEEDE = "-" * kap + - 1x hoofdletter plus tekens, a- t/m z-words CASE MOSELEKT = "A-" && Aa t/m Af MXNAAMWORDS = "a-words.htm" MOEERSTE = "A" MOTWEEDE = "+" CASE MOSELEKT = "B-" && Ba t/m Bf enz. MXNAAMWORDS = "b-words.htm" MOEERSTE = "B" MOTWEEDE = "+" CASE MOSELEKT = "C-" MXNAAMWORDS = "c-words.htm" MOEERSTE = "C" MOTWEEDE = "+" CASE MOSELEKT = "D-" MXNAAMWORDS = "d-words.htm" MOEERSTE = "D" MOTWEEDE = "+" CASE MOSELEKT = "E-" MXNAAMWORDS = "e-words.htm" MOEERSTE = "E" MOTWEEDE = "+" CASE MOSELEKT = "F-" MXNAAMWORDS = "f-words.htm" MOEERSTE = "F" MOTWEEDE = "+" CASE MOSELEKT = "G-" MXNAAMWORDS = "g-words.htm" MOEERSTE = "G" MOTWEEDE = "+" CASE MOSELEKT = "H-" MXNAAMWORDS = "h-words.htm" MOEERSTE = "H" MOTWEEDE = "+" CASE MOSELEKT = "I-" MXNAAMWORDS = "i-words.htm" MOEERSTE = "I" MOTWEEDE = "+" CASE MOSELEKT = "J-" MXNAAMWORDS = "j-words.htm" MOEERSTE = "J" MOTWEEDE = "+" CASE MOSELEKT = "K-" MXNAAMWORDS = "k-words.htm" MOEERSTE = "K" MOTWEEDE = "+" CASE MOSELEKT = "L-" MXNAAMWORDS = "l-words.htm" MOEERSTE = "L" MOTWEEDE = "+" CASE MOSELEKT = "M-" MXNAAMWORDS = "m-words.htm" MOEERSTE = "M" MOTWEEDE = "+" CASE MOSELEKT = "N-" MXNAAMWORDS = "n-words.htm" MOEERSTE = "N" MOTWEEDE = "+" CASE MOSELEKT = "O-" MXNAAMWORDS = "o-words.htm" MOEERSTE = "O" MOTWEEDE = "+" CASE MOSELEKT = "P-" MXNAAMWORDS = "p-words.htm" MOEERSTE = "P" MOTWEEDE = "+" CASE MOSELEKT = "Q-" MXNAAMWORDS = "q-words.htm" MOEERSTE = "Q" MOTWEEDE = "+" CASE MOSELEKT = "R-" MXNAAMWORDS = "r-words.htm" MOEERSTE = "R" MOTWEEDE = "+" CASE MOSELEKT = "S-" MXNAAMWORDS = "s-words.htm" MOEERSTE = "S" MOTWEEDE = "+" CASE MOSELEKT = "T-" MXNAAMWORDS = "t-words.htm" MOEERSTE = "T" MOTWEEDE = "+" CASE MOSELEKT = "U-" MXNAAMWORDS = "u-words.htm" MOEERSTE = "U" MOTWEEDE = "+" CASE MOSELEKT = "V-" MXNAAMWORDS = "v-words.htm" MOEERSTE = "V" MOTWEEDE = "+" CASE MOSELEKT = "W-" MXNAAMWORDS = "w-words.htm" MOEERSTE = "W" MOTWEEDE = "+" CASE MOSELEKT = "X-" MXNAAMWORDS = "x-words.htm" MOEERSTE = "X" MOTWEEDE = "+" CASE MOSELEKT = "Y-" MXNAAMWORDS = "y-words.htm" MOEERSTE = "Y" MOTWEEDE = "+" CASE MOSELEKT = "Z-" MXNAAMWORDS = "z-words.htm" MOEERSTE = "Z" MOTWEEDE = "+" * ok - alle noordse letters afznderlijk 1a t/m 6awords CASE LEFT(MOSELEKT,1) = "a" && aA t/m aZ dansk MXNAAMWORDS = "1awords.htm" MOEERSTE = "Å" MOTWEEDE = "+" CASE LEFT(MOSELEKT,1) = "b" && bA t/m bZ svensk MXNAAMWORDS = "2awords.htm" MOEERSTE = "Å" MOTWEEDE = "+" CASE LEFT(MOSELEKT,1) = "c" && cA t/m cZ MXNAAMWORDS = "3awords.htm" MOEERSTE = "Ä" MOTWEEDE = "+" CASE LEFT(MOSELEKT,1) = "d" && dA t/m dZ MXNAAMWORDS = "4awords.htm" MOEERSTE = "Æ" MOTWEEDE = "+" CASE LEFT(MOSELEKT,1) = "e" && eA t/m eZ MXNAAMWORDS = "5awords.htm" MOEERSTE = "Ö" MOTWEEDE = "+" CASE LEFT(MOSELEKT,1) = "f" && fA t/m fZ MXNAAMWORDS = "6awords.htm" MOEERSTE = "Ø" MOTWEEDE = "+" * kap + ok 1x hoofdletter plus alle noordse letters a1 t/m z1words oke CASE MOSELEKT = "Aa" && Aa t/m Az GO TOP GO TOP MXNAAMWORDS = "a1words.htm" MOEERSTE = "A" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ba" && Ba t/m Bz MXNAAMWORDS = "b1words.htm" MOEERSTE = "B" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ca" && Ca t/m Cz MXNAAMWORDS = "c1words.htm" MOEERSTE = "C" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Da" && Da t/m Dz MXNAAMWORDS = "d1words.htm" MOEERSTE = "D" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ea" && Ea t/m Ez MXNAAMWORDS = "e1words.htm" MOEERSTE = "E" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Fa" && Fa t/m Fz MXNAAMWORDS = "f1words.htm" MOEERSTE = "F" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ga" MXNAAMWORDS = "g1words.htm" MOEERSTE = "G" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ha" MXNAAMWORDS = "h1words.htm" MOEERSTE = "H" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ia" MXNAAMWORDS = "i1words.htm" MOEERSTE = "I" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ja" MXNAAMWORDS = "j1words.htm" MOEERSTE = "J" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ka" MXNAAMWORDS = "k1words.htm" MOEERSTE = "K" MOTWEEDE = "åäæöø" CASE MOSELEKT = "La" MXNAAMWORDS = "l1words.htm" MOEERSTE = "L" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ma" MXNAAMWORDS = "m1words.htm" MOEERSTE = "M" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Na" MXNAAMWORDS = "n1words.htm" MOEERSTE = "N" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Oa" MXNAAMWORDS = "o1words.htm" MOEERSTE = "O" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Pa" MXNAAMWORDS = "p1words.htm" MOEERSTE = "P" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Qa" MXNAAMWORDS = "q1words.htm" MOEERSTE = "Q" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ra" MXNAAMWORDS = "r1words.htm" MOEERSTE = "R" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Sa" MXNAAMWORDS = "s1words.htm" MOEERSTE = "S" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ta" MXNAAMWORDS = "t1words.htm" MOEERSTE = "T" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ua" MXNAAMWORDS = "u1words.htm" MOEERSTE = "U" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Va" MXNAAMWORDS = "v1words.htm" MOEERSTE = "V" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Wa" MXNAAMWORDS = "w1words.htm" MOEERSTE = "W" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Xa" MXNAAMWORDS = "x1words.htm" MOEERSTE = "X" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Ya" MXNAAMWORDS = "y1words.htm" MOEERSTE = "Y" MOTWEEDE = "åäæöø" CASE MOSELEKT = "Za" && Za t/m Ze MXNAAMWORDS = "z1words.htm" MOEERSTE = "Z" MOTWEEDE = "åäæöø" ENDCASE * kap + kap 2x hoofdletter aa t/m zzwords IF EMPTY(MOEERSTE) IF MOWATTE = "SITE" && van AA t/m ZZ MXNAAMWORDS = LOWER(MOSELEKT)+"words.htm" && xxwords.htm MOEERSTE = UPPER(LEFT(MOSELEKT,1)) MOTWEEDE = UPPER(RIGHT(MOSELEKT,1)) ELSE MXNAAMWORDS = LOWER(MXNAAMWORDS) MOEERSTE = UPPER(LEFT(MOSELEKT,1)) MOTWEEDE = UPPER(RIGHT(MOSELEKT,1)) ENDIF ENDIF * MOLIST = LOWER(MXHOOFDDIR+MXNAAMWORDS) * SET CONS ON ? ' Fmolijst: ..Working..: '+MXNAAMWORDS SET CONS OFF * * ---------------- * lijst header * ---------------- SET ALTERNATE TO (MOLIST) SET ALTERNATE ON DO FDOCTYPE WITH "IFM" ? ''+MOEERSTE+MOTWEEDE+'-index, translations into 7 languages' ? '' ? '' ? '' ? '' ? '
' ? '
' ? '' ? '' * ---------------- * header letters * ---------------- SELECT TEKENS SEEK UPPER(MOEERSTE) IF FOUND() ? '' ENDIF IF MOTWEEDE = "åäæöø" SEEK "*" ELSE SEEK UPPER(MOTWEEDE) ENDIF IF FOUND() ? '' ELSE ?? '+' ENDIF * ? '' ? '' ? '' ? '' ? '' ? '' ? '' ? '' ? '' ? '' ? '' ? '' ? '' DO FWWWKAP WITH "INHPICS" ?? '
' ? '
' ? '
' ? '' ? '' ? '
' ? '
' ? '' SELECT LIJST * * DO CASE * - tekens CASE LEFT(MOSELEKT,1) = "-" && eerste begin --words.htm GO TOP SEEK "-" MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "10" * kap + - 1x hoofdletter plus tekens, a- t/m z-words CASE MOSELEKT = "A-" && a-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "11" CASE MOSELEKT = "B-" && b-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "12" CASE MOSELEKT = "C-" && c-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "13" CASE MOSELEKT = "D-" && d-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "14" CASE MOSELEKT = "E-" && e-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "15" CASE MOSELEKT = "F-" && f-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "16" CASE MOSELEKT = "G-" && g-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "17" CASE MOSELEKT = "H-" && h-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "18" CASE MOSELEKT = "I-" && i-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "19" CASE MOSELEKT = "J-" && j-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "20" CASE MOSELEKT = "K-" && k-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "21" CASE MOSELEKT = "L-" && l-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "22" CASE MOSELEKT = "M-" && m-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "23" CASE MOSELEKT = "N-" && n-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "24" CASE MOSELEKT = "O-" && o-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "25" CASE MOSELEKT = "P-" && p-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "26" CASE MOSELEKT = "Q-" && q-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "27" CASE MOSELEKT = "R-" && r-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "28" CASE MOSELEKT = "S-" && s-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "29" CASE MOSELEKT = "T-" && t-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "30" CASE MOSELEKT = "U-" && u-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "31" CASE MOSELEKT = "V-" && v-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "32" CASE MOSELEKT = "W-" && w-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "33" CASE MOSELEKT = "X-" && x-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "34" CASE MOSELEKT = "Y-" && y-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "35" CASE MOSELEKT = "Z-" && z-words.htm SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "36" * ok - alle noordse letters afznderlijk 1a t/m 6awords CASE LEFT(MOSELEKT,1) = "a" && aA t/m aZ dansk SEEK "a" MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "37" CASE LEFT(MOSELEKT,1) = "b" && bA t/m bZ svensk SEEK "b" MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "38" CASE LEFT(MOSELEKT,1) = "c" && cA t/m cZ SEEK "c" MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "39" CASE LEFT(MOSELEKT,1) = "d" && dA t/m dZ SEEK "d" MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "40" CASE LEFT(MOSELEKT,1) = "e" && eA t/m eZ SEEK "e" MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "41" CASE LEFT(MOSELEKT,1) = "f" && fA t/m fZ SEEK "f" MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "42" * kap + ok 1x hoofdletter plus alle noordse letters a1 t/m z1words oke * CASE MOSELEKT = "Aa" && Aa t/m Af GO TOP SEEK "Aa" IF .NOT. FOUND() SEEK "Ab" ENDIF IF .NOT. FOUND() SEEK "Ac" ENDIF IF .NOT. FOUND() SEEK "Ad" ENDIF IF .NOT. FOUND() SEEK "Ae" ENDIF IF .NOT. FOUND() SEEK "Af" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "A" CASE MOSELEKT = "Ba" && Ba t/m Bf GO TOP SEEK "Ba" IF .NOT. FOUND() SEEK "Bb" ENDIF IF .NOT. FOUND() SEEK "Bc" ENDIF IF .NOT. FOUND() SEEK "Bd" ENDIF IF .NOT. FOUND() SEEK "Be" ENDIF IF .NOT. FOUND() SEEK "Bf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "B" CASE MOSELEKT = "Ca" && Ca t/m Cf GO TOP SEEK "Ca" IF .NOT. FOUND() SEEK "Cb" ENDIF IF .NOT. FOUND() SEEK "Cc" ENDIF IF .NOT. FOUND() SEEK "Cd" ENDIF IF .NOT. FOUND() SEEK "Ce" ENDIF IF .NOT. FOUND() SEEK "Cf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "C" CASE MOSELEKT = "Da" && Da t/m Df GO TOP SEEK "Da" IF .NOT. FOUND() SEEK "Db" ENDIF IF .NOT. FOUND() SEEK "Dc" ENDIF IF .NOT. FOUND() SEEK "Dd" ENDIF IF .NOT. FOUND() SEEK "De" ENDIF IF .NOT. FOUND() SEEK "Df" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "D" CASE MOSELEKT = "Ea" && Ea t/m Ef GO TOP SEEK "Ea" IF .NOT. FOUND() SEEK "Eb" ENDIF IF .NOT. FOUND() SEEK "Ec" ENDIF IF .NOT. FOUND() SEEK "Ed" ENDIF IF .NOT. FOUND() SEEK "Ee" ENDIF IF .NOT. FOUND() SEEK "Ef" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "E" CASE MOSELEKT = "Fa" && Fa t/m Ff GO TOP SEEK "Fa" IF .NOT. FOUND() SEEK "Fb" ENDIF IF .NOT. FOUND() SEEK "Fc" ENDIF IF .NOT. FOUND() SEEK "Fd" ENDIF IF .NOT. FOUND() SEEK "Fe" ENDIF IF .NOT. FOUND() SEEK "Ff" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "F" CASE MOSELEKT = "Ga" && Ga t/m G enz. GO TOP SEEK "Ga" IF .NOT. FOUND() SEEK "Gb" ENDIF IF .NOT. FOUND() SEEK "Gc" ENDIF IF .NOT. FOUND() SEEK "Gd" ENDIF IF .NOT. FOUND() SEEK "Ge" ENDIF IF .NOT. FOUND() SEEK "Gf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "G" CASE MOSELEKT = "Ha" GO TOP SEEK "Ha" IF .NOT. FOUND() SEEK "Hb" ENDIF IF .NOT. FOUND() SEEK "Hc" ENDIF IF .NOT. FOUND() SEEK "Hd" ENDIF IF .NOT. FOUND() SEEK "He" ENDIF IF .NOT. FOUND() SEEK "Hf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "H" CASE MOSELEKT = "Ia" GO TOP SEEK "Ia" IF .NOT. FOUND() SEEK "Ib" ENDIF IF .NOT. FOUND() SEEK "Ic" ENDIF IF .NOT. FOUND() SEEK "Id" ENDIF IF .NOT. FOUND() SEEK "Ie" ENDIF IF .NOT. FOUND() SEEK "If" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "I" CASE MOSELEKT = "Ja" GO TOP SEEK "Ja" IF .NOT. FOUND() SEEK "Jb" ENDIF IF .NOT. FOUND() SEEK "Jc" ENDIF IF .NOT. FOUND() SEEK "Jd" ENDIF IF .NOT. FOUND() SEEK "Je" ENDIF IF .NOT. FOUND() SEEK "Jf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "J" CASE MOSELEKT = "Ka" GO TOP SEEK "Ka" IF .NOT. FOUND() SEEK "Kb" ENDIF IF .NOT. FOUND() SEEK "Kc" ENDIF IF .NOT. FOUND() SEEK "Kd" ENDIF IF .NOT. FOUND() SEEK "Ke" ENDIF IF .NOT. FOUND() SEEK "Kf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "K" CASE MOSELEKT = "La" GO TOP SEEK "La" IF .NOT. FOUND() SEEK "Lb" ENDIF IF .NOT. FOUND() SEEK "Lc" ENDIF IF .NOT. FOUND() SEEK "Ld" ENDIF IF .NOT. FOUND() SEEK "Le" ENDIF IF .NOT. FOUND() SEEK "Lf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "L" CASE MOSELEKT = "Ma" GO TOP SEEK "Ma" IF .NOT. FOUND() SEEK "Mb" ENDIF IF .NOT. FOUND() SEEK "Mc" ENDIF IF .NOT. FOUND() SEEK "Md" ENDIF IF .NOT. FOUND() SEEK "Me" ENDIF IF .NOT. FOUND() SEEK "Mf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "M" CASE MOSELEKT = "Na" GO TOP SEEK "Na" IF .NOT. FOUND() SEEK "Nb" ENDIF IF .NOT. FOUND() SEEK "Nc" ENDIF IF .NOT. FOUND() SEEK "Nd" ENDIF IF .NOT. FOUND() SEEK "Ne" ENDIF IF .NOT. FOUND() SEEK "Nf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "N" CASE MOSELEKT = "Oa" GO TOP SEEK "Oa" IF .NOT. FOUND() SEEK "Ob" ENDIF IF .NOT. FOUND() SEEK "Oc" ENDIF IF .NOT. FOUND() SEEK "Od" ENDIF IF .NOT. FOUND() SEEK "Oe" ENDIF IF .NOT. FOUND() SEEK "Of" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "O" CASE MOSELEKT = "Pa" GO TOP SEEK "Pa" IF .NOT. FOUND() SEEK "Pb" ENDIF IF .NOT. FOUND() SEEK "Pc" ENDIF IF .NOT. FOUND() SEEK "Pd" ENDIF IF .NOT. FOUND() SEEK "Pe" ENDIF IF .NOT. FOUND() SEEK "Pf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "P" CASE MOSELEKT = "Qa" GO TOP SEEK "Qa" IF .NOT. FOUND() SEEK "Qb" ENDIF IF .NOT. FOUND() SEEK "Qc" ENDIF IF .NOT. FOUND() SEEK "Qd" ENDIF IF .NOT. FOUND() SEEK "Qe" ENDIF IF .NOT. FOUND() SEEK "Qf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "Q" CASE MOSELEKT = "Ra" GO TOP SEEK "Ra" IF .NOT. FOUND() SEEK "Rb" ENDIF IF .NOT. FOUND() SEEK "Rc" ENDIF IF .NOT. FOUND() SEEK "Rd" ENDIF IF .NOT. FOUND() SEEK "Re" ENDIF IF .NOT. FOUND() SEEK "Rf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "R" CASE MOSELEKT = "Sa" GO TOP SEEK "Sa" IF .NOT. FOUND() SEEK "Sb" ENDIF IF .NOT. FOUND() SEEK "Sc" ENDIF IF .NOT. FOUND() SEEK "Sd" ENDIF IF .NOT. FOUND() SEEK "Se" ENDIF IF .NOT. FOUND() SEEK "Sf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "S" CASE MOSELEKT = "Ta" GO TOP SEEK "Ta" IF .NOT. FOUND() SEEK "Tb" ENDIF IF .NOT. FOUND() SEEK "Tc" ENDIF IF .NOT. FOUND() SEEK "Td" ENDIF IF .NOT. FOUND() SEEK "Te" ENDIF IF .NOT. FOUND() SEEK "Tf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "T" CASE MOSELEKT = "Ua" GO TOP SEEK "Ua" IF .NOT. FOUND() SEEK "Ub" ENDIF IF .NOT. FOUND() SEEK "Uc" ENDIF IF .NOT. FOUND() SEEK "Ud" ENDIF IF .NOT. FOUND() SEEK "Ue" ENDIF IF .NOT. FOUND() SEEK "Uf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "U" CASE MOSELEKT = "Va" && Aa t/m Ae GO TOP SEEK "Va" IF .NOT. FOUND() SEEK "Vb" ENDIF IF .NOT. FOUND() SEEK "Vc" ENDIF IF .NOT. FOUND() SEEK "Vd" ENDIF IF .NOT. FOUND() SEEK "Ve" ENDIF IF .NOT. FOUND() SEEK "Vf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "V" CASE MOSELEKT = "Wa" && Aa t/m Ae GO TOP SEEK "Wa" IF .NOT. FOUND() SEEK "Wb" ENDIF IF .NOT. FOUND() SEEK "Wc" ENDIF IF .NOT. FOUND() SEEK "Wd" ENDIF IF .NOT. FOUND() SEEK "We" ENDIF IF .NOT. FOUND() SEEK "Wf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "W" CASE MOSELEKT = "Xa" && Aa t/m Ae GO TOP SEEK "Xa" IF .NOT. FOUND() SEEK "Xb" ENDIF IF .NOT. FOUND() SEEK "Xc" ENDIF IF .NOT. FOUND() SEEK "Xd" ENDIF IF .NOT. FOUND() SEEK "Xe" ENDIF IF .NOT. FOUND() SEEK "Xf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "X" CASE MOSELEKT = "Ya" && Aa t/m Ae GO TOP SEEK "Ya" IF .NOT. FOUND() SEEK "Yb" ENDIF IF .NOT. FOUND() SEEK "Yc" ENDIF IF .NOT. FOUND() SEEK "Yd" ENDIF IF .NOT. FOUND() SEEK "Ye" ENDIF IF .NOT. FOUND() SEEK "Yf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "Y" CASE MOSELEKT = "Za" && Za t/m Ze SEEK "Za" IF .NOT. FOUND() SEEK "Zb" ENDIF IF .NOT. FOUND() SEEK "Zc" ENDIF IF .NOT. FOUND() SEEK "Zd" ENDIF IF .NOT. FOUND() SEEK "Ze" ENDIF IF .NOT. FOUND() SEEK "Zf" ENDIF MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "Z" * kap + kap 2x hoofdletter aa t/m zzwords OTHER SEEK MOSELEKT MONOTFOUND =IIF( FOUND(), .F., .T.) MOSTOP = "99" MXANTW = MOSELEKT * ENDCASE * IF MONOTFOUND ? '

We have no words beginning with '+MOEERSTE+' '+MOTWEEDE+'.

' ? '

Er zijn geen woorden die beginnen met '+MOEERSTE+' '+MOTWEEDE+'

' ELSE ? '' ? '' ? '' DO FMOLST WITH MOSTOP ENDIF * ? '' ? '
' ? '
' ? 'navigation arrows' ? '' ? ' ' ? ' ' ? ' ' ? '' ? '
' ? '
' ? ' ' ? '
' DO FOODVOET ? '
' ? '
' ? '
' ? '' SET ALTERNATE OFF CLOSE ALTERNATE * * ---------------- * SIDEMAP BIJWERKEN * ---------------- * SELECT SMAP SEEK MXNAAMWORDS IF .NOT. FOUND() GO BOTTOM APPEND BLANK REPL HAND WITH "X", NAAM WITH MXNAAMWORDS, DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ELSE REPL HAND WITH "X", DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ENDIF * SELECT LIJST * ---------------- * RUN NOZ * ---------------- MLIST = "NOZ "+MOLIST RUN (MLIST) * ---------------------- IF MOWATTE = "PAGE" EXIT ENDIF SELE LIJST * DO CASE CASE LEFT(MOSELEKT,1) = "-" && eerste begin * MOSELEKT = "A-" CASE MOSELEKT = "A-" && opgehoogd van A- naar B- MOSELEKT = "B-" CASE MOSELEKT = "B-" MOSELEKT = "C-" CASE MOSELEKT = "C-" MOSELEKT = "D-" CASE MOSELEKT = "D-" MOSELEKT = "E-" CASE MOSELEKT = "E-" MOSELEKT = "F-" CASE MOSELEKT = "F-" MOSELEKT = "G-" CASE MOSELEKT = "G-" MOSELEKT = "H-" CASE MOSELEKT = "H-" MOSELEKT = "I-" CASE MOSELEKT = "I-" MOSELEKT = "J-" CASE MOSELEKT = "J-" MOSELEKT = "K-" CASE MOSELEKT = "K-" MOSELEKT = "L-" CASE MOSELEKT = "L-" MOSELEKT = "M-" CASE MOSELEKT = "M-" MOSELEKT = "N-" CASE MOSELEKT = "N-" MOSELEKT = "O-" CASE MOSELEKT = "O-" MOSELEKT = "P-" CASE MOSELEKT = "P-" MOSELEKT = "Q-" CASE MOSELEKT = "Q-" MOSELEKT = "R-" CASE MOSELEKT = "R-" MOSELEKT = "S-" CASE MOSELEKT = "S-" MOSELEKT = "T-" CASE MOSELEKT = "T-" MOSELEKT = "U-" CASE MOSELEKT = "U-" MOSELEKT = "V-" CASE MOSELEKT = "V-" MOSELEKT = "W-" CASE MOSELEKT = "W-" MOSELEKT = "X-" CASE MOSELEKT = "X-" MOSELEKT = "Y-" CASE MOSELEKT = "Y-" && Za t/m Ze MOSELEKT = "Z-" CASE MOSELEKT = "Z-" && Za t/m Ze MOSELEKT = "Aa" * CASE MOSELEKT = "Aa" MOSELEKT = "Ba" CASE MOSELEKT = "Ba" MOSELEKT = "Ca" CASE MOSELEKT = "Ca" MOSELEKT = "Da" CASE MOSELEKT = "Da" MOSELEKT = "Ea" CASE MOSELEKT = "Ea" MOSELEKT = "Fa" CASE MOSELEKT = "Fa" MOSELEKT = "Ga" CASE MOSELEKT = "Ga" MOSELEKT = "Ha" CASE MOSELEKT = "Ha" MOSELEKT = "Ia" CASE MOSELEKT = "Ia" MOSELEKT = "Ja" CASE MOSELEKT = "Ja" MOSELEKT = "Ka" CASE MOSELEKT = "Ka" MOSELEKT = "La" CASE MOSELEKT = "La" MOSELEKT = "Ma" CASE MOSELEKT = "Ma" MOSELEKT = "Na" CASE MOSELEKT = "Na" MOSELEKT = "Oa" CASE MOSELEKT = "Oa" MOSELEKT = "Pa" CASE MOSELEKT = "Pa" MOSELEKT = "Qa" CASE MOSELEKT = "Qa" MOSELEKT = "Ra" CASE MOSELEKT = "Ra" MOSELEKT = "Sa" CASE MOSELEKT = "Sa" MOSELEKT = "Ta" CASE MOSELEKT = "Ta" MOSELEKT = "Ua" CASE MOSELEKT = "Ua" MOSELEKT = "Va" CASE MOSELEKT = "Va" MOSELEKT = "Wa" CASE MOSELEKT = "Wa" MOSELEKT = "Xa" CASE MOSELEKT = "Xa" MOSELEKT = "Ya" CASE MOSELEKT = "Ya" MOSELEKT = "Za" CASE MOSELEKT = "Za" * MOSELEKT = "aA" CASE MOSELEKT = "aA" && aA t/m aZ MOSELEKT = "bA" CASE MOSELEKT = "bA" && bA t/m bZ MOSELEKT = "cA" CASE MOSELEKT = "cA" && cA t/m cZ MOSELEKT = "dA" CASE MOSELEKT = "dA" && dA t/m dZ MOSELEKT = "eA" CASE MOSELEKT = "eA" && eA t/m eZ MOSELEKT = "fA" CASE MOSELEKT = "fA" MOSELEKT = "AA" OTHER && AA -> AB IF MOSELEKT = "ZZ" && einde EXIT ENDIF IF RIGHT(MOSELEKT,1)="Z" && "NZ" -> "(N+1)+A" MOSELEKT =CHR(ASC(LEFT(MOSELEKT,1))+1)+"A" ELSE MOSELEKT =LEFT(MOSELEKT,1)+CHR(ASC(RIGHT(MOSELEKT,1))+1) && "NN" -> "N+(N+1)" ENDIF ENDCASE ENDDO SET CONS ON SET EXACT ON RETURN * * *----------------------------------------------------------------------------* * Fmolst.PRG * FUNKTIONS: * * -maak de inhoud voor de lijst over 2 kolommen van fmolijst.dbf * * param in: MOHALT (& voorwaarde waneer te stoppen) * * output: inhoud pages in HTM-format * v 17-2-2008 letters ZZ: scandinaviese letters version Scandinavian * versie 22-02-2008 bug Za = alles * versie 18-12-2009 &mohalt * v 23-9-2010 MXINHOUDDIR FOUT * v 08-10-2010 MXINHDIR * v 12-10-2010 indicatie 1 taal *----------------------------------------------------------------------------- PROCEDURE FMOLST(MOHALT) LOCAL MOEKSTRA, MOREGEL MOEKSTRA=" " && EXTRATAAL REGEL MOREGEL =.T. && AL DAN NIET TR * MXINHDIR * DO WHILE .NOT. EOF() MOEKSTRA=IIF(.NOT. EMPTY(EXTRA_TAAL),''+TRIM(EXTRA_TAAL)+'','') IF LANG="SE" IF .NOT. EMPTY(EENTAAL) MOEKSTRA=''+MOEKSTRA ENDIF IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF IF LANG="FR" IF .NOT. EMPTY(EENTAAL) MOEKSTRA=''+MOEKSTRA ENDIF IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF IF LANG="DE" IF .NOT. EMPTY(EENTAAL) MOEKSTRA=''+MOEKSTRA ENDIF IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF IF LANG="EN" IF .NOT. EMPTY(EENTAAL) MOEKSTRA=''+MOEKSTRA ENDIF IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF IF LANG="DA" IF .NOT. EMPTY(EENTAAL) MOEKSTRA=''+MOEKSTRA ENDIF IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF IF LANG="NL" IF .NOT. EMPTY(EENTAAL) MOEKSTRA=''+MOEKSTRA ENDIF IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF IF LANG="ES" IF .NOT. EMPTY(EENTAAL) MOEKSTRA=''+MOEKSTRA ENDIF IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF IF LANG="LA" IF MOREGEL ? '' MOREGEL=.F. ELSE ? '' MOREGEL=.T. ENDIF ENDIF * SKIP * IF EOF() IF .NOT. MOREGEL ? '' ENDIF ? '
Select your word Kies uw woord
SE: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' SE: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
FR: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' FR: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
DE: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' DE: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
EN: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' EN: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
DA: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' DA: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
NL: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' NL: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
ES: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' ES: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
Lat.: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+' Lat.: [ '+TRIM(WOORD)+' ]  '+MOEKSTRA+'
 
' GO TOP RETURN ENDIF DO CASE CASE MOHALT = "10" && eerste begin IF LEFT(IND,1)>'-' && GROTER DAN - EXIT ENDIF * kap + - 1x hoofdletter plus tekens, a- t/m z-words CASE MOHALT = "11" IF LEFT(IND,2) > "A-" EXIT ENDIF CASE MOHALT = "12" IF LEFT(IND,2) > "B-" EXIT ENDIF CASE MOHALT = "13" IF LEFT(IND,2) > "C-" EXIT ENDIF CASE MOHALT = "14" IF LEFT(IND,2) > "D-" EXIT ENDIF CASE MOHALT = "15" IF LEFT(IND,2) > "E-" EXIT ENDIF CASE MOHALT = "16" IF LEFT(IND,2) > "F-" EXIT ENDIF CASE MOHALT = "17" IF LEFT(IND,2) > "G-" EXIT ENDIF CASE MOHALT = "18" IF LEFT(IND,2) > "H-" EXIT ENDIF CASE MOHALT = "19" IF LEFT(IND,2) > "I-" EXIT ENDIF CASE MOHALT = "20" IF LEFT(IND,2) > "J-" EXIT ENDIF CASE MOHALT = "21" IF LEFT(IND,2)> "K-" EXIT ENDIF CASE MOHALT = "22" IF LEFT(IND,2) > "L-" EXIT ENDIF CASE MOHALT = "23" IF LEFT(IND,2) > "M-" EXIT ENDIF CASE MOHALT = "24" IF LEFT(IND,2) > "N-" EXIT ENDIF CASE MOHALT = "25" IF LEFT(IND,2) > "O-" EXIT ENDIF CASE MOHALT = "26" IF LEFT(IND,2) > "P-" EXIT ENDIF CASE MOHALT = "27" IF LEFT(IND,2) > "Q-" EXIT ENDIF CASE MOHALT = "28" IF LEFT(IND,2) > "R-" EXIT ENDIF CASE MOHALT = "29" IF LEFT(IND,2) > "S-" EXIT ENDIF CASE MOHALT = "30" IF LEFT(IND,2) > "T-" EXIT ENDIF CASE MOHALT = "31" IF LEFT(IND,2) > "U-" EXIT ENDIF CASE MOHALT = "32" IF LEFT(IND,2) > "V-" EXIT ENDIF CASE MOHALT = "33" IF LEFT(IND,2) > "W-" EXIT ENDIF CASE MOHALT = "34" IF LEFT(IND,2) > "X-" EXIT ENDIF CASE MOHALT = "35" IF LEFT(IND,2) > "Y-" EXIT ENDIF CASE MOHALT = "36" IF LEFT(IND,2) > "Z-" EXIT ENDIF * ok - alle noordse letters afzonderlijk CASE MOHALT = "37" IF LEFT(IND,1) > "a" EXIT ENDIF CASE MOHALT = "38" IF LEFT(IND,1) > "b" EXIT ENDIF CASE MOHALT = "39" IF LEFT(IND,1) > "c" EXIT ENDIF CASE MOHALT = "40" IF LEFT(IND,1) > "d" EXIT ENDIF CASE MOHALT = "41" IF LEFT(IND,1) > "e" EXIT ENDIF CASE MOHALT = "42" IF LEFT(IND,1) <> "f" EXIT ENDIF * kap + ok 1x hoofdletter plus alle noordse letters CASE MOHALT = "A" IF LEFT(IND,1) > "A" EXIT ENDIF CASE MOHALT = "B" IF LEFT(IND,1) > "B" EXIT ENDIF CASE MOHALT = "C" IF LEFT(IND,1) > "C" EXIT ENDIF CASE MOHALT = "D" IF LEFT(IND,1) > "D" EXIT ENDIF CASE MOHALT = "E" IF LEFT(IND,1) >'E' EXIT ENDIF CASE MOHALT = "F" IF LEFT(IND,1) >'F' EXIT ENDIF CASE MOHALT = "G" IF LEFT(IND,1) >'G' EXIT ENDIF CASE MOHALT = "H" IF LEFT(IND,1) >'H' EXIT ENDIF CASE MOHALT = "I" IF LEFT(IND,1) >'I' EXIT ENDIF CASE MOHALT = "J" IF LEFT(IND,1) >'J' EXIT ENDIF CASE MOHALT = "K" IF LEFT(IND,1) >'K' EXIT ENDIF CASE MOHALT = "L" IF LEFT(IND,1) >'L' EXIT ENDIF CASE MOHALT = "M" IF LEFT(IND,1) >'M' EXIT ENDIF CASE MOHALT = "N" IF LEFT(IND,1) >'N' EXIT ENDIF CASE MOHALT = "O" IF LEFT(IND,1) >'O' EXIT ENDIF CASE MOHALT = "P" IF LEFT(IND,1) >'P' EXIT ENDIF CASE MOHALT = "Q" IF LEFT(IND,1) >'Q' EXIT ENDIF CASE MOHALT = "R" IF LEFT(IND,1) >'R' EXIT ENDIF CASE MOHALT = "S" IF LEFT(IND,1) >'S' EXIT ENDIF CASE MOHALT = "T" IF LEFT(IND,1) >'T' EXIT ENDIF CASE MOHALT = "U" IF LEFT(IND,1) >'U' EXIT ENDIF CASE MOHALT = "V" IF LEFT(IND,1) >'V' EXIT ENDIF CASE MOHALT = "W" IF LEFT(IND,1) >'W' EXIT ENDIF CASE MOHALT = "X" IF LEFT(IND,1) >'X' EXIT ENDIF CASE MOHALT = "Y" IF LEFT(IND,1) >'Y' EXIT ENDIF CASE MOHALT = "Z" IF LEFT(IND,1) >'Z' EXIT ENDIF * kap + kap 2x hoofdletter CASE MOHALT = "99" IF LEFT(IND,2) > MXANTW EXIT ENDIF ENDCASE ENDDO * IF .NOT. MOREGEL ? ' ' ENDIF ? '' RETURN * *----------------------------------------------------------------------------* * Fsrt.PRG * FUNKTIONS: de soortcode lijsten maken, All Sub-Categories * - in English * - in Dutch *----------------------------------------------------------------------------* * nieuw 01-05-2010 * V 08-10-2010 MXINHPICSDIR * v 07-11-2010 bug subcat fout in google xml lijst * V 09-11-2010 bug leeg veld overstaan *----------------------------------------------------------------------------* PROCEDURE FSRT LOCAL SRTNAAM, SRLIJST, SRTLIST SRTNAAM = 'All Sub-Categories' && title / header SRTLIJST = "subcat.htm" && outputnaam SRTLIST = LOWER(MXHOOFDDIR+SRTLIJST) SET CONS OFF * ---------------- * lijst header * ---------------- SET ALTERNATE TO (SRTLIST) SET ALTERNATE ON DO FDOCTYPE WITH "IFM" ? ''+SRTNAAM+'' ? '' ? '' ? '' ? '' ? '
' ? '
' ? '' ? '' ? '' ? '' ? '' ? ' ' ? '' ? '' ? '' ? ' ' ? ' ' ? '' ? '' ? '' ? '' ? '' ? '' ? '' ? '' DO FWWWKAP WITH "INHPICS" ?? '
' ? '
' ? '
' ? '' ? '' ? '
' ? '
' ? '' ? '' ? '' SELECT SOORT SET ORDER TO TAG EN GO TOP DO WHILE .NOT. EOF() IF .NOT. EMPTY(EN) ? '','') ELSE SKIP LOOP ENDIF SKIP IF EOF() ? '' EXIT ELSE ? '','') SKIP IF EOF() EXIT ENDIF ENDIF ENDDO ?? '
'+TRIM(EN)+IIF(EMPTY(LNK),' [ '+LOWER(TRIM(LNK))+'.htm ]  
'+TRIM(EN)+IIF(EMPTY(LNK),' 
[ '+LOWER(TRIM(LNK))+'.htm ]


' * ? '' ? '' ? '' SET ORDER TO TAG SRT GO TOP DO WHILE .NOT. EOF() ? '','[ '+TRIM(NL)+' ]') SKIP IF EOF() ?? '
'+SRT+''+IIF(EMPTY(LNK), ' '+TRIM(NL)+'


' EXIT ENDIF ENDDO * ? ' ' ? '
' ? '
' ? 'navigation arrows' ? '' ? ' ' ? ' ' ? ' ' ? '' ? '
' ? '
' ? ' ' ? '
' DO FOODVOET ? '
' ? '
' ? '
' ? '' SET ALTERNATE OFF CLOSE ALTERNATE * * ---------------- * SIDEMAP BIJWERKEN * ---------------- * SELECT SMAP SEEK SRTLIJST IF .NOT. FOUND() GO BOTTOM APPEND BLANK REPL HAND WITH "X", NAAM WITH SRTLIST, DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ELSE REPL HAND WITH "X", DATUM WITH SUBS(DTOC(DATE()),7,4)+"-"+SUBS(DTOC(DATE()),4,2)+"-"+SUBS(DTOC(DATE()),1,2)+"T"+LEFT(TIME()+"00000",5)+"Z" ENDIF * * ---------------- * RUN NOZ * ---------------- SRTLIST = "NOZ "+SRTLIST RUN (SRTLIST) SET CONS ON RETURN * * * * *-----------------------------------------------------------------------* *-----------------------------------------------------------------------* *-----------------------------------------------------------------------* *-----------------------------------------------------------------------* *-----------------------------------------------------------------------*