Text do " Vyřešeno"

tanner5 · 2. 3. 2022 21:10:26

Zdravím,
to bych nebyl já, abych zase něco nepotřeboval
Spíše mám dotaz.... lze nějak nahradit filtr - text do sloupců za pomoci makra?
Jde o toto... Dialogové okno - zadá se jméno a příjmení ...
A potřeboval bych toto uložit do sešitu ale příjmení do jedné a jméno do druhé ( a v případě rodného jména do 3 buňky)
nějak nevím kudy a jak na to.
Našlo by se nakopnutí nebo rada?
Předem děkuji

Editoval tanner5 (13. 3. 2022 02:53:45)

ludviktrnka · 3. 3. 2022 07:27:08

Řeší se to pomocí funkce Split, různá řešení jsou již zde: https://forum.openoffice.org/en/forum/v … =9&t=33218.
Jednotlivá slova dostanete do matice a můžete je vložit kam potřebujete

tanner5 · 3. 3. 2022 12:52:34

Superrr, to je přesně co potřebuji Děkuji

tanner5 · 5. 3. 2022 08:09:18

Tak, a narazil jsem na zádrhel

Jde o to, že funkce Split mi jde, ale mám problém, neboť ve slopci mám někdy 2, někdy 3 slova, oddělená mezerou a teď nevím jak definovat Split aby neházel chybu
Napadlo mne, spočítat počet mezer a ty pak definovat ve výpisu Splitu ale nějak netuším jak na to... napadlo mne Trim nebo len ale teď jsem trochu ztracený.... zkoušel jsem v calcu a hlasí mi to jiný počet než by mělo, tak teď nevím kde dělám chybu

ludviktrnka · 5. 3. 2022 12:05:00

mě připadne že v tom fóru je to pěkně popsané, co přesně máte za problém? Zjištění počtu prvků matice se provádí příkaze lbound() a ubound(), tím eleiminujete případné "přetečení" pole.

sub test
   dim s1()
   s1 = SpaceSplit("ab      cd   ef       jkl")'řetězec může mít libovolný počet slov odělený libovolným počtem mezer, výsledek budou vždy jednotlivá slova v proměnné s1()
   for i = 0 to ubound(s1)
   	print s1(i)
   next i   
end sub


Function SpaceSplit(p1 as String) as Array
  Dim i as Integer, j as Integer, a1()
  a1=Split(Trim(p1)," ")
  Dim a2(Ubound(a1))
  For i = 0 to Ubound(a1)
    If a1(i)<>"" Then
       a2(j)=a1(i)
       j = j+1
    End If
  Next
  Redim Preserve a2(j-1)
  SpaceSplit = a2
End Function

Editoval ludviktrnka (5. 3. 2022 16:14:45)

tanner5 · 5. 3. 2022 21:58:40

Máte pravdu, akorát já jsem trubka a špatně jsem si nadefinoval načítání z dialogového okna a proto mi to nešlo, upsal jsem se v definici proměné

Takže toto mi již funguje, řetezec to dělí super, akorát tedy dotaz , jak mám zapsat jednotlivá slova do ruzných buněk?

Předpokládám že promněná i je počítána od 0, takže v případě 3 slov by měla být 0,1,2.. takže pomocí toho by se asi dal defnovat sloupec, nebo na to jdu špatně?

Editoval tanner5 (5. 3. 2022 22:32:00)

ludviktrnka · 5. 3. 2022 23:59:55

Zkuste se podívat na základní výuku Basicu - https://www.openoffice.cz/doplnky/mala- … office-org . Pravděpodobně tam najdete odpovědi na všechny otázky.
Jinak vypsání do sloupce A např. takto:

sub test
   dim s1()
   s1 = SpaceSplit("Jean Paul  Belmondo")
'řetězec může mít libovolný počet slov odělený libovolným počtem mezer, 
'výsledek budou vždy jednotlivá slova v proměnné s1()
   
   dim doc as object
   dim oSheet as object
   
   doc = ThisComponent
   oSheet = doc.sheets(0)
   
   for i = 0 to ubound(s1)
   	oSheet.getCellByPosition(0, i + 1).String = s1(i)
        'doplnění slov do sloupce 0 tj. A, od řádku 1 tj. 2, tzn. 1. slovo do A2, dále A3 ...
   next i   
end sub

Editoval ludviktrnka (6. 3. 2022 00:03:55)

tanner5 · 6. 3. 2022 00:03:19

Tak nějak podle toho postupuji a snažím se, většinou jsem používal funkce v calcu, takže makro pro mně občas záhadné... no ale tady jaksi .... částečně jsem to měl dobře, ale patlal jsem string za s1() nooo...

OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

#1 2. 3. 2022 21:10:26

Text do " Vyřešeno"

#2 3. 3. 2022 07:27:08

Re: Text do " Vyřešeno"

#3 3. 3. 2022 12:52:34

Re: Text do " Vyřešeno"

#4 5. 3. 2022 08:09:18

Re: Text do " Vyřešeno"

#5 5. 3. 2022 12:05:00

Re: Text do " Vyřešeno"

#6 5. 3. 2022 21:58:40

Re: Text do " Vyřešeno"

#7 5. 3. 2022 23:59:55

Re: Text do " Vyřešeno"

#8 6. 3. 2022 00:03:19

Re: Text do " Vyřešeno"

Zápatí