Abbreviations, automatic: Difference between revisions

=={{header|PureBasic}}==

<lang PureBasic>EnableExplicit

#TZ="|"

#FZ="@"

#WORD_SEPARATOR=Chr(32)

Declare.i abbreviations(txt.s)

Define dataset.s, line_number.i, line_cache.s, result.i, word_index.i, word.s

If OpenConsole("abbreviations-automatic") And ReadFile(0,"./Data/days_of_the_week.txt")

dataset=ReadString(0,#PB_UTF8|#PB_File_IgnoreEOL) : CloseFile(0)

line_number=1

Repeat

line_cache=StringField(dataset,line_number,#LF$)

If Len(line_cache)=0

PrintN("")

Else

result=abbreviations(line_cache) : PrintN(RSet(Str(result),3)+": "+line_cache)

word_index=1

word=StringField(line_cache,word_index,#WORD_SEPARATOR)

If word : Print(Space(5)) : EndIf

While word

Print(LSet(Left(word,result),Len(word)+1))

word_index+1 : word=StringField(line_cache,word_index,#WORD_SEPARATOR)

Wend

PrintN("")

EndIf

line_number+1

Until line_number>CountString(dataset,#LF$)

Input()

EndIf

Procedure.b CompareLetters(sfield.s,letters.i,separator.s=#WORD_SEPARATOR)

Define word_index.i, buf.s

For word_index=1 To CountString(sfield,separator)+1

buf+LSet(Left(StringField(sfield,word_index,separator),letters),letters,#FZ)+#TZ

Next

For word_index=1 To CountString(buf,#TZ)

If CountString(buf,StringField(buf,word_index,#TZ))>1 : ProcedureReturn #True : EndIf

Next

ProcedureReturn #False

EndProcedure

Procedure.i abbreviations(txt.s)

Define letters.i=1

While CompareLetters(txt,letters) : letters+1 : Wend

ProcedureReturn letters

EndProcedure</lang>

{{out}}

<pre style="height:45ex"> 2: Sunday Monday Tuesday Wednesday Thursday Friday Saturday

Su Mo Tu We Th Fr Sa

2: Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag

So Ma Di Wo Do Vr Sa

4: E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë

E_dj E_hë E_ma E_më E_en E_pr E_sh

2: Ehud Segno Maksegno Erob Hamus Arbe Kedame

Eh Se Ma Er Ha Ar Ke

5: Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit

Al_Ah Al_It Al_Th Al_Ar Al_Ka Al_Go Al_Sa

4: Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat

Guir Yerg Yere Tcho Hink Ourp Shap

2: domingu llunes martes miércoles xueves vienres sábadu

do ll ma mi xu vi sá

2: Bazar_gÜnÜ Birinci_gÜn Çkinci_gÜn ÜçÜncÜ_gÜn DÖrdÜncÜ_gÜn Bes,inci_gÜn Altòncò_gÜn

Ba Bi Çk Üç DÖ Be Al

6: Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat

Igande Astele Astear Asteaz Ostegu Ostira Larunb

4: Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar

Robi Shom Mong Budh BRih Shuk Shon

2: Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota

Ne Po Ut Sr Cx Pe Su

5: Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn

Disul Dilun Dimeu Dimer Diria Digwe Disad

2: nedelia ponedelnik vtornik sriada chetvartak petak sabota

ne po vt sr ch pe sa

12: sing_kei_yaht sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk

sing_kei_yah sing_kei_yat sing_kei_yee sing_kei_saa sing_kei_sie sing_kei_ng sing_kei_luk

4: Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte

Dium Dill Dima Dime Dijo Dive Diss

16: Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_nah_kay_dzeeneh Tah_neesee_dzeehn_neh Deehn_ghee_dzee-neh Tl-oowey_tts el_dehlee Dzeentt-ahzee

Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh_ Tah_neesee_dzeeh Deehn_ghee_dzee- Tl-oowey_tts-el_ Dzeentt-ahzee

6: dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn

dy_Sul dy_Lun dy_Meu dy_Mer dy_You dy_Gwe dy_Sad

2: Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi

Di Le Ma Mè Je Va Sa

2: nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota

ne po ut sr cx pe su

2: nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota

ne po út st c^ pá so

2: Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee

So Mo Ti Wa TO Fe Sa

2: s0ndag mandag tirsdag onsdag torsdag fredag l0rdag

s0 ma ti on to fr l0

2: zondag maandag dinsdag woensdag donderdag vrijdag zaterdag

zo ma di wo do vr za

2: Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato

Di Lu Ma Me ^J Ve Sa

1: pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev

p e t k n r l

7: Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata

Diu_pri Diu_seq Diu_tri Diu_qua Diu_qui Diu_sex Diu_sab

2: sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur

su má tÿ mi hó fr le

2: Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh

Ye Do Se Ch Pa Jo Sh

2: sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai

su ma ti ke to pe la

2: dimanche lundi mardi mercredi jeudi vendredi samedi

di lu ma me je ve sa

4: Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon

Snei Moan Tiis Woan Tone Free Sneo

2: Domingo Segunda_feira Martes Mércores Joves Venres Sábado

Do Se Ma Mé Jo Ve Sá

2: k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati

k' or sa ot kh p' sh

2: Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag

So Mo Di Mi Do Fr Sa

2: Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato

Ki De Tr Te Pe Pa Sa

3: ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar

rav som man bud gur shu sha

6: pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono

pópule pó`aka pó`alu pó`ako pó`ahá pó`ali pó`aon

7: Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat

Yom_ris Yom_she Yom_shl Yom_rev Yom_cha Yom_shi Shabat

3: ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar

rav som man bud bra shu sha

3: vasárnap hétfö kedd szerda csütörtök péntek szombat

vas hét ked sze csü pén szo

2: Sunnudagur Mánudagur ╞riδjudagur Miδvikudagar Fimmtudagur FÖstudagur Laugardagur

Su Má ╞r Mi Fi FÖ La

2: sundio lundio mardio merkurdio jovdio venerdio saturdio

su lu ma me jo ve sa

3: Minggu Senin Selasa Rabu Kamis Jumat Sabtu

Min Sen Sel Rab Kam Jum Sab

2: Dominica Lunedi Martedi Mercuridi Jovedi Venerdi Sabbato

Do Lu Ma Me Jo Ve Sa

4: Dé_Domhnaigh Dé_Luain Dé_Máirt Dé_Ceadaoin Dé_ardaoin Dé_hAoine Dé_Sathairn

Dé_D Dé_L Dé_M Dé_C Dé_a Dé_h Dé_S

2: domenica lunedí martedí mercoledí giovedí venerdí sabato

do lu ma me gi ve sa

2: Nichiyou_bi Getzuyou_bi Kayou_bi Suiyou_bi Mokuyou_bi Kin'you_bi Doyou_bi

Ni Ge Ka Su Mo Ki Do

1: Il-yo-il Wol-yo-il Hwa-yo-il Su-yo-il Mok-yo-il Kum-yo-il To-yo-il

I W H S M K T

7: Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni

Dies_Do Dies_Lu Dies_Ma Dies_Me Dies_Io Dies_Ve Dies_Sa

3: sve-tdien pirmdien otrdien tresvdien ceturtdien piektdien sestdien

sve pir otr tre cet pie ses

2: Sekmadienis Pirmadienis Antradienis Trec^iadienis Ketvirtadienis Penktadienis S^es^tadienis

Se Pi An Tr Ke Pe S^

3: Wangu Kazooba Walumbe Mukasa Kiwanuka Nnagawonye Wamunyi

Wan Kaz Wal Muk Kiw Nna Wam

12: xing-_qi-_rì xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù

xing-_qi-_rì xing-_qi-_yi xing-_qi-_èr xing-_qi-_sa xing-_qi-_sì xing-_qi-_wu xing-_qi-_li

3: Jedoonee Jelune Jemayrt Jecrean Jardaim Jeheiney Jesam

Jed Jel Jem Jec Jar Jeh Jes

3: Jabot Manre Juje Wonje Taije Balaire Jarere

Jab Man Juj Won Tai Bal Jar

5: geminrongo minòmishi mártes mièrkoles misheushi bèrnashi mishábaro

gemin minòm márte mièrk mishe bèrna mishá

2: Ahad Isnin Selasa Rabu Khamis Jumaat Sabtu

Ah Is Se Ra Kh Ju Sa

2: sφndag mandag tirsdag onsdag torsdag fredag lφrdag

sφ ma ti on to fr lφ

7: lo_dimenge lo_diluns lo_dimarç lo_dimèrcres lo_dijòus lo_divendres lo_dissabte

lo_dime lo_dilu lo_dima lo_dimè lo_dijò lo_dive lo_diss

4: djadomingo djaluna djamars djarason djaweps djabièrna djasabra

djad djal djam djar djaw djab djas

2: Niedziela Poniedzial/ek Wtorek S,roda Czwartek Pia,tek Sobota

Ni Po Wt S, Cz Pi So

3: Domingo segunda-feire terça-feire quarta-feire quinta-feire sexta-feira såbado

Dom seg ter qua qui sex såb

1: Domingo Lunes martes Miercoles Jueves Viernes Sabado

D L m M J V S

2: Duminicª Luni Mart'i Miercuri Joi Vineri Sâmbªtª

Du Lu Ma Mi Jo Vi Sâ

2: voskresenie ponedelnik vtornik sreda chetverg pyatnitsa subbota

vo po vt sr ch py su

4: Sunday Di-luain Di-màirt Di-ciadain Di-ardaoin Di-haoine Di-sathurne

Sund Di-l Di-m Di-c Di-a Di-h Di-s

2: nedjelja ponedjeljak utorak sreda cxetvrtak petak subota

ne po ut sr cx pe su

5: Sontaha Mmantaha Labobedi Laboraro Labone Labohlano Moqebelo

Sonta Mmant Labob Labor Labon Laboh Moqeb

2: Iridha- Sandhudha- Anga.haruwa-dha- Badha-dha- Brahaspa.thindha- Sikura-dha- Sena.sura-dha-

Ir Sa An Ba Br Si Se

2: nedel^a pondelok utorok streda s^tvrtok piatok sobota

ne po ut st s^ pi so

2: Nedelja Ponedeljek Torek Sreda Cxetrtek Petek Sobota

Ne Po To Sr Cx Pe So

2: domingo lunes martes miércoles jueves viernes sábado

do lu ma mi ju vi sá

2: sonde mundey tude-wroko dride-wroko fode-wroko freyda Saturday

so mu tu dr fo fr Sa

7: Jumapili Jumatatu Jumanne Jumatano Alhamisi Ijumaa Jumamosi

Jumapil Jumatat Jumanne Jumatan Alhamis Ijumaa Jumamos

2: söndag måndag tisdag onsdag torsdag fredag lordag

sö må ti on to fr lo

2: Linggo Lunes Martes Miyerkoles Huwebes Biyernes Sabado

Li Lu Ma Mi Hu Bi Sa

6: Lé-pài-jít Pài-it Pài-jï Pài-sañ Pài-sì Pài-gÖ. Pài-lák

Lé-pài Pài-it Pài-jï Pài-sa Pài-sì Pài-gÖ Pài-lá

7: wan-ar-tit wan-tjan wan-ang-kaan wan-phoet wan-pha-ru-hat-sa-boh-die wan-sook wan-sao

wan-ar- wan-tja wan-ang wan-pho wan-pha wan-soo wan-sao

5: Tshipi Mosupologo Labobedi Laboraro Labone Labotlhano Matlhatso

Tship Mosup Labob Labor Labon Labot Matlh

6: Pazar Pazartesi Sali Çar,samba Per,sembe Cuma Cumartesi

Pazar Pazart Sali Çar,sa Per,se Cuma Cumart

2: nedilya ponedilok vivtorok sereda chetver pyatnytsya subota

ne po vi se ch py su

8: Chu?_Nhâ.t Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na'm Thú*_Sáu Thú*_Ba?y

Chu?_Nhâ Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na' Thú*_Sáu Thú*_Ba?

6: dydd_Sul dyds_Llun dydd_Mawrth dyds_Mercher dydd_Iau dydd_Gwener dyds_Sadwrn

dydd_S dyds_L dydd_M dyds_M dydd_I dydd_G dyds_S

3: Dibeer Altine Talaata Allarba Al_xebes Aljuma Gaaw

Dib Alt Tal All Al_ Alj Gaa

7: iCawa uMvulo uLwesibini uLwesithathu uLuwesine uLwesihlanu uMgqibelo

iCawa uMvulo uLwesib uLwesit uLuwesi uLwesih uMgqibe

2: zuntik montik dinstik mitvokh donershtik fraytik shabes

zu mo di mi do fr sh

7: iSonto uMsombuluko uLwesibili uLwesithathu uLwesine uLwesihlanu uMgqibelo

iSonto uMsombu uLwesib uLwesit uLwesin uLwesih uMgqibe

7: Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni

Dies_Do Dies_Lu Dies_Ma Dies_Me Dies_Io Dies_Ve Dies_Sa

11: Bazar_gÜnÜ Bazar_ærtæsi Çærs,ænbæ_axs,amò Çærs,ænbæ_gÜnÜ CÜmæ_axs,amò CÜmæ_gÜnÜ CÜmæ_Senbæ

Bazar_gÜnÜ Bazar_ærtæs Çærs,ænbæ_a Çærs,ænbæ_g CÜmæ_axs,am CÜmæ_gÜnÜ CÜmæ_Senbæ

2: Sun Moon Mars Mercury Jove Venus Saturn

Su Mo Ma Me Jo Ve Sa

2: zondag maandag dinsdag woensdag donderdag vrijdag zaterdag

zo ma di wo do vr za

2: KoseEraa GyoOraa BenEraa Kuoraa YOwaaraa FeEraa Memenaa

Ko Gy Be Ku YO Fe Me

5: Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend

Sonnt Monta Diens Mittw Donne Freit Sonna

1: Domingo Luns Terza_feira Corta_feira Xoves Venres Sábado

D L T C X V S

7: Dies_Solis Dies_Lunae Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Sabbatum

Dies_So Dies_Lu Dies_Ma Dies_Me Dies_Io Dies_Ve Dies_Sa

12: xing-_qi-_tiàn xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù

xing-_qi-_ti xing-_qi-_yi xing-_qi-_èr xing-_qi-_sa xing-_qi-_sì xing-_qi-_wu xing-_qi-_li

4: djadomingu djaluna djamars djarason djaweps djabièrnè djasabra

djad djal djam djar djaw djab djas

2: Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau

Ki At Qu Il Ch Ku In </pre>