Gebruiker:Marcel coenders/woordopzoek programma in open office basic

Uit WikiWoordenboek

Dit bestand is gelicenseerd onder de Creative Commons-licentie Naamsvermelding-Gelijk delen 3.0 Unported Naamsvermelding: Marcel Coenders De gebruiker mag: Delen – het werk kopiëren, verspreiden en doorgeven Remixen – afgeleide werken maken Onder de volgende voorwaarden: Naamsvermelding – De gebruiker dient bij het werk de door de maker of de licentiegever opgegeven naam te vermelden (maar niet zodanig dat de indruk gewekt wordt dat zij daarmee instemmen met uw werk of uw gebruik van het werk). Gelijk delen – Indien de gebruiker het werk bewerkt kan het daaruit ontstane werk uitsluitend worden verspreid krachtens dezelfde licentie als de onderhavige licentie, een gelijksoortige of een compatible licentie.


Het programma werkt als volgt als Open office Basic Macro Dit programma is public domain door Marcellinus Gerardus Maria Coenders gemaakt en verzonnen en mag alleen onder gelijke voorwaarden worden verspreid

er staat een tekst file in de directionary "c:\basic\tekst naar spraak\ met de naam = "noordzee gas" Er worden diverse files van gemaakt

  • een file met links naar wikiwoordenboek
  • een file met links naar woorden.org
  • een file met links naar bla.la (engelse vertalingen)
  • een file met links naar synoniemen.net
  • een file waarbij alle verschillende woorden achtereenvolgens worden voorgelezen d.m.v. Autohotkey
  • tevens worden files gemaakt met frequentie verdeling van de in de tekst voorkomende woorden


daarnaast wordt er één file gemaakt waarbij de eerste 5 letters van het woord een link bevatten naar verschillende sites

  • letter 1 van woord = uitspraak
  • letter 2 van woord = inhoud wikiwoordenboek
  • letter 3 van woord = inhoud bab.la engelstalig woordenboek
  • letter 4 van woord = inhoud synoniemen net en via die site heel veel andere verwijzingen
  • letter 5 (en verder) van woord = inhoud woordenorg
REM  *****  BASIC  *****

Sub Main

REM  *****  BASIC  *****

Sub Main

naam = "vakantie"
positievelijst = "signaalwoorden"

'maken van de html files
open "c:\basic\tekst naar spraak\"+naam+".txt" for input as #1
open "c:\basic\tekst naar spraak\"+naam+" wikiwoordenboek.html" for output as #2
open "c:\basic\tekst naar spraak\"+naam+" woordenorg.html" for output as #3
open "c:\basic\tekst naar spraak\"+naam+" engels.html" for output as #4
open "c:\basic\tekst naar spraak\"+naam+" keuze.html" for output as #5
open "c:\basic\tekst naar spraak\"+naam+" leerwoorden.txt" for output as #7
open "c:\basic\tekst naar spraak\"+naam+" synoniem.html" for output as #9

print #2, "<BODY BGCOLOR=";chr(34);"#FFFFFF";chr(34);" TEXT=";chr(34);"#000000";chr(34);" LINK=";chr(34);"#000000";chr(34);" VLINK=";chr(34);"#FF0000";chr(34);" ALINK=";chr(34);"#FF0000";chr(34);">"
print #3, "<BODY BGCOLOR=";chr(34);"#FFFFFF";chr(34);" TEXT=";chr(34);"#000000";chr(34);" LINK=";chr(34);"#000000";chr(34);" VLINK=";chr(34);"#FF0000";chr(34);" ALINK=";chr(34);"#FF0000";chr(34);">"
print #4, "<BODY BGCOLOR=";chr(34);"#FFFFFF";chr(34);" TEXT=";chr(34);"#000000";chr(34);" LINK=";chr(34);"#000000";chr(34);" VLINK=";chr(34);"#FF0000";chr(34);" ALINK=";chr(34);"#FF0000";chr(34);">"
print #5, "<BODY BGCOLOR=";chr(34);"#FFFFFF";chr(34);" TEXT=";chr(34);"#000000";chr(34);" LINK=";chr(34);"#000000";chr(34);" VLINK=";chr(34);"#FF0000";chr(34);" ALINK=";chr(34);"#FF0000";chr(34);">"
print #9, "<BODY BGCOLOR=";chr(34);"#FFFFFF";chr(34);" TEXT=";chr(34);"#000000";chr(34);" LINK=";chr(34);"#000000";chr(34);" VLINK=";chr(34);"#FF0000";chr(34);" ALINK=";chr(34);"#FF0000";chr(34);">"


print #5, "<i><b>UITLEG<br></b><br>In deze tekst zijn alle letters van alle woorden 'aanklikbaar'<br><br>"
print #5, "De eerste letter van een woord verwijst naar de <b><a href=https://commons.wikimedia.org/wiki/File:Nl-uitspraak.ogg>uitspraak</a></b> (nog wel op 'play-knopje' links boven klikken) deze link werkt niet bij alle browsers: <a href=https://en.wikipedia.org/wiki/Wikipedia:Media_help_(audio_and_video)><b>Google Chrome, Mozilla Firefox en Opera zijn wel bruikbaar.</b></a><br>"
print #5, "letter 2 van een woord verwijst naar het <b><a href=http://nl.wiktionary.org>wikiwoordenboek</a>,</b> heeft de meeste 'taal' mogelijkheden.</b><br>"
print #5, "letter 3 van een woord verwijst naar <b><a href=http://nl.bab.la/woordenboek/nederlands-engels/>bab.bla</b></a> een engelstalig woordenboek met veel voorbeeldzinnen<br>"
print #5, "letter 4 van een woord verwijst naar <b><a href=http://synoniemen.net>synoniemen.net</b></a> en via deze site naar veel andere sites zoals bijvoorbeeld <b><b><a href=http://www.vandale.nl/opzoeken/woordenboek>van Dale woordenboek</a></b><br>"
print #5, "</b>letter 5 (en volgenden) verwijst naar <b><a href=http://www.woorden.org>woordwoorden.org</b></a></b><br>"
print #5, "<br>"
print #5, "Indien een woord minder dan 5 letters bevat, worden er een of meer '<b>·</b>' achter het woord geplaatst om toch aan het aantal 'letters' te komen'</i>"

print #5, "<br><br><br><br><B>BEGIN VAN DE TEKST<BR><BR><BR><BR></B>"
while not eof (1)
line input #1,a

for x = 1 to len(a)
a1 = mid(a,x,1)
if instr ("abcdefghijklmnopqrstuvwxyzABCEDEFGHIJKLMNOPQRSTUVWXYZ|1234567890éíóúáàèìòùäëïöü",a1) <> 0 then
woord = woord + a1
else
if woord <> "" then gosub hrefmaken
woord =""
endif
if instr ("=+*-. ?!,:;'",a1) <> 0 then print #2,a1;
if instr ("=*+-. ?!,:;'",a1) <> 0 then print #3,a1;
if instr ("=*-+. ?!,:;'",a1) <> 0 then print #4,a1;
if instr ("=*-.+ ?!,:;'",a1) <> 0 then print #5,a1;
if instr ("=*-.+ ?!,:;'",a1) <> 0 then print #9,a1;
next
if woord <> "" then 
gosub hrefmaken
woord =""
endif
print #2, "<br><br>"
print #3, "<br><br>"
print #4, "<br><br>"
print #5, "<br><br>"
print #9, "<br><br>"

wend
close 1
close 2
close 3
close 4
close 5
close 7
close 9
'verkorten van leerwoorden

dim b(100000)
dim c(100000)
open "c:\basic\tekst naar spraak\"+naam+" leerwoorden.txt" for input as #7
open "c:\basic\tekst naar spraak\"+naam+" leerwoorden kort.txt" for output as #8
teller = 1
while not eof(7)

line input #7,a
woordteller = woordteller +1
juist = 0

for x = 1 to teller
if a = b(x) then 
	c(x) = c(x) + 1
	juist = 1
	x = teller
endif
next x

if juist = 0 then
teller = teller + 1
	b(teller)= a
	c(teller)= 1
	endif
wend
close 7
for x = 1 to teller
	print #8, 1000 + c(x), "[[";b(x);"]]","[[File:Nl-";b(x);".ogg]]"
next
close 8	

'maken van de woorden lijst en frequentielijst

open "c:\basic\tekst naar spraak\"+naam+".txt" for input as #1
open "c:\basic\tekst naar spraak\"+naam+" woord.txt" for output as #2
while not eof (1)
line input #1,a

for x = 1 to len(a)
a1 = mid(a,x,1)
if instr ("abcdefghijklmnopqrstuvwxyzABCEDEFGHIJKLMNOPQRSTUVWXYZ|123456789éíóúáàèìòùäëïöü",a1) <> 0 then
print #2,a1;
else
print #2, ""
endif
next
print #2, ""
wend
close 1
close 2

open "c:\basic\tekst naar spraak\"+naam+" woord.txt" for input as #2
open "c:\basic\tekst naar spraak\"+naam+" teller.txt" for output as #1
open "c:\basic\tekst naar spraak\"+naam+" haakjes.txt" for output as #4 

teller = 1
while not eof(2)

line input #2,w2
woord=w2
if left(w2,1) = "A" then w2="a"+right(woord,len(woord)-1)
if left(w2,1) = "B" then w2="b"+right(woord,len(woord)-1)
if left(w2,1) = "C" then w2="c"+right(woord,len(woord)-1)
if left(w2,1) = "D" then w2="d"+right(woord,len(woord)-1)
if left(w2,1) = "E" then w2="e"+right(woord,len(woord)-1)
if left(w2,1) = "F" then w2="f"+right(woord,len(woord)-1)
if left(w2,1) = "G" then w2="g"+right(woord,len(woord)-1)
if left(w2,1) = "H" then w2="h"+right(woord,len(woord)-1)
if left(w2,1) = "I" then w2="i"+right(woord,len(woord)-1)
if left(w2,1) = "J" then w2="j"+right(woord,len(woord)-1)
if left(w2,1) = "K" then w2="k"+right(woord,len(woord)-1)
if left(w2,1) = "L" then w2="l"+right(woord,len(woord)-1)
if left(w2,1) = "M" then w2="m"+right(woord,len(woord)-1)
if left(w2,1) = "N" then w2="n"+right(woord,len(woord)-1)
if left(w2,1) = "O" then w2="o"+right(woord,len(woord)-1)
if left(w2,1) = "P" then w2="p"+right(woord,len(woord)-1)
if left(w2,1) = "Q" then w2="q"+right(woord,len(woord)-1)
if left(w2,1) = "R" then w2="r"+right(woord,len(woord)-1)
if left(w2,1) = "S" then w2="s"+right(woord,len(woord)-1)
if left(w2,1) = "T" then w2="t"+right(woord,len(woord)-1)
if left(w2,1) = "U" then w2="u"+right(woord,len(woord)-1)
if left(w2,1) = "V" then w2="v"+right(woord,len(woord)-1)
if left(w2,1) = "W" then w2="w"+right(woord,len(woord)-1)
if left(w2,1) = "X" then w2="x"+right(woord,len(woord)-1)
if left(w2,1) = "Y" then w2="y"+right(woord,len(woord)-1)
if left(w2,1) = "Z" then w2="z"+right(woord,len(woord)-1)
if woord <>w2 then
	open "c:\basic\tekst naar spraak\hoofdletter.txt" for input as #8
	while not eof(8)
		line input #8, Hwoord
				if Hwoord = woord then
			w2 = woord
		endif
	wend
	close 8
endif
juist = 0
for x = 1 to teller
		if w2 = b(x) then 
		c(x) = c(x)+1
		juist = 1
	endif
next	
if juist = 0 then
	teller = teller +1
	b(teller) = w2
	c(teller) = 1
	endif	
wend

for x = 1 to  teller
print #1, c(x)+1000,"[[";b(x);"]]","[[File:Nl-";b(x);".ogg]]"
print #4, "[[";b(x);"]]"
next


close 1
close 2
close 4

end										
																

hrefmaken:
w1=woord

w2=woord
if left(w2,1) = "A" then w2="a"+right(woord,len(woord)-1)
if left(w2,1) = "B" then w2="b"+right(woord,len(woord)-1)
if left(w2,1) = "C" then w2="c"+right(woord,len(woord)-1)
if left(w2,1) = "D" then w2="d"+right(woord,len(woord)-1)
if left(w2,1) = "E" then w2="e"+right(woord,len(woord)-1)
if left(w2,1) = "F" then w2="f"+right(woord,len(woord)-1)
if left(w2,1) = "G" then w2="g"+right(woord,len(woord)-1)
if left(w2,1) = "H" then w2="h"+right(woord,len(woord)-1)
if left(w2,1) = "I" then w2="i"+right(woord,len(woord)-1)
if left(w2,1) = "J" then w2="j"+right(woord,len(woord)-1)
if left(w2,1) = "K" then w2="k"+right(woord,len(woord)-1)
if left(w2,1) = "L" then w2="l"+right(woord,len(woord)-1)
if left(w2,1) = "M" then w2="m"+right(woord,len(woord)-1)
if left(w2,1) = "N" then w2="n"+right(woord,len(woord)-1)
if left(w2,1) = "O" then w2="o"+right(woord,len(woord)-1)
if left(w2,1) = "P" then w2="p"+right(woord,len(woord)-1)
if left(w2,1) = "Q" then w2="q"+right(woord,len(woord)-1)
if left(w2,1) = "R" then w2="r"+right(woord,len(woord)-1)
if left(w2,1) = "S" then w2="s"+right(woord,len(woord)-1)
if left(w2,1) = "T" then w2="t"+right(woord,len(woord)-1)
if left(w2,1) = "U" then w2="u"+right(woord,len(woord)-1)
if left(w2,1) = "V" then w2="v"+right(woord,len(woord)-1)
if left(w2,1) = "W" then w2="w"+right(woord,len(woord)-1)
if left(w2,1) = "X" then w2="x"+right(woord,len(woord)-1)
if left(w2,1) = "Y" then w2="y"+right(woord,len(woord)-1)
if left(w2,1) = "Z" then w2="z"+right(woord,len(woord)-1)

if woord <>w2 then
	open "c:\basic\tekst naar spraak\hoofdletter.txt" for input as #8
	while not eof(8)
		line input #8, Hwoord
		if Hwoord = woord then
			w2 = woord
		endif
	wend
	close 8
endif

print #7, w2
open "c:\basic\tekst naar spraak\"+positievelijst+".txt" for input as #6

while not eof(6)
	line input #6, testwoord
	if testwoord = w2 then
		print #2,"*";
		print #3,"*";
		print #4,"*";
		print #5,"*";
		print #9,"*";
	endif
wend
close 6

if len(w1)<2 then w1 = w1 + right("····",(2-len(woord))
print #2, "<a href=";chr(34);"http://nl.wiktionary.org/wiki/";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";w1;"</a>";
print #3, "<a href=";chr(34);"http://www.woorden.org/woord/";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";w1;"</a>";
print #4, "<a href=";chr(34);"http://nl.bab.la/woordenboek/nederlands-engels/";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";w1;"</a>";
print #9, "<a href=";chr(34);"https://commons.wikimedia.org/wiki/File:Nl-";w2;".ogg";chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";left(w1,1);"</a>";
print #9, "<a href=";chr(34);"http://synoniemen.net/index.php?zoekterm=";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";right(w1,len(w1)-1);"</a>"




print #5, "<a href=";chr(34);"https://commons.wikimedia.org/wiki/File:Nl-";w2;".ogg";chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";left(w1,1);"</a>";
print #5, "<a href=";chr(34);"http://nl.wiktionary.org/wiki/";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";mid (w1,2,1);"</a>";
print #5, "<a href=";chr(34);"http://nl.bab.la/woordenboek/nederlands-engels/";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";mid(w1,3,1);"</a>";
print #5, "<a href=";chr(34);"http://synoniemen.net/index.php?zoekterm=";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";mid(w1,4,1);"</a>";

print #5, "<a href=";chr(34);"http://www.woorden.org/woord/";w2;chr(34);"style=";chr(34);"text-decoration:none;";chr(34);">";mid(w1,5,len(w1)-4);"</a>"

return


End Sub

Autohotkey script[bewerken]

Dit is een autohotkey script met ongeveer de gelijke functie als voorafgaande basic programma 


$numpadadd::
sendinput ^c
run, https://www.google.nl/
sleep 2000
sendinput ^v
sendinput {enter}
sleep 2000
run, http://woordenlijst.org/#/
sleep 2000
sendinput ^v
sendinput {enter}
sleep 2000
run, https://nl.wikipedia.org/wiki/Hoofdpagina
sleep 2000
sendinput {tab}^v
sendinput {enter}
sleep 2000
run, https://nl.wiktionary.org/wiki/Hoofdpagina
sleep 2000
sendinput {tab}^v
sendinput {enter}
sleep 2000
run, http://synoniemen.net/index.php?zoekterm=synoniem
sleep 2000
sendinput ^v
sendinput {enter}
sleep 2000
run, http://www.woorden.org/woord/woord
sleep 3000
sendinput ^v
sendinput {enter}
sleep 3000
return

Lemma maker[bewerken]

REM  *****  BASIC  *****

Sub Main


open "c:\werk\uploader.ahk" for output as #3

''====================================================================================================================================

samenstelling	= "xx*samenstelling van [[]] en [[]]"
woord           = ""
meervoud        = ""
kleintje        = ""
kleintjes       = ""
geslacht        = ""
betekenis       = " "
voorbeeld       = ""
betekenis2      = ""
voorbeeld2      = ""
synoniem        = ""
antoniem        = ""
wikipedia       = ""
controle        = "*"

gosub zelfstandignaamwoord


samenstelling  = "samenstelling van "
heet           = ""
hete           = ""
heter          = ""
hetere         = ""
heetst         = ""
heetste        = ""
heets          = ""	
heters         = ""
betekenis      = ""
voorbeeld      = ""
betekenis2     = ""
voorbeeld2     = ""
synoniem       = ""
antoniem       = ""
wikipedia      = ""
controle       = "*"
gosub bijvoegelijknaamwoord

samenstelling    = ""
lopen            = ""
liep             = ""
gelopen          = ""
lopend           = ""
klasse           = ""
scheid           = ""
betekenis        = ""
voorbeeld        = ""
betekenis2       = ""
voorbeeld2       = ""

gosub werkwoord



samenstelling    = ""
woord            = ""
betekenis        = ""
voorbeeld        = ""
betekenis2       = ""
voorbeeld2       = ""

gosub bijwoord


naam           = ""
naams        = ""
geslacht        = ""

gosub naam



goto einde

'{{adjcomp|p=1|{{pn}}|[[{{pn}}e]]|[[{{pn}}er]]|[[{{pn}}ere]]|[[{{pn}}st]]|[[{{pn}}ste]]|part=[[{{pn}}s]]|partcomp=[[{{pn}}ers]]}}

' [[Bestand:*|300px|thumb|right|{{pn}}]]
' <br>[[{{pn}}n]]
' {{interf|nld|-s-}}
' {{pref|nld|on-}}
' {{suff|nld|-achtig}}
'==========================================================================================================================
einde:
close 3
end




bijvoegelijknaamwoord:



if left (heet,1) = " " then heet = right(heet,len(heet)-1)
if left (hete,1) = " " then hete = right(hete,len(hete)-1)
if left (heter,1) = " " then heter = right(heter,len(heter)-1)
if left (hetere,1) = " " then hetere = right(hetere,len(hetere)-1)
if left (heetst,1) = " " then heetst = right(heetst,len(heetst)-1)
if left (heetste,1) = " " then heetste = right(heetste,len(heetst)-1)
if left (heets,1) = " " then heets = right(heets,len(heets)-1)
if left (heters,1) = " " then heters = right(heters,len(heters)-1)
for x = 1 to len (heet)
if mid (heet,x,1) = "·" then heet = left(heet,x-1)+" "+right(heet,len(heet)-x)
next x
 
for x = 1 to len (hete)
if mid (hete,x,1) = "·" then hete = left(hete,x-1)+" "+right(hete,len(hete)-x)
next x

for x = 1 to len (heter)
if mid (heter,x,1) = "·" then heter = left(heter,x-1)+" "+right(heter,len(heter)-x)
next x

for x = 1 to len (hetere)
if mid (hetere,x,1) = "·" then hetere = left(hetere,x-1)+" "+right(hetere,len(hetere)-x)
next x

for x = 1 to len (heetst)
if mid (heetst,x,1) = "·" then heetst = left(heetst,x-1)+" "+right(heetst,len(heetst)-x)
next x

for x = 1 to len (heetste)
if mid (heetste,x,1) = "·" then heetste = left(heetste,x-1)+" "+right(heetste,len(heetste)-x)
next x

for x = 1 to len (heets)
if mid (heets,x,1) = "·" then heets = left(heets,x-1)+" "+right(heets,len(heets)-x)
next x

for x = 1 to len (heters)
if mid (heters,x,1) = "·" then heters = left(heters,x-1)+" "+right(heters,len(heters)-x)
next x

c = ""
del = ""
for x = 1 to len(heet)
b = mid(heet,x,1)
d = mid(heet,x,1)
if mid (heet,x,1) = " " then b ="·"
if mid (heet,x,1) = " " then d =""
c = c + b
del = del + d
next x
afheet = c
slheet = del

c = ""
del = ""
for x = 1 to len(hete)
b = mid(hete,x,1)
d = mid(hete,x,1)
if mid (hete,x,1) = " " then b ="·"
if mid (hete,x,1) = " " then d =""
c = c + b
del = del + d
next x
afhete = c
slhete = del


c = ""
del = ""
for x = 1 to len(heter)
b = mid(heter,x,1)
d = mid(heter,x,1)
if mid (heter,x,1) = " " then b ="·"
if mid (heter,x,1) = " " then d =""
c = c + b
del = del + d
next x
afheter = c
slheter = del

c = ""
del = ""
for x = 1 to len(hetere)
b = mid(hetere,x,1)
d = mid(hetere,x,1
if mid (hetere,x,1) = " " then b ="·"
if mid (hetere,x,1) = " " then d =""
c = c + b
del = del + d
next x
afhetere = c
slhetere = del

c = ""
del = ""
for x = 1 to len(heetst)
b = mid(heetst,x,1)
d = mid(heetst,x,1)
if mid (heetst,x,1) = " " then b ="·"
if mid (heetst,x,1) = " " then d =""
c = c + b
del = del + d
next x
afheetst = c
slheetst = del
c = ""
del = ""

for x = 1 to len(heetste)
b = mid(heetste,x,1)
d = mid(heetste,x,1)
if mid (heetste,x,1) = " " then b ="·"
if mid (heetste,x,1) = " " then d =""
c = c + b
del = del + d
next x
afheetste = c
slheetste = del
c = ""
del = ""

for x = 1 to len(heets)
b = mid(heets,x,1)
d = mid(heets,x,1)
if mid (heets,x,1) = " " then b ="·"
if mid (heets,x,1) = " " then d =""
c = c + b
del = del + d
next x
afheets = c
slheets = del
c = ""
del = ""

for x = 1 to len(heters)
b = mid(heters,x,1)
d = mid(heters,x,1)
if mid (heters,x,1) = " " then b ="·"
if mid (heters,x,1) = " " then d =""
c = c + b
del = del + d
next x
afheters = c
slheters = del
c = ""
del = ""


if left(samenstelling,2) <> "xx" then
open "c:\werk\"+slheet+".txt" for output as #1

print #3, "run, c:\werk\";slheet;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slheet;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slheet
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";afheet
print #1, "{{-etym-}}"
if samenstelling <> "" then print #1, "";samenstelling
print #1, "{{adjcomp|p=1|{{pn}}|";
if slhete <> "" then print #1, "[[";slhete;"]]|";
if slhete =  "" then print #1, "|";
if slheter <> "" then print #1, "[[";slheter;"]]|";
if slheter =  "" then print #1, "|";
if slhetere <> "" then print #1, "[[";slhetere;"]]|";
if slhetere =  "" then print #1, "|";
if slheetst <> "" then print #1, "[[";slheetst;"]]|";
if slheetst =  "" then print #1, "|";
if slheetste <> "" then print #1, "[[";slheetste;"]]|";
if slheetste =  "" then print #1, "|";
if slheets <> "" then print #1, "part=[[";slheets;"]]|";
if slheets =  "" then print #1, "|";
if slheters <> "" then print #1, "partcomp=[[";slheters;"]]}}"
if slheters =  "" then print #1, "|}}"

print #1, "{{-adjc-|nld}}"
print #1, "'''{{pn}}'''"
print #1, "#"; betekenis
print #1, "{{bijv-1| ";voorbeeld;"}}"
if betekenis2 <> "" then print #1, "#"; betekenis2
if voorbeeld2 <> "" then print #1, "{{bijv-1| ";voorbeeld2;"}}"
if synoniem <> "" then print #1, "{{-syn-}}"
if synoniem <> "" then print #1, "*";synoniem
if antoniem <> "" then print #1, "{{-ant-}}"
if antoniem <> "" then print #1, "*";antoniem
if wikipedia = "j" then print #1, "{{-info-}}"

close 1
endif

if slhete <> "" then
open "c:\werk\"+slhete+".txt" for output as #1
print #3, "run, c:\werk\";slhete;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slhete;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slhete
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afhete
print #1, "{{-adjc-|0}}"
print #1, "{{nl-adjc-form|";slheet;"|decl|pos}}"
print #1, ""
close 1
endif

if slheter <> "" then
open "c:\werk\"+slheter+".txt" for output as #1
print #3, "run, c:\werk\";slheter;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slheter;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slheter
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afheter
print #1, "{{-adjc-|0}}"
print #1, "{{nl-adjc-form|";slheet;"|indecl|com}}"
print #1, ""
close 1
endif

if slhetere <> "" then
open "c:\werk\"+slhetere+".txt" for output as #1
print #3, "run, c:\werk\";slhetere;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slhetere;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slhetere
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afhetere
print #1, "{{-adjc-|0}}"
print #1, "{{nl-adjc-form|";slheet;"|decl|com}}"
print #1, ""
close 1
endif

if slheetst <> "" then
open "c:\werk\"+slheetst+".txt" for output as #1
print #3, "run, c:\werk\";slheetst;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slheetst;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slheetst
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afheetst
print #1, "{{-adjc-|0}}"
print #1, "{{nl-adjc-form|";slheet;"|indecl|sup}}"
print #1, ""
close 1
endif

if slheetste <> "" and slheetste <> "-" then
open "c:\werk\"+slheetste+".txt" for output as #1
print #3, "run, c:\werk\";slheetste;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slheetste;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slheetste
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afheetste
print #1, "{{-adjc-|0}}"
print #1, "{{nl-adjc-form|";slheet;"|decl|sup}}"
print #1, ""
close 1
endif


if slheets <> "" and slheets <> "-" then
open "c:\werk\"+slheets+".txt" for output as #1
print #3, "run, c:\werk\";slheets;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slheets;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slheets
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afheets
print #1, "{{-adjc-|0}}"
print #1, "{{nl-adjc-form|";slheet;"|part|pos}}"
print #1, "{{bijv-1|Dat is iets '''";slheets;"'''...}}"
close 1
endif

if slheters <> "" and slheters <> "-" then
open "c:\werk\"+slheters+".txt" for output as #1
print #3, "run, c:\werk\";slheters;".txt"
print #3, "sleep 5000"
print #3, "sendinput ^a^c"
print #3, "sleep 5000"
print #3, "winclose ";slheters;" - Kladblok"
print #3, "sleep 5000"
print #3, "run, https://nl.wiktionary.org/wiki/";slheters
print #3, "sleep 5000"
print #3, "sendinput !+E"
print #3, "sleep 5000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 5000"
print #3, "sendinput ^w"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afheters
print #1, "{{-adjc-|0}}"
print #1, "{{nl-adjc-form|";slheet;"|part|com}}"
print #1, "{{bijv-1|Dat is iets '''";slheters;"'''...}}"
close 1
endif

return





zelfstandignaamwoord:
print #3, "inputbox a"

if left (woord,1) = " " then woord = right(woord,len(woord)-1)
if left (meervoud,1) = " " then meervoud = right(meervoud,len(meervoud)-1)
if left (kleintje,1) = " " then kleintje = right(kleintje,len(kleintje)-1)
if left (kleintjes,1) = " " then kleintjes = right(kleintjes,len(kleintjes)-1)

if left (meervoud,1) = "*" then meervoud = woord + " " + right(meervoud,len(meervoud)-1)
if left (kleintje,1) = "*" then kleintje = woord + " " +right(kleintje, len(kleintje)-1)
if left (kleintjes,1) = "*" then kleintjes = woord + " " + right (kleintjes, len(kleintjes) -1
for x = 1 to len (woord)
if mid (woord,x,1) = "·" then woord = left(woord,x-1)+" "+right(woord,len(woord)-x)
next x
for x = 1 to len (meervoud)
if mid (meervoud,x,1) = "·" then meervoud = left(meervoud,x-1)+" "+right(meervoud,len(meervoud)-x)
next x
for x = 1 to len (kleintje)
if mid (kleintje,x,1) = "·" then kleintje = left(kleintje,x-1)+" "+right(kleintje,len(kleintje)-x)
next x
for x = 1 to len (kleintjes)
if mid (kleintjes,x,1) = "·" then kleintjes = left(kleintjes,x-1)+" "+right(kleintjes,len(kleintjes)-x)
next x

c = ""
del = ""
for x = 1 to len(kleintjes)
b = mid(kleintjes,x,1)
d = mid(kleintjes,x,1)
if mid (kleintjes,x,1) = " " then b ="·"
if mid (kleintjes,x,1) = " " then d =""
c = c + b
del = del + d
next x
afkleintjes = c
slkleintjes = del
c = ""
del = ""


for x = 1 to len(kleintje)
b = mid(kleintje,x,1)
d = mid(kleintje,x,1
if mid (kleintje,x,1) = " " then b ="·"
if mid (kleintje,x,1) = " " then d =""
c = c + b
del = del + d
next x
afkleintje = c
slkleintje = del
c = ""
del = ""


for x = 1 to len(meervoud)
b = mid(meervoud,x,1)
d = mid(meervoud,x,1)
if mid (meervoud,x,1) = " " then b ="·"
if mid (meervoud,x,1) = " " then d =""
c = c + b
del = del + d
next x
afmeervoud = c
slmeervoud = del
c = ""
del = ""

for x = 1 to len(woord)
b = mid(woord,x,1)
d = mid(woord,x,1)
if mid (woord,x,1) = " " then b ="·"
if mid (woord,x,1) = " " then d =""
c = c + b
del = del + d
next x
afwoord = c
slwoord = del
c = ""
del = ""





if left(samenstelling,2) <> "xx" then
open "c:\werk\"+slwoord+".txt" for output as #1
print #3, "run, c:\werk\";slwoord;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";slwoord;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slwoord
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"


print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";afwoord
print #1, "{{-etym-}}"
if samenstelling <> "" then print #1, samenstelling
print #1, "{{-nlnoun-|{{pn}}|";
if slmeervoud <> "" then print #1, "[[";slmeervoud;"]]|";
if slmeervoud =  "" then print #1, "|";

if slkleintje <> "" then print #1, "[[";slkleintje;"]]|";
if slkleintje =  "" then print #1, "|";
if slkleintjes <> "" then print #1, "[[";slkleintjes;"]]}}"
if slkleintjes =  "" then print #1, "|}}"

print #1, "{{-noun-|nld}}"
print #1, "'''{{pn}}'''";
if geslacht = "m" then print #1, " {{m}}"
if geslacht = "v" then print #1, " {{f}}" 
if geslacht = "mv" then print #1, " {{f}}/{{m}}" 
if geslacht = "o" then print #1, " {{n}}"
print #1, "#"; betekenis
print #1, "{{bijv-1| ";voorbeeld;"}}"
if betekenis2 <> "" then print #1, "#"; betekenis2
if voorbeeld2 <> "" then print #1, "{{bijv-1| ";voorbeeld2;"}}"
if synoniem <> "" then print #1, "{{-syn-}}"
if synoniem <> "" then print #1, "#";synoniem
if antoniem <> "" then print #1, "{{-ant-}}"
if antoniem <> "" then print #1, "*";antoniem
if wikipedia = "j" then print #1, "{{-info-}}"

close 1
endif

if slmeervoud <> "" then
open "c:\werk\"+slmeervoud+".txt" for output as #1

print #3, "run, c:\werk\";slmeervoud;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";slmeervoud;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slmeervoud
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afmeervoud
print #1, "{{-noun-|0}}"
print #1, "{{noun-pl|";slwoord;"}}"
print #1, ""
close 1
endif

if slkleintje <> "" then
open "c:\werk\"+slkleintje+".txt" for output as #1

print #3, "run, c:\werk\";slkleintje;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";slkleintje;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slkleintje
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afkleintje
print #1, "{{-noun-|0}}"
print #1, "{{noun-dim|";slwoord;"}}"
print #1, ""
close 1

endif

if slkleintjes <> "" then
open "c:\werk\"+slkleintjes+".txt" for output as #1


print #3, "run, c:\werk\";slkleintjes;".txt"
print #3, "sleep 3000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";slkleintjes;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slkleintjes
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 7000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 2000"

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "{{-syll-}}"
print #1, "*";afkleintjes
print #1, "{{-noun-|0}}"
print #1, "{{noun-dim-pl|";slwoord;"}}"
print #1, ""
close 1
endif

return

werkwoord:
print #3, "inputbox a"

c = ""
del = ""
for x = 1 to len(lopen)
b = mid(lopen,x,1)
d = mid(lopen,x,1)
if mid (lopen,x,1) = " " then b ="·"
if mid (lopen,x,1) = " " then d =""
c = c + b
del = del + d
next x
aflopen = c
sllopen = del
c = ""
del = ""

c = ""
del = ""
for x = 1 to len(liep)
b = mid(liep,x,1)
d = mid(liep,x,1)
if mid (liep,x,1) = " " then b ="·"
if mid (liep,x,1) = " " then d =""
if mid (liep,x,1) = "-" then d =" "
if mid (liep,x,1) = "-" then b =" "
c = c + b
del = del + d
next x
afliep = c
slliep = del
c = ""
del = ""

c = ""
del = ""
for x = 1 to len(gelopen)
b = mid(gelopen,x,1)
d = mid(gelopen,x,1)
if mid (gelopen,x,1) = " " then b ="·"
if mid (gelopen,x,1) = " " then d =""
c = c + b
del = del + d
next x
afgelopen = c
slgelopen = del
c = ""
del = ""

c = ""
del = ""
for x = 1 to len(lopend)
b = mid(lopend,x,1)
d = mid(lopend,x,1)
if mid (lopend,x,1) = " " then b ="·"
if mid (lopend,x,1) = " " then d =""
c = c + b
del = del + d
next x
aflopend = c
sllopend = del
c = ""
del = ""



if left(samenstelling,2) <> "xx" then
print #3, "run, c:\werk\";sllopen;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";sllopen;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";sllopen
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"

open "c:\werk\"+sllopen+".txt" for output as #1
print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";aflopen
print #1, "{{-etym-}}"
if samenstelling <> "" then print #1, samenstelling

print #1, "{{-verb-|nld}}"
print #1, "'''{{pn}}'''"
print #1, "{{-nlstam-|{{pn}}|[[";slliep;"]]|[[";slgelopen;"]]|k=";klasse;"|scheid=";scheid;"}}"
print #1, "#"; betekenis
print #1, "{{bijv-1| ";voorbeeld;"}}"
if betekenis2 <> "" then print #1, "#"; betekenis2
if voorbeeld2 <> "" then print #1, "{{bijv-1| ";voorbeeld2;"}}"


close 1
endif


if slliep <> "" then

print #3, "run, c:\werk\";slliep;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";slliep;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slliep
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"

open "c:\werk\"+slliep+".txt" for output as #1
print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";afliep
print #1, "{{-verb-|0}}"
print #1, "{{ovt-enk|";sllopen;"}}"
close 1
endif


if slgelopen <> "" then



print #3, "run, c:\werk\";slgelopen;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";slgelopen;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slgelopen
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"



open "c:\werk\"+slgelopen+".txt" for output as #1
print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";afgelopen
print #1, "{{-verb-|0}}"
print #1, "{{volt-d|";sllopen;"}}"
close 1
endif


if sllopend <> "" then

print #3, "run, c:\werk\";sllopend;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 1000"
print #3, "winclose ";sllopend;" - Kladblok"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";sllopend
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"

open "c:\werk\"+sllopend+".txt" for output as #1
print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";aflopend
print #1, "{{-verb-|0}}"
print #1, "{{onv-d|";sllopen;"}}"
close 1
endif
return

bijwoord:
print #3, "inputbox a"

c = ""
del = ""
for x = 1 to len(woord)
b = mid(woord,x,1)
d = mid(woord,x,1)
if mid (woord,x,1) = " " then b ="·"
if mid (woord,x,1) = " " then d =""
c = c + b
del = del + d
next x
afwoord = c
slwoord = del
c = ""
del = ""


print #3, "run, c:\werk\";slwoord;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slwoord
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"



open "c:\werk\"+slwoord+".txt" for output as #1
print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";afwoord
print #1, "{{-etym-}}"
if samenstelling <> "" then print #1, "*samenstelling van ";samenstelling

print #1, "{{-adverb-|nld}}"
print #1, "'''{{pn}}'''"
print #1, "#"; betekenis
print #1, "{{bijv-1| ";voorbeeld;"}}"
if betekenis2 <> "" then print #1, "#"; betekenis2
if voorbeeld2 <> "" then print #1, "{{bijv-1| ";voorbeeld2;"}}"

close 1



return


naam:
print #3, "inputbox a"

c = ""
del = ""
for x = 1 to len(naam)
b = mid(naam,x,1)
d = mid(naam,x,1)
if mid (naam,x,1) = " " then b ="·"
if mid (naam,x,1) = " " then d =""
c = c + b
del = del + d
next x
afnaam = c
slnaam = del
c = ""
del = ""

c = ""
del = ""
for x = 1 to len(naams)
b = mid(naams,x,1)
d = mid(naams,x,1)
if mid (naams,x,1) = " " then b ="·"
if mid (naams,x,1) = " " then d =""
c = c + b
del = del + d
next x
afnaams = c
slnaams = del


print #3, "run, c:\werk\";slnaam;".txt"
print #3, "sleep 1000"
print #3, "sendinput ^a^c"
print #3, "sleep 3000"
print #3, "run, https://nl.wiktionary.org/wiki/";slnaam
print #3, "sleep 3000"
print #3, "sendinput !+E"
print #3, "sleep 3000"
print #3, "sendinput {tab}^{end}"
print #3, "sendinput ^v"
print #3, "sendinput !+S"
print #3, "sleep 3000"



open "c:\werk\"+slnaam+".txt" for output as #1
print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*";afnaam
print #1, "{{-nlname-|{{pn}}|[[";slnaams;"]]}}"
print #1, "{{-name-|nld}}"
print #1, "'''{{pn}}''' ";
if geslacht = "m" then print #1, "{{m}}"
if geslacht = "m" then print #1, "#{{naam-m|nld}} jongensnaam"
if geslacht = "v" then print #1, "{{f}}"
if geslacht = "v" then print #1, "#{{naam-f|nld}} meisjesnaam"
if geslacht = "mv" then print #1, "{{m}} {{f}}" 
if geslacht = "mv" then print #1, "#{{naam-m|nld}} jongensnaam"
if geslacht = "mv" then print #1, "#{{naam-f|nld}} meisjesnaam"


close 1
open "c:\werk\"+slnaams+".txt" for output as #1

print #1, "{{=nld=}}"
print #1, "{{-pron-}}"
print #1, "*{{sound}}: {{audio|nl-{{pn}}.ogg|{{pn}}|nld}}"
print #1, "<!--*{{WikiW|IPA}}: {{IPA|/xxxx/|nld}}-->"
print #1, "{{-syll-}}"
print #1, "*"; afnaams
print #1, "{{-name-|0}}"
if geslacht = "m" then print #1, "{{pn}} {{m}}"
if geslacht = "v" then print #1, "{{pn}} {{f}}"
if geslacht = "mv" then print #1, "{{pn}} {{m}} {{f}}"
print #1, "#{{nv.gen}} van [["; naam; "]]"
print #1, "[[Categorie:Eigennaamsvorm in het Nederlands]]"
close 1

return



End Sub

">

Overgenomen van "https://nl.wiktionary.org/w/index.php?title=Gebruiker:Marcel_coenders/woordopzoek_programma_in_open_office_basic&oldid=4753301"