AI : translating : vortaro try

[bluatigro]

vortaro is a verry simple machine translator
from Esperanto to dutch or english

the dictonary is far from complete

instructions :
choise b
and type 'malsanulej'
it shoot respond whit '[not>healt<dude]<home]'


''bluatigro 2 jun 2018
''vortaro 1.0
dim w$( 20000 ) , l$( 20 ) , r$( 20 )
global wordtel , lefttel , righttel , nederlands , english
nederlands = 1
english = 2
open "vortaro.txt" for input as #in
 wordtel = 0
 lefttel = 0
 righttel = 0
 while not( eof( #in ) )
   line input #in , q$
   a$ = word$( q$ , 1 , "," )
   if left$( a$ , 1 ) = "@" then
     l$( lefttel ) = q$
     lefttel = lefttel + 1
   else
     if right$( a$ , 1 ) = "#" then
       r$( righttel ) = q$
       righttel = righttel + 1
     else
       w$( wordtel ) = q$
       wordtel = wordtel + 1
     end if
   end if
 wend
close #in
[info]
print "bluatigro presents vortaro ."
print "a AI tranlator ."
print "a : esperanto -> nederlands ."
print "b : esperanto -> english ."
print "x : quit voratro ."
input "choise [ a , b , x ] = " ; in$
in$ = left$( lower$( in$ )  , 1 )
if instr( "abx" , in$ ) = 0 then goto [info]
select case in$
 case "a"
   call esperanto nederlands
 case "b"
   call esperanto english
 case else
   nomainwin
   end
end select
goto [info]
sub esperanto lingvo
[sekva]
 tel = 0
 input "vorto = " ; in$
 fl = 0
 voor$ = ""
 while fl = 0
   fl = 1
   for i = 0 to lefttel
     ql$ = word$( l$( i ) , 1 , "," )
     ql$ = right$( ql$ , len( ql$ ) - 1 )
     if left$( in$ , len( ql$ ) ) = ql$ then
       a$ = word$( l$( i ) , lingvo , "," )
       voor$ = voor$ + a$
       in$ = right$( in$ , len( in$ ) - len( ql$ ) )
     end if
   next i
 wend
 after$ = ""
 while fl = 0
   fl = 1
   for i = 0 to righttel
     qr$ = word$( r$( i ) , 1 , "," )
     qr$ = right$( ql$ , len( qr$ ) - 1 )
     if right$( in$ , len( qr$ ) - 1 ) = qr$ then
       a$ = word$( l$( i ) , lingvo , "," )
       achter$ = a$ + achter$
       in$ = left$( in$ , len( in$ ) - len( qr$ ) )
     end if
   next i
 wend
 tel = 0
 for i = 0 to wordtel
   esp$ = word$( q$( i ) , 1 , "," )
   uit$ = word$( q$( i ) , lingvo , "," )
   if in$ = left$( esp$ , len( in$ ) ) then
     taal$ = uit$
     tel = tel + 1
   end if
 next i
 taal$ = voor$ + taal$ + achter$
 if taal$ = "" then
   print "vorto ne en vortaro !"
   print "woord miet in wordenboek !"
   print "word not in dictonary !"
 else
   print "mi trovis " ; tel ; " vorto[j] ."
   print "ik heb " ; tel ; " word[en] gevonden ."
   print "i have " ; tel ; " word[s] found ."
   if tel = 1 then
     print taal$
   else
     input "[ j , n ] = " ; in$
     if lower$( in$ ) = "j" then goto [sekva]
   end if
 end if
end sub







Attachments:

vortaro.txt (74 B)

[bluatigro]

update :
i had my something bigger dictonary to
on a other USB stick

some things i can not translate in engish
repace the ?'s for the good words
in vortaro.txt

try :
choise b
type : 'abelejo'
it shoot answer whit : 'bee<home]<object]'
or type : 'malsanulejo'
it shoot anwer whit : '[not>healty<dude]<home]<object]'
or type : fiulacxo
if shoot anwer whit : '[bad><dude]<ugly]<object]'

Attachments:

vortaro.txt (1.93 KB)

[bluatigro]

update :
vortaro is cutting the before and back part's

error :
i get strage results whit the test word 'malsanulejo'
but i get something


''bluatigro 2 jun 2018
''vortaro 1.0
dim w$( 20000 ) , l$( 20 ) , r$( 40 )
global wordtel , lefttel , righttel , nederlands , english
nederlands = 2
english = 3
open "vortaro.txt" for input as #in
 wordtel = 0
 lefttel = 0
 righttel = 0
 while not( eof( #in ) )
   line input #in , q$
   a$ = word$( q$ , 1 , "," )
   if left$( a$ , 1 ) = "@" then
     l$( lefttel ) = q$
     lefttel = lefttel + 1
   else
     if right$( a$ , 1 ) = "#" then
       r$( righttel ) = q$
       righttel = righttel + 1
     else
       w$( wordtel ) = q$
       wordtel = wordtel + 1
     end if
   end if
 wend
close #in
[info]
print "bluatigro presents vortaro ."
print "a AI tranlator ."
print "a : esperanto -> nederlands ."
print "b : esperanto -> english ."
print "x : quit voratro ."
input "[ a , b , x ]:>" ; in$
in$ = left$( lower$( in$ )  , 1 )
if instr( "abx" , in$ ) = 0 then goto [info]
select case in$
 case "a"
   call esperanto nederlands
 case "b"
   call esperanto english
 case else
   print "[ fino vortaro ]"
   print "[ einde wordenboek ]"
   print "[ end dictonary ]"
   end
end select
goto [info]
sub esperanto lingvo
[sekva]
 tel = 0
 print "druk op return voor test woord ."
 print "push return for test word ."
 input "vorto:>" ; in$
 if in$ = "" then in$ = "malsanulejo"
 print "vorto = " ; in$
 fl = 0
 voor$ = ""
 while fl = 0
   fl = 0
   for i = 0 to lefttel
     ql$ = word$( l$( i ) , 1 , "," )
     ql$ = right$( ql$ , len( ql$ ) - 1 )
     if left$( in$ , len( ql$ ) ) = ql$ and fl = 0 then
       voor$ = voor$ + word$( l$( i ) , lingvo , "," )
       in$ = right$( in$ , len( in$ ) - len( ql$ ) )
       fl = 1
     end if
   next i
 wend
 fl = 0
 achter$ = ""
 while fl = 0
   fl = 0
   for i = 0 to righttel
     qr$ = word$( r$( i ) , 1 , "," )
     qr$ = left$( ql$ , len( qr$ ) - 1 )
     if right$( in$ , len( qr$ ) ) = qr$ and fl = 0 then
       achter$ = word$( r$( i ) , lingvo , "," ) + achter$
       in$ = left$( in$ , len( in$ ) - len( qr$ ) )
       fl = 1
     end if
   next i
 wend
 tel = 0
 for i = 0 to wordtel
   esp$ = word$( w$( i ) , 1 , "," )
   uit$ = word$( w$( i ) , lingvo , "," )
   if in$ = left$( esp$ , len( in$ ) ) then
     taal$ = uit$
     tel = tel + 1
   end if
 next i
 taal$ = voor$ + taal$ + achter$
 if taal$ = "" then
   print "vorto ne en vortaro !"
   print "woord miet in wordenboek !"
   print "word not in dictonary !"
 else
   select case lingvo
     case nederlands
       print "vertaling : "
       print taal$
     case english
       print "translation : "
       print taal$
     case else
       print "ERARO : lingvo ne en vortaro !!"
   end select
 end if
end sub


Attachments:

vortaro.txt (1.99 KB)

[bluatigro]

update :
i added new words to vortaro.txt
please look if i did it good
and replace the ?'s whit the good words

Attachments:

vortaro.txt (2.84 KB)

[tenochtitlanuk]

I've been through the missing ( or mis-spelled) English words, and with google translate added many of the missing ones. Some are unknown to Google in either Esperanto or Dutch!
I don't really know how the first part of the dictioanry text is to be used.
Since vocabulary stops at presnt at 'san', I'm not sure why the test word is not in the dictionary..
I'll be interested to see hoe far this program gets. Translation is hard- even for people like me who enjoy other languages for how they can alter how you interpret the world.
@bo,[schoon>,[in_law>
@dis,[uiteen>,[dis?>
@eks,[ex>,[ex>
@ek,[start>,[start>
@fi,[slecht>,[bad>
@ge,[m+v>,[m+v>
@mal,[niet>,[not>
@mis,[onjust>,[false>
@pra,[oer>,[pra?>
@re,[opnieuw>,[again>
acx#,<lelijk],<ugly]
ad#,<voorduured],<repeat]
aj#,<ding],<object]
an#,<lid],<member]
ar#,<verzameling],<collection]
as#,<nu_tijd],<now_time]
cxj#,<m+tje],<cxj?]
ebl#,<mogelijk],<possible]
ec#,<abstact],<ec?]
eg#,<groot],<big]
ej#,<home],<house]
em#,<gewoonte],<used_to]
end#,<moet],<must]
er#,<deeltje],<part]
estr#,<baas],<boss]
et#,<tje],<litle]
i#,<WW],<TO_]
id#,<kind],<child]
ig#,<maken],<make]
igx#,<worden],<become]
il#,<gereedschap],<tool]
in#,<vrouw],<woman]
ind#,<waardig],<dignity]
ing#,<houder_1x],<holder_1x]
ism#,<leer],<ism?]
ist#,<beroep],<occupation]
is#,<verleden_tijd],<past_time]
i#,<WW],<TO_]
os#,<toekomst_tijd],<future_time]
o#,<ding],<object]
nj#,<v+tje],<nj?]
uj#,<houderNx],<holder_Nx]
us#,<_tijd],<_time]
um#,<onbekend],<unknown]
u#,<bevel],<order]
abel,bij,bee
abon,aboneren,subscription
acxet,koop,buy
adapt,aanpasen,adapt?
adiaux,vaarwel,goodbye
admir,bewonder,admire
adres,adres,address
aer,lucht,air
afabla,vriendelijk,frendly
afer,zaak,case
afrank,frankeren,I'm_sorry
ag,handelen,act
agrabl,aangenaam,pleasant
agx,leeftijd,age
aidis,aids,aids
ajl,knoflook,garlic
ajn,dan_ook,then_also
akcel,versnellen,speedup
akcept,aanemen,accept
akir,verkrijgen,get
akompan,vergezellen,company
akord,overeenstemming,agreement
akr,scherp,sharp
aks,as/spil,axle
activ,actief,active
akrat,op_tijd,on_time
akvo,water,water
al,naar/aan,to
almenaux,tenminste,at_least
alta,hoog,high
altern,afwisselen,alternating
alernativ,alternatief,alternative
alud,zinspelen,remark
am,liefhebben,love
amas,menigte,crowd
anbaux,beide,both
amik,vriend,friend
ampleks,omvangrijk,large
amuz,vermaken,fun
angul,hoek,angle
angxel,engel,anxiety
anim,ziel/geest,soul/spirit
ankaux,ook,too
ankoraux,nog,yet
anonc,aankondigen,announce
anstataux,in_plaats_van,in_place_of
antaux,voor,before
aspekt,eruitzien,appearance
atak,aanval,attack
atenc,aanslag,?
atend,verwacht,wait
atent,opmerkzaam,?
atest,getuig,wignes
ating,bekrijken,?
aux,of,or
auxd,hoor,hear
auxskult,luister_naar,listen_to
auxto,auto,car
auxtobus,bus,bus
auxtum,herfst,autumn
av,grootvader,granddad
avar,gierig,stingy
aventur,aventuur,adventure
avent,waarschuw,warning
babil,babel,babel
bak,bak,cook
bala,veeg,sweep
balbut,stotter,stutter
baldaux,spoedig,soon
ban,baden,bath
banan,banaan,banana
bank,[geld]bank,[money]bank
bar,versper,block
barb,baard,beard
barel,ton,barrel
baston,stok,stick
bat,slaan,hit
batal,vecht,battle
baz,basis,base
bazaro,markt,market
beb,baby,baby
bedauxr,betreur,regret
bek,snavel,beaqk
bel,fraai,nice
ben,zegen,blessing
benk,[zit]bank,[sit]bench
best,dier,animal
bezon,nodig_heb,need_have
bicikl,fiets,bike
bien,landgoed,estate
bild,plaatje,bild
bilet,kaartje,tiket
san,gezond,healthy

[bluatigro]

thanks for help

i have dislexya hence the typo's
even in Esperanto [ whitch is fonetic ] i make typo's

i been doing Esperanto for many years now
it altered my look on language's

so every time i make a language AI system
i use Esperanto

i espesialy like the 'surfiksoj' [ ek , mal etc... ]
whitch you can use as everything you like :

eku Esperanton !!

[tenochtitlanuk]

I'm ashamed many english-speakers miss out on a lot by never bothering to learn any other languages properly. Part of learning other languages is to realise and appreciate other world-views and traditions. Never tried esperanto, but appreciate it's aims! And yes, qualifying suffixes ( ek, mal, ...) are a good idea.

Coding languages also teach us new ways to view things. wikipedia- loglan was an attempt to see if a logical language would improve people's ability to think logically and correctly...

[bluatigro]

update :
try whit replstr$()

error :
replstr$() is not good jet


''bluatigro 29 jan 2019
''vortaro 3.0
dim w$( 20000 ) , l$( 20 ) , r$( 40 )
global wordtel , nederlands , english
nederlands = 2
english = 3
open "vortaro-2.txt" for input as #in
 wordtel = 0
 while not( eof( #in ) )
   line input #in , q$
   w$( wordtel ) = q$
   wordtel = wordtel + 1
 wend
close #in
[info]
print "bluatigro presents vortaro ."
print "a AI tranlator ."
print "a : esperanto -> nederlands ."
print "b : esperanto -> english ."
print "x : quit voratro ."
input "[ a , b , x ]:>" ; in$
in$ = left$( lower$( in$ )  , 1 )
if instr( "abx" , in$ ) = 0 then goto [info]
select case in$
 case "a"
   call esperanto nederlands
 case "b"
   call esperanto english
 case else
   print "[ fino vortaro ]"
   print "[ einde wordenboek ]"
   print "[ end dictonary ]"
   end
end select
goto [info]
function replstr$( in$ , old$ , new$ )
 do
   i = instr( in$ , old$ , i + 1 )
   if i then
     in$ = left$( in$ , i - 1 ) _
         ; new$ ; mid$( in$ , i + len( old$ ) )
     i = i + len( new$ ) - 1
   end if
 loop until i = 0
 replstr$ = in$
end function

sub esperanto lingvo
[sekva]
 tel = 0
 print "druk op return voor test woord ."
 print "push return for test word ."
 input "vorto:>" ; in$
 if in$ = "" then in$ = "malsanulejo"
 print "vorto = " ; in$
 for i = 0 to lefttel
   old$ = word$( w$( i ) , 1 , "," )
   new$ = word$( w$( i ) , lingvo , "," )
   in$ = replstr$( in$ , old$ , new$ )
 next i
 select case lingvo
   case nederlands
     print "vertaling : "
     print in$
   case english
     print "translation : "
     print in$
   case else
     print "ERARO : lingvo ne en vortaro !!"
 end select
end sub



Attachments:

vortaro-2.txt (2.75 KB)