MS Excel

Táto funkcia vloží medzeru pred veľké písmeno, ale ignoruje mäkčene
Ak to prosím upraviť, aby to bralo do úvahy diakritiku. Ďakujem.

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddSpaces = xOut
End Function

VYRIEŠENÉ Funkcia upravená elninoslovom funguje. Ale nakoniec som pdf súbor prekonvertovala online konvertorom do excelu. Ďakujem.

Zaslat odpověď >

elninoslov(7.11.2024 9:13)citovat#056955

Samozrejme to pôjde, ale najskôr otázka :
Prečo sa vynecháva ten 1. znak ???
Function AddSpaces(pValue As String) As String
Dim xOut As String, CH As String, chU As String, U As String, L As String

U = UCase(pValue)
L = LCase(pValue)

For i = 1 To Len(pValue)
chU = Mid(U, i, 1)
CH = Mid(pValue, i, 1)
If StrComp(chU, Mid(L, i, 1), vbBinaryCompare) <> 0 Then 'iba ak je to písmeno
CH = IIf(CH = chU, " ", vbNullString) & CH 'ak je to veľké písmeno, pridaj medzeru
End If
xOut = xOut & CH
Next i

AddSpaces = xOut
End Function

kabaka(7.11.2024 10:21)citovat#056956

elninoslov napsal/a:

Samozrejme to pôjde, ale najskôr otázka :
Prečo sa vynecháva ten 1. znak ???

Netuším, aký prvý znak sa vynecháva. Našla som funkciu. Skopírovala, vložila, spustila, funguje, len diakritiku ignoruje. Do funkcie som nezasahovala.

elninoslov(7.11.2024 10:31)citovat#056957

Toto znamená, že sa prvý znak vloží do výsledku bez kontroly, a cyklus začína na znaku 2.
...
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
...
Editnem moju fnc v príspevku vyššie, aby brala celý reťazec.

EDIT: Napadá ma predsa len dôvod, prečo vynechať 1. písmeno. Ak sa jedná o pridanie medzery do zle zložených mien. Namiesto "MenoPriezvisko" urobí "Meno Priezvisko". V takomto prípade je nutné vynechanie 1. znaku, aby nevzniklo " Meno Priezvisko". Takže aký je účel?

Pridal som voliteľný parameter Start, ktorý určuje, od ktorého znaku sa má začať s kontrolou a pridávaním medzery. Ak sa parameter vynechá, začína sa od 1. znaku:
Function AddSpaces(pValue As String, Optional Start As Long = 1) As String
Dim xOut As String, CH As String, chU As String, U As String, L As String

U = UCase(pValue)
L = LCase(pValue)
xOut = Mid(pValue, 1, Start - 1)

For i = Start To Len(pValue)
chU = Mid(U, i, 1)
CH = Mid(pValue, i, 1)
If StrComp(chU, Mid(L, i, 1), vbBinaryCompare) <> 0 Then 'iba ak je to písmeno
CH = IIf(CH = chU, " ", vbNullString) & CH 'ak je to veľké písmeno, pridaj medzeru
End If
xOut = xOut & CH
Next i

AddSpaces = xOut
End Function

kabaka(7.11.2024 10:56)citovat#056958

elninoslov napsal/a:

EDIT: Napadá ma predsa len dôvod, prečo vynechať 1. písmeno. Ak sa jedná o pridanie medzery do zle zložených mien. Namiesto "MenoPriezvisko" urobí "Meno Priezvisko". V takomto prípade je nutné vynechanie 1. znaku, aby nevzniklo " Meno Priezvisko". Takže aký je účel?

Účel je taký, že presne to potrebujem. Aby z MenoPriezvisko urobilo Meno Priezvisko. Kopírovala som zoznam zamestnancov z PDF do excelu.

Štruktúra PDF dokumentu je: Priezvisko, Meno, Titul, Oddelenie

Údaje v exceli sú v jednom stĺpci, potrebujem ich rozdeliť na 4 resp. 2 stĺpce
Priezvisko meno titul, Oddelenie

Lenže neviem ošetriť, aby Priezvisko meno a titul boli spolu, oddelenie v jednom stĺpci, a všetky tituly spolu.

Tak som údaje zbavila medzier a preto chcem teraz vložiť medzeru pred veľké písmeno. Viem, že som si to skomplikovala.

Ďakujem, teraz to už funguje.

€Ł мσşqμΐτσ(7.11.2024 11:34)citovat#056959

Dobrý den,
můžete napsat v jakém formátu vypadá jeden řádek?
třeba "MenoPriezviskoTitul1.Titul2.Oddelenie1" jde mi o to jestli mají za titulem tečku nebo ne? jestli má někdo dvě jména a 1 přímení, nebo titul před jménem titul za jménem. proste jaké jsou různé varianty?

* edit: koukám že už to funguje tak nic

elninoslov(7.11.2024 13:04)citovat#056960

Ako píše "€Ł мσşqμΐτσ", treba pridať príklad takých dát. Inak aký máte Excel? V novších verziách sa dá načítať PDF do PowerQuery, a tam by sa to možno dalo ošetriť (podľa toho ako to PDF vyzerá).

kabaka(7.11.2024 15:13)citovat#056966

Nechce mi pridať originál súbor pdf zbalený v zipe.
Súbor má veľkosť 515kb. Prekračuje povolenú veľkosť.

Urobím to inak. Prekonvertujem to cez online konvertor a bude.

elninoslov(7.11.2024 17:26)citovat#056970

Ak máte Office 2021/2024/365 tak mi to pošlite mailom alebo na nejaké verejné úložisko to capnite (Google Disk a pod). Samozrejme iba ak je to zverejniteľné.

Téma: Vložiť medzeru pred veľké písmeno-diakritika

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje