Abbreviations, automatic: Difference between revisions
Content added Content deleted
Line 6,809: | Line 6,809: | ||
</pre> |
</pre> |
||
=={{header|TSE SAL}}== |
|||
<lang TSESAL> |
|||
STRING PROC FNStringGetExpressionRegularCharacterMetaEscapeS( STRING inS ) |
|||
STRING s[255] = inS |
|||
s = StrReplace( "\", s, "\\", "gn" ) |
|||
s = StrReplace( "{", s, "\{", "gn" ) |
|||
s = StrReplace( "[", s, "\[", "gn" ) |
|||
s = StrReplace( "}", s, "\}", "gn" ) |
|||
s = StrReplace( "]", s, "\]", "gn" ) |
|||
s = StrReplace( "*", s, "\*", "gn" ) |
|||
s = StrReplace( "+", s, "\+", "gn" ) |
|||
s = StrReplace( "@", s, "\@", "gn" ) |
|||
s = StrReplace( ".", s, "\.", "gn" ) |
|||
s = StrReplace( "^", s, "\^", "gn" ) |
|||
s = StrReplace( "$", s, "\$", "gn" ) |
|||
s = StrReplace( "|", s, "\|", "gn" ) |
|||
s = StrReplace( "?", s, "\?", "gn" ) |
|||
s = StrReplace( "#", s, "\#", "gn" ) |
|||
RETURN( s ) |
|||
END |
|||
// |
|||
INTEGER PROC FNBlockGetAbbreviationLengthMinimumToBufferB( INTEGER buffer1I ) |
|||
INTEGER B = FALSE |
|||
INTEGER downB = TRUE |
|||
STRING s[255] = "" |
|||
INTEGER foundB = FALSE |
|||
INTEGER minI = 1 |
|||
INTEGER I = 0 |
|||
INTEGER buffer2I = 0 |
|||
STRING s1[255] = "" |
|||
INTEGER lineColumnStartI = 4 // change this |
|||
Set( BREAK, ON ) |
|||
PushPosition() |
|||
PushBlock() |
|||
GotoBlockBegin() |
|||
WHILE ( ( IsCursorInBlock() ) AND ( downB ) ) |
|||
IF NOT LFind( "^$", "cgx" ) |
|||
I = minI - 1 |
|||
REPEAT |
|||
I = I + 1 |
|||
PushPosition() |
|||
buffer2I = CreateTempBuffer() |
|||
PopPosition() |
|||
BegLine() |
|||
REPEAT |
|||
IF ( LFind( "{.*}{[ ]|$}\c", "cx" ) ) |
|||
s = GetFoundText( 1 ) |
|||
s1 = LeftStr( s, I ) |
|||
PushPosition() |
|||
PushBlock() |
|||
GotoBufferId( buffer2I ) |
|||
foundB = LFind( Format( "^", FNStringGetExpressionRegularCharacterMetaEscapeS( s1 ), "$" ), "gx" ) |
|||
IF NOT foundB |
|||
EndFile() |
|||
AddLine( s1 ) |
|||
ENDIF |
|||
PopBlock() |
|||
PopPosition() |
|||
ENDIF |
|||
UNTIL ( ( ( CurrChar() == _AT_EOL_ ) OR ( CurrChar() == _BEYOND_EOL_ ) ) OR ( foundB ) ) |
|||
AbandonFile( buffer2I ) |
|||
UNTIL ( NOT ( foundB ) ) |
|||
ENDIF |
|||
IF NOT foundB |
|||
PushPosition() |
|||
PushBlock() |
|||
BegLine() |
|||
UnMarkBlock() |
|||
MarkStream() |
|||
EndLine() |
|||
Left() |
|||
MarkStream() |
|||
Copy() |
|||
GotoBufferId( buffer1I ) |
|||
EndFile() |
|||
AddLine( Str( I ) ) |
|||
GotoColumn( lineColumnStartI ) |
|||
Paste() |
|||
PopBlock() |
|||
PopPosition() |
|||
ENDIF |
|||
downB = Down() |
|||
ENDWHILE |
|||
B = TRUE |
|||
PopPosition() |
|||
PopBlock() |
|||
RETURN( B ) |
|||
END |
|||
// |
|||
PROC Main() |
|||
INTEGER bufferI = 0 |
|||
PushPosition() |
|||
bufferI = CreateTempBuffer() |
|||
PopPosition() |
|||
Message( FNBlockGetAbbreviationLengthMinimumToBufferB( bufferI ) ) |
|||
GotoBufferId( bufferI ) |
|||
END |
|||
</lang> |
|||
{{out}} <pre> |
|||
2 Sunday Monday Tuesday Wednesday Thursday Friday Saturday |
|||
2 Sondag Maandag Dinsdag Woensdag Donderdag Vrydag Saterdag |
|||
4 E_djelë E_hënë E_martë E_mërkurë E_enjte E_premte E_shtunë |
|||
2 Ehud Segno Maksegno Erob Hamus Arbe Kedame |
|||
5 Al_Ahad Al_Ithinin Al_Tholatha'a Al_Arbia'a Al_Kamis Al_Gomia'a Al_Sabit |
|||
4 Guiragui Yergou_shapti Yerek_shapti Tchorek_shapti Hink_shapti Ourpat Shapat |
|||
2 domingu llunes martes miércoles xueves vienres sábadu |
|||
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 |
|||
6 Igande Astelehen Astearte Asteazken Ostegun Ostiral Larunbat |
|||
4 Robi_bar Shom_bar Mongal_bar Budhh_bar BRihashpati_bar Shukro_bar Shoni_bar |
|||
2 Nedjelja Ponedeljak Utorak Srijeda Cxetvrtak Petak Subota |
|||
5 Disul Dilun Dimeurzh Dimerc'her Diriaou Digwener Disadorn |
|||
2 nedelia ponedelnik vtornik sriada chetvartak petak sabota |
|||
12 sing_kei_yaht sing_kei_yat sing_kei_yee sing_kei_saam sing_kei_sie sing_kei_ng sing_kei_luk |
|||
4 Diumenge Dilluns Dimarts Dimecres Dijous Divendres Dissabte |
|||
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 |
|||
6 dy_Sul dy_Lun dy_Meurth dy_Mergher dy_You dy_Gwener dy_Sadorn |
|||
2 Dimanch Lendi Madi Mèkredi Jedi Vandredi Samdi |
|||
2 nedjelja ponedjeljak utorak srijeda cxetvrtak petak subota |
|||
2 nede^le ponde^lí úterÿ str^eda c^tvrtek pátek sobota |
|||
2 Sondee Mondee Tiisiday Walansedee TOOsedee Feraadee Satadee |
|||
2 s0ndag mandag tirsdag onsdag torsdag fredag l0rdag |
|||
2 zondag maandag dinsdag woensdag donderdag vrijdag zaterdag |
|||
2 Diman^co Lundo Mardo Merkredo ^Jaùdo Vendredo Sabato |
|||
1 pÜhapäev esmaspäev teisipäev kolmapäev neljapäev reede laupäev |
|||
7 Diu_prima Diu_sequima Diu_tritima Diu_quartima Diu_quintima Diu_sextima Diu_sabbata |
|||
2 sunnudagur mánadagur tÿsdaguy mikudagur hósdagur friggjadagur leygardagur |
|||
2 Yek_Sham'beh Do_Sham'beh Seh_Sham'beh Cha'har_Sham'beh Panj_Sham'beh Jom'eh Sham'beh |
|||
2 sunnuntai maanantai tiistai keskiviiko torsktai perjantai lauantai |
|||
2 dimanche lundi mardi mercredi jeudi vendredi samedi |
|||
4 Snein Moandei Tiisdei Woansdei Tonersdei Freed Sneon |
|||
2 Domingo Segunda_feira Martes Mércores Joves Venres Sábado |
|||
2 k'vira orshabati samshabati otkhshabati khutshabati p'arask'evi shabati |
|||
2 Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag |
|||
2 Kiriaki' Defte'ra Tri'ti Teta'rti Pe'mpti Paraskebi' Sa'bato |
|||
3 ravivaar somvaar mangalvaar budhvaar guruvaar shukravaar shanivaar |
|||
6 pópule pó`akahi pó`alua pó`akolu pó`ahá pó`alima pó`aono |
|||
7 Yom_rishon Yom_sheni Yom_shlishi Yom_revi'i Yom_chamishi Yom_shishi Shabat |
|||
3 ravivara somavar mangalavar budhavara brahaspativar shukravara shanivar |
|||
3 vasárnap hétfö kedd szerda csütörtök péntek szombat |
|||
2 Sunnudagur Mánudagur ╞riδjudagur Miδvikudagar Fimmtudagur FÖstudagur Laugardagur |
|||
2 sundio lundio mardio merkurdio jovdio venerdio saturdio |
|||
3 Minggu Senin Selasa Rabu Kamis Jumat Sabtu |
|||
2 Dominica Lunedi Martedi Mercuridi Jovedi Venerdi Sabbato |
|||
4 Dé_Domhnaigh Dé_Luain Dé_Máirt Dé_Ceadaoin Dé_ardaoin Dé_hAoine Dé_Sathairn |
|||
2 domenica lunedí martedí mercoledí giovedí venerdí sabato |
|||
2 Nichiyou_bi Getzuyou_bi Kayou_bi Suiyou_bi Mokuyou_bi Kin'you_bi Doyou_bi |
|||
1 Il-yo-il Wol-yo-il Hwa-yo-il Su-yo-il Mok-yo-il Kum-yo-il To-yo-il |
|||
7 Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni |
|||
3 sve-tdien pirmdien otrdien tresvdien ceturtdien piektdien sestdien |
|||
2 Sekmadienis Pirmadienis Antradienis Trec^iadienis Ketvirtadienis Penktadienis S^es^tadienis |
|||
3 Wangu Kazooba Walumbe Mukasa Kiwanuka Nnagawonye Wamunyi |
|||
12 xing-_qi-_rì xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù |
|||
3 Jedoonee Jelune Jemayrt Jecrean Jardaim Jeheiney Jesam |
|||
3 Jabot Manre Juje Wonje Taije Balaire Jarere |
|||
5 geminrongo minòmishi mártes mièrkoles misheushi bèrnashi mishábaro |
|||
2 Ahad Isnin Selasa Rabu Khamis Jumaat Sabtu |
|||
2 sφndag mandag tirsdag onsdag torsdag fredag lφrdag |
|||
7 lo_dimenge lo_diluns lo_dimarç lo_dimèrcres lo_dijòus lo_divendres lo_dissabte |
|||
4 djadomingo djaluna djamars djarason djaweps djabièrna djasabra |
|||
2 Niedziela Poniedzial/ek Wtorek S,roda Czwartek Pia,tek Sobota |
|||
3 Domingo segunda-feire terça-feire quarta-feire quinta-feire sexta-feira såbado |
|||
1 Domingo Lunes martes Miercoles Jueves Viernes Sabado |
|||
2 Duminicª Luni Mart'i Miercuri Joi Vineri Sâmbªtª |
|||
2 voskresenie ponedelnik vtornik sreda chetverg pyatnitsa subbota |
|||
4 Sunday Di-luain Di-màirt Di-ciadain Di-ardaoin Di-haoine Di-sathurne |
|||
2 nedjelja ponedjeljak utorak sreda cxetvrtak petak subota |
|||
5 Sontaha Mmantaha Labobedi Laboraro Labone Labohlano Moqebelo |
|||
2 Iridha- Sandhudha- Anga.haruwa-dha- Badha-dha- Brahaspa.thindha- Sikura-dha- Sena.sura-dha- |
|||
2 nedel^a pondelok utorok streda s^tvrtok piatok sobota |
|||
2 Nedelja Ponedeljek Torek Sreda Cxetrtek Petek Sobota |
|||
2 domingo lunes martes miércoles jueves viernes sábado |
|||
2 sonde mundey tude-wroko dride-wroko fode-wroko freyda Saturday |
|||
7 Jumapili Jumatatu Jumanne Jumatano Alhamisi Ijumaa Jumamosi |
|||
2 söndag måndag tisdag onsdag torsdag fredag lordag |
|||
2 Linggo Lunes Martes Miyerkoles Huwebes Biyernes Sabado |
|||
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 |
|||
7 wan-ar-tit wan-tjan wan-ang-kaan wan-phoet wan-pha-ru-hat-sa-boh-die wan-sook wan-sao |
|||
5 Tshipi Mosupologo Labobedi Laboraro Labone Labotlhano Matlhatso |
|||
6 Pazar Pazartesi Sali Çar,samba Per,sembe Cuma Cumartesi |
|||
2 nedilya ponedilok vivtorok sereda chetver pyatnytsya subota |
|||
8 Chu?_Nhâ.t Thú*_Hai Thú*_Ba Thú*_Tu* Thú*_Na'm Thú*_Sáu Thú*_Ba?y |
|||
6 dydd_Sul dyds_Llun dydd_Mawrth dyds_Mercher dydd_Iau dydd_Gwener dyds_Sadwrn |
|||
3 Dibeer Altine Talaata Allarba Al_xebes Aljuma Gaaw |
|||
7 iCawa uMvulo uLwesibini uLwesithathu uLuwesine uLwesihlanu uMgqibelo |
|||
2 zuntik montik dinstik mitvokh donershtik fraytik shabes |
|||
7 iSonto uMsombuluko uLwesibili uLwesithathu uLwesine uLwesihlanu uMgqibelo |
|||
7 Dies_Dominica Dies_Lunæ Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Saturni |
|||
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æ |
|||
2 Sun Moon Mars Mercury Jove Venus Saturn |
|||
2 zondag maandag dinsdag woensdag donderdag vrijdag zaterdag |
|||
2 KoseEraa GyoOraa BenEraa Kuoraa YOwaaraa FeEraa Memenaa |
|||
5 Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Sonnabend |
|||
1 Domingo Luns Terza_feira Corta_feira Xoves Venres Sábado |
|||
7 Dies_Solis Dies_Lunae Dies_Martis Dies_Mercurii Dies_Iovis Dies_Veneris Dies_Sabbatum |
|||
12 xing-_qi-_tiàn xing-_qi-_yi-. xing-_qi-_èr xing-_qi-_san-. xing-_qi-_sì xing-_qi-_wuv. xing-_qi-_liù |
|||
4 djadomingu djaluna djamars djarason djaweps djabièrnè djasabra |
|||
2 Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau |
|||
</pre> |
|||
=={{header|VBA}}== |
=={{header|VBA}}== |
||
Function : |
Function : |