[excel, mozna perl?] konverze vycet -> rada

[wong]

jde o tohle:
mam v bunce => a potrebuju tam mit
15-20,23 =>15,16,17,18,19,20,23
2,4-8,11 => 2,4,5,6,7,8,11

jak to udelat v excelu netusim, jestli to vubec jde. na nejaky search&replace ani nemyslete - jsou tam cisla 1-30 ve vsemoznych vyctech. ma to 1800 radku
jeden napad by tu byl - exportovat to do csv a prohnat to v perlu pres nejaky regularni vyrazy nebo tak neco. ale to nevim jak. perl neznam.

diky za kazdou radu

[MadCap]

s excelom to asi nerozchodis, ale sak si linuxak tak by si mohol vediet ze to zvladnes aj grepom skrz sed tj xls > csv > grep+sed > xls, done

[Jezevec]

Pokud ses kamos s VB od M$, tak to udelas i primo v excelu. Podstatny je, estli to ma vsude stejnej format => bud jednotlivy cislo nebo rozsah s pomlckou a oddeleni carkou.
Pak by melo jit nacist bunku, rozparsova ji podle carky, to pole co ti vznikne projit a pokud v zaznamu je pomlcka tak to hodit jako meze do cyklu.

[jogamen]

Da sa to jednoducho spravit tak ako uviedol Jezevec. napises si na to kratky "pogramik" vo VB priamo v Exceli a prezenies to cez tych 1800 riadkov.

Robi v tom aj ine veci a toto by mala byt malina

[wong]

to bych musel ve VB umet a taky mit excel - no mohl bych to udelat na jinym pc. tady mam OOo a vyresil sem to nakonec neco pres pulhodinovym search&replace

[Kon]

wong, teda ze ses to ty, tak ti to napisu
v excelu; otevres VBA editor a vlozis modul
do modulu zkopirujes tento kod, a pak tu funkci budes mit mezi Vlastnima

Function Konverze_vycet(Bunka)

For i = 1 To Len(Bunka.Text)

  If Right(Left(Bunka.Text, i), 1) = "-" Then
    For j = 1 To Len(Konverze_vycet)
      StartNo = Right(Konverze_vycet, j)
      If Left(StartNo, 1) = "," Then
        StartNo = Right(StartNo, Len(StartNo) - 1)
        Exit For
      End If
    Next
    For j = 1 To 100
      EndNo = Left(Right(Bunka.Text, Len(Bunka.Text) - i), j)
      If Right(EndNo, 1) = "," Then
        EndNo = Left(EndNo, Len(EndNo) - 1)
        Exit For
      End If
    Next
    Konverze_vycet = Left(Konverze_vycet, Len(Konverze_vycet) - Len(StartNo))
    For j = Val(StartNo) To Val(EndNo)
      Konverze_vycet = Konverze_vycet & CStr(j) & ","
    Next
    i = i + Len(EndNo) + 1
   Else
    Konverze_vycet = Konverze_vycet & Right(Left(Bunka.Text, i), 1)
  End If

Next

End Function