Results 1 to 7 of 7
Hybrid View
-
18th June 2009 08:22 #1
Pîäðåæäàíå íà äóìè â îáðàòåí íà àçáó÷íèÿ ðåä ñ Word/OO?
Ïðèâåò!
Èìàì íóæäà îò ñúâåò îò íÿêîé "Word-ãóðó"
åòî êàêúâ å êàçóñúò:
öèòèðàì
íà÷àëåí http://pastebin.ca/1464477â Word èìà ôóíêöèÿ, ñ ÷èÿòî ïîìîù ìîãà äà ñè ïîäðåäÿ ïî àçáó÷åí ðåä ïàðàãðàôèòå - íàïðèìåð àêî âñåêè ïàðàãðàô ìè å åäíà îòäåëíà äóìà, ìîãà äà ñè ãè ïîäðåäÿ òàêà, ÷å äà ñà ìè óäîáíè çà ðàáîòà: àãíå áîçà âîäà è ò.í.
èìà ëè âúçìîæíîñò îáà÷å äà íàïðàâÿ îáðàòíî ïîäðåæäàíå, ïàê ïî àçáó÷åí ðåä, îáà÷å äà ñå âçåìå ïðåäâèä ïîñëåäíàòà áóêâà?
çà äà å ïî-ÿñíî: âîäà, áîá, âðúâ, ò.å. ãëåäà ñå ïîñëåäíàòà áóêâà íà äóìàòà
àç èìàì ïðåäâèä íå ñàìî Word, à äàëè íÿêîÿ äðóãà ïðîãðàìà íå ïðåäëàãà òàêàâà âúçìîæíîñò? Ùå òè íàïèøà åäèí ñïèñúê ñ ïðèìåðíè äóìè, äà âèäèì äàëè ùå ãè ïîäðåäè, íî å âàæíî è äà ñå âçåìàò ïðåäâèä ñëåäâàùèòå áóêâè îòçàä íàïðåä,
çàòîâà ùå äàì íÿêîëêî äóìè ñ åäíà è ñúùà ïîñëåäíà è ñ ðàçëè÷íè ïðåäïîñëåäíè.
Åòî ãè: “íà÷àëåí”, êîéòî ïîäëåæè íà îáðàáîòêà (òóê ñà ñè â îáèêíîâåí àçáó÷åí ðåä), çà äà ñå ïîëó÷è òîâà, êîåòî å â “ðåçóëòàò” (òàì ñà ïîäðåäåíè ïî àçáó÷åí ðåä ñïîðåä ïîñëåäíàòà áóêâà)
ðåçóëòàò http://pastebin.ca/1464478
àêî íÿêîé èìà ïîä ðúêà ñêðèïò èëè íÿêîÿ òàéíà îòìåòêà â Word íåêà äà ñïîäåëè, îáåùàâàì ïîëîæèòåëíà êàðìà è àëêîõîë ïî èçáîð
Last edited by Weedrunner; 18th June 2009 at 08:31.
PC1:ASUS H87I-Plus, i7 4790K + NH-U14, 2x8GB Corsair DDR3, MSI 1080 Ti GAMING X 11G, SAMSUNG 750GB EVO, HX750i, NZXT PHANTOM 530 | 27" Dell S2740L
PC2:GB Z690, i7 12700K + NH-D15, 32GB DDR5, MSI Ventus 3080Ti 12GB, NVMe 2TB, GX-800, Corsair 7000D | 32" Samsung Odyssey G7 240Hz 1ms
-
18th June 2009 09:02 #2
Toâà ìîæå íà C äà ñå íàïèøå, êàòî âñè÷êè äóìà ñà â òåêñòîâ (txt) ôàéë.
Íå îòãîâàðÿì íà íåãðàìîòíè ïîñòîâå. Äà èçòèêàìå HWBG ïàïëà÷òà!
-
18th June 2009 10:07 #3
1.Èìïîðòèðàø ñïèñúêà â åêñåë ïèøåø åäèí ìàêðîñ Reverse
2.Âòîðà êîëîíà è ïèøåø â íåÿ ôîðìóëà =Reverse(A1) è ðàçíàñÿø äî äîëó.
3.Ñîðòèðàø ïî âòîðàòà êîëîíà è âðúùàø ïúðâàòà â Word.
Function Reverse(Text)
Dim i As Long
Reverse = ""
For i = Len(Text) To 1 Step -1
Reverse = Reverse + Mid(Text, i, 1)
Next
End Function
èëè ïî ïðîñòî
Function reverse(text)
reverse = StrReverse(text)
End FunctionLast edited by entium; 18th June 2009 at 13:50.
EP43-DS3|E5200@3.33|ASUS EN9800GT HB /HTDI/ 512MB|2X2GB 800MHZ CL5 A-DATA|WD2500JB|NEC 4750A|BELINEA 1980S2
-
18th June 2009 13:06 #4Registered User
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 4,317
Íÿìà íóæäà îò ôóíêöèÿ Reverse.
Äîñòàòú÷íî å â ñúñåäíàòà êîëîíà äà ñå íàïèøå =right(a1;1), êîåòî âçèìà íàé-äåñíèÿ ñèìâîë îò óêàçàíàòà êëåòêà. Ðàçäåëèòåëÿò ìåæäó ïðîìåíëèâèòå ìîæå äà íå å ";" - çàâèñè îò ðåãèîíàëíèòå íàñòðîéêè íà ÎÑ.
-
18th June 2009 13:37 #5
Ñ ðåâåðñ å ïî êóëòóðíî ,àêî èìà íÿêîëêî çàâúðøâàùè íà åäíà áóêâà ,êàê ùå ãè ïîäðåäè ?
íî å âàæíî è äà ñå âçåìàò ïðåäâèä ñëåäâàùèòå áóêâè îòçàä íàïðåä,EP43-DS3|E5200@3.33|ASUS EN9800GT HB /HTDI/ 512MB|2X2GB 800MHZ CL5 A-DATA|WD2500JB|NEC 4750A|BELINEA 1980S2
-
18th June 2009 13:51 #6Registered User
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 4,317
Äà, ïðàâ ñè, òîâà èçèñêâàíå íå ñúì ãî âèäÿë, à èçîáùî íå ãî ñúîáðàçèõ, ìàêàð äà å ëîãè÷íî.
-
18th June 2009 14:58 #7
ìíîãî áëàãîäàðÿ!
äíåñ ïî êúñíî ùå ãî "èìïëåìåíòèðàìå"
@entium òà êàêâî ïèåø - single malt èëè single barrel?
PC1:ASUS H87I-Plus, i7 4790K + NH-U14, 2x8GB Corsair DDR3, MSI 1080 Ti GAMING X 11G, SAMSUNG 750GB EVO, HX750i, NZXT PHANTOM 530 | 27" Dell S2740L
PC2:GB Z690, i7 12700K + NH-D15, 32GB DDR5, MSI Ventus 3080Ti 12GB, NVMe 2TB, GX-800, Corsair 7000D | 32" Samsung Odyssey G7 240Hz 1ms




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè