Results 1 to 7 of 7

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    ..maybe it's just 4:20.. Weedrunner's Avatar
    Join Date: Feb:2007
    Location: Sofia/BG
    Posts: 158

    Pîäðåæäàíå íà äóìè â îáðàòåí íà àçáó÷íèÿ ðåä ñ Word/OO?

    Ïðèâåò!
    Èìàì íóæäà îò ñúâåò îò íÿêîé "Word-ãóðó"
    åòî êàêúâ å êàçóñúò:
    öèòèðàì

    â Word èìà ôóíêöèÿ, ñ ÷èÿòî ïîìîù ìîãà äà ñè ïîäðåäÿ ïî àçáó÷åí ðåä ïàðàãðàôèòå - íàïðèìåð àêî âñåêè ïàðàãðàô ìè å åäíà îòäåëíà äóìà, ìîãà äà ñè ãè ïîäðåäÿ òàêà, ÷å äà ñà ìè óäîáíè çà ðàáîòà: àãíå áîçà âîäà è ò.í.

    èìà ëè âúçìîæíîñò îáà÷å äà íàïðàâÿ îáðàòíî ïîäðåæäàíå, ïàê ïî àçáó÷åí ðåä, îáà÷å äà ñå âçåìå ïðåäâèä ïîñëåäíàòà áóêâà?

    çà äà å ïî-ÿñíî: âîäà, áîá, âðúâ, ò.å. ãëåäà ñå ïîñëåäíàòà áóêâà íà äóìàòà

    àç èìàì ïðåäâèä íå ñàìî Word, à äàëè íÿêîÿ äðóãà ïðîãðàìà íå ïðåäëàãà òàêàâà âúçìîæíîñò? Ùå òè íàïèøà åäèí ñïèñúê ñ ïðèìåðíè äóìè, äà âèäèì äàëè ùå ãè ïîäðåäè, íî å âàæíî è äà ñå âçåìàò ïðåäâèä ñëåäâàùèòå áóêâè îòçàä íàïðåä,
    çàòîâà ùå äàì íÿêîëêî äóìè ñ åäíà è ñúùà ïîñëåäíà è ñ ðàçëè÷íè ïðåäïîñëåäíè.

    Åòî ãè: “íà÷àëåí”, êîéòî ïîäëåæè íà îáðàáîòêà (òóê ñà ñè â îáèêíîâåí àçáó÷åí ðåä), çà äà ñå ïîëó÷è òîâà, êîåòî å â “ðåçóëòàò” (òàì ñà ïîäðåäåíè ïî àçáó÷åí ðåä ñïîðåä ïîñëåäíàòà áóêâà)
    íà÷àëåí http://pastebin.ca/1464477
    ðåçóëòàò 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

  2. #2
    Åêñïåðèìåíòàòîð Nuclear's Avatar
    Join Date: Sep:2004
    Location: Ñîôèÿ, êâ. Ãå(ò)î Ìèëåâ
    Posts: 3,352
    Toâà ìîæå íà C äà ñå íàïèøå, êàòî âñè÷êè äóìà ñà â òåêñòîâ (txt) ôàéë.
    Íå îòãîâàðÿì íà íåãðàìîòíè ïîñòîâå. Äà èçòèêàìå HWBG ïàïëà÷òà!

  3. #3
    Registered User entium's Avatar
    Join Date: May:2003
    Location: Ðóñå
    Posts: 1,426
    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 Function
    Last 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

  4. #4
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Íÿìà íóæäà îò ôóíêöèÿ Reverse.
    Äîñòàòú÷íî å â ñúñåäíàòà êîëîíà äà ñå íàïèøå =right(a1;1), êîåòî âçèìà íàé-äåñíèÿ ñèìâîë îò óêàçàíàòà êëåòêà. Ðàçäåëèòåëÿò ìåæäó ïðîìåíëèâèòå ìîæå äà íå å ";" - çàâèñè îò ðåãèîíàëíèòå íàñòðîéêè íà ÎÑ.

  5. #5
    Registered User entium's Avatar
    Join Date: May:2003
    Location: Ðóñå
    Posts: 1,426
    Ñ ðåâåðñ å ïî êóëòóðíî ,àêî èìà íÿêîëêî çàâúðøâàùè íà åäíà áóêâà ,êàê ùå ãè ïîäðåäè ?
    íî å âàæíî è äà ñå âçåìàò ïðåäâèä ñëåäâàùèòå áóêâè îòçàä íàïðåä,
    EP43-DS3|E5200@3.33|ASUS EN9800GT HB /HTDI/ 512MB|2X2GB 800MHZ CL5 A-DATA|WD2500JB|NEC 4750A|BELINEA 1980S2

  6. #6
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Äà, ïðàâ ñè, òîâà èçèñêâàíå íå ñúì ãî âèäÿë, à èçîáùî íå ãî ñúîáðàçèõ, ìàêàð äà å ëîãè÷íî.

  7. #7
    ..maybe it's just 4:20.. Weedrunner's Avatar
    Join Date: Feb:2007
    Location: Sofia/BG
    Posts: 158
    ìíîãî áëàãîäàðÿ!
    äíåñ ïî êúñíî ùå ãî "èìïëåìåíòèðàìå"
    @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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè