Anonymous user
Abbreviations, automatic: Difference between revisions
→{{header|Visual Basic .NET}}
(→{{header|Picat}}: Adding Picat) |
|||
Line 7,286:
4 djadomingu djaluna djamars djarason djaweps djabièrnè djasabra
2 Killachau Atichau Quoyllurchau Illapachau Chaskachau Kuychichau Intichau</pre>
=={{header|VBScript}}==
<lang vb>
sub print(s) wscript.stdout.writeline s :end sub
set d=createobject("Scripting.Dictionary")
set fso=createobject("Scripting.Filesystemobject")
const fn="weekdays_ansi.txt"
sfn=WScript.ScriptFullName
sfn= Left(sfn, InStrRev(sfn, "\"))
set f=fso.opentextfile(sfn & fn,1)
while not f.atendofstream
s=f.readline
if s=vbNullString then
print " "
else
a=split(trim(s)," ")
for abrlen=1 to 14
d.removeall
for wd=0 to 6
k=left(a(wd),abrlen)
if d.exists(k) then
exit for
else
d.add k,""
end if
next 'wd
if wd>6 then exit for
next 'abrlen
b=right(" " & abrlen,2)
for wd=0 to 6
b=b &" "& left(a(wd),abrlen)
next
print b
end if
wend 'line
f.close
</lang>
{{out}}
<pre>
2 Su Mo Tu We Th Fr Sa
2 So Ma Di Wo Do Vr Sa
4 E_dj E_hë E_ma E_më E_en E_pr E_sh
2 Eh Se Ma Er Ha Ar Ke
5 Al_Ah Al_It Al_Th Al_Ar Al_Ka Al_Go Al_Sa
4 Guir Yerg Yere Tcho Hink Ourp Shap
2 do ll ma mi xu vi sá
2 Ba Bi Çk Üç DÖ Be Al
6 Igande Astele Astear Asteaz Ostegu Ostira Larunb
4 Robi Shom Mong Budh BRih Shuk Shon
2 Ne Po Ut Sr Cx Pe Su
5 Disul Dilun Dimeu Dimer Diria Digwe Disad
2 ne po vt sr ch pe sa
12 sing_kei_yah sing_kei_yat sing_kei_yee sing_kei_saa sing_kei_sie sing_kei_ng sing_kei_luk
4 Dium Dill Dima Dime Dijo Dive Diss
15 Dzeenkk-eh Dzeehn_kk-ehreh Dzeehn_kk-ehreh Tah_neesee_dzee Deehn_ghee_dzee Tl-oowey_tts-el Dzeentt-ahzee
6 dy_Sul dy_Lun dy_Meu dy_Mer dy_You dy_Gwe dy_Sad
2 Di Le Ma Mè Je Va Sa
2 ne po ut sr cx pe su
2 ne po út st c^ pá so
2 So Mo Ti Wa TO Fe Sa
2 s0 ma ti on to fr l0
2 zo ma di wo do vr za
2 Di Lu Ma Me ^J Ve Sa
1 p e t k n r l
</pre>
=={{header|Visual Basic .NET}}==
| |||