-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathTirupati-vs-Cologe-Excel-comparison-algo.txt
46 lines (42 loc) · 3.19 KB
/
Tirupati-vs-Cologe-Excel-comparison-algo.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Ñàìûé ïðîñòåíüêèé è íåíàäåæíûé àëãîðèòì ðàçáèâêè äëÿ Äæèìà.
Çàìåíÿåì â îáîèõ òåêñòàõ
"<(.*?)>" regex íà ""
"\{\@|\@\}¦" regex íà "%"
"“|”" regex íà """
"--" íà "-"
" ." íà "."
".." íà "."
" " íà " "
Sub razbivka()
Dim text1 As String
text1 = %a% pu0 avati rakzati atati sAtatyena tizWatIti vA ava-ata vA+qa. vizRO "akAro vizRuruddizwa ukArastu maheSvaraH. makArastu smfto brahmA praRavastu trayAtmaka" iti. asya (vizRoH) apatyam ata iY+iH (kAmaH) asya (vizRoH) patnI +NIp+I (lakzmIH). avya0 ava(prIRanAdO)+qa svarAdipAWAdavyayatvam. (1)aBAve, (2)pratizeDe, (3)svalpe.'rTe,(4) anukampAyAM,(5) samboDane-a ananta !. (6)aDikzepe-a pacasi tvaM jAlma !. "upasargasvaraviBaktipratirUpakASceti" svarAdigaRasUtre a iti sidDAntakOmudyAmudAhftaM manoramAyAYca a samboDane aDikzepe nizeDe ceti vyAKyAtam. "aBAve nahyanona" ityamarawIkAyAM naYAdeSo.'yamityuktam. sa ca AdeSaH naKanamucyAdiBinnaSabdaGawake uttarapadasTe halAdO Sabde pare Bavati. sa tu naYarTe eva sTAnitulyArTakatvAdAdeSasya. naYarTASca tatsAdfSyamaBAvaSca tadanyatvaM tadalpatA. aprASastyaM viroDaSca naYarTAH zaw prakIrttitAH.. ityukteH zaq_viDAH. tatra abrAhmaRaityAdO brAhmaRasAdfSyavattvena kzatriyAdInAM boDakatA, aGawamityAdO GawABAvasya, apawa ityAdO pawaBinnasya, anudarA kanyetyAdO alpodaratvasya, apaSavo vE anye go.'SveByaityAdO gavASvaBinnapaSUnAmaprASastyasya, asuraH asita ityAdO ca surasitaviroDasya boDakatA. tatrAyaM viSezaH naYaH sarvvatra aBAve Bede ca SaktiH, sAdfSyAdO tu nirUQalakzaRA. tatra aGawamityAdO avyayIBAve, aDana ityAdO bahuvrIhO, BAvakfdantottarapadake "aBedaH ajYAnamityAdO" naYtatpuruze ca aBAvaboDakatA. BAvakfdantaBinnottarapadanaY_tat_puruze tu aGawa ityAdO BinnatvaboDakateti. atredaM boDyam. samAse halAdO uttarapade naYaH sTAne a ityAdeSaviDAnena samAsa evAsya naYarTakasya a ityasya prayogaH nAnyaTA, samboDanAdyarTakasya tu pfTak_prayogaH kintu "naYo nalopastiNi kzepe" iti vArttikena tiNantapade pare.'pi naYAdeSasya viDAnAt tasyEva pfTak_prayogaH. aDikaM naY_SabdArTAvasare vakzyate. ajIvanirityAdO aDikzepArTakatA ajasramityAdO upa0 sa0. tasya ca kriyAyogAt pratizeDArTakatA.
' ïåðåáîð ñòðîê ïî 2-ìó èñòî÷íèêó
For i = 2 To 35
text1 'ýòî âåñü òåêñò èç ïåðâîãî èñòî÷íèêà áåç òåãîâ
text1 = Cells(2, 3).Value
text2 'ýòî ñòðîêà èç 2-ãî èñòî÷íèêà
'%a% pu0 avati rakzati atati sAtatyetra tizWatIti vA ava-ata-
'vA qa. vizRO "akArovizRuruddizwOkArastu maheSvaraH.
'makArastu smftobrahmA praRavastu trayAtmaka" iti. asya
'(vizRoH) apatyam ata iY iH (kAmaH) asya (vizRoH)
'patnI NIp I (lakzmIH).
text2 = Cells(i, 1).Value
' ïîëó÷àåì ÷òî-òî ñïðàâà äî 1-ãî ïðîáåëà
text2_right = Right(Cells(i, 1).Value, Len(text2) - InStrRev(Cells(i, 1).Value, " "))
' ïðîâåðêà íà -, íàïðèìåð ava-ata- => ava-ata
If (Right(text2_right, 1) = "-") Then
text2_right = Left(text2_right, Len(text2_right) - 1)
End If
' ïîëó÷àåì 1-å âõîæäåíèå ñòðîêè ava-ata + äëèíà ava-ata
text3_num = InStr(1, text1, text2_right) + Len(text2_right)
' ïîëó÷àåì ñòðîêó èç îñíîâíîé îò íà÷àëà ñòðîêè âêëþ÷àÿ ñëîâî ava-ata
text3 = Left(text1, text3_num)
Cells(i, 2).Value = text3
' ïîëó÷àåì äëèíó ñòðîêè
len_text3 = Len(text3)
' óäàëÿåì èç íà÷àëüíîé ñòðîêè ïîäñòðîêó êîòîðóþ âûáðàëè.
text1 = Right(text1, Len(text1) - len_text3)
' ïåðåçàïèñûâàåì íà÷àëüíûé òåêñò
Cells(2, 3).Value = text1
Next i
End Sub