Hezký den všem,
několikrát denně otevírám PSPad, kde do nového txt souboru vložím
sloupec např. s osobními čísly, upravím a kopíruji si dále do sql.
Cílem je, abych ze všech řádku sloupce udělal jediný řádek. Tj. řádky
spojím do jednoho a mezi těmi spojenými řádky budou tyto znaky ',' Na
začátku a konci výsledného řádku bude pouze '. Vždy by se měly vybrat
všechny dostupné řádky automaticky, ideálně pak zkopírovat na clipboard.
K tomu jsem chtěl použít nad tím txt souborem nějaký skript.
Nechal jsem ChatGPT vytvořit skript vbs nebo js, zkoušel a měnil. Uložím
skript do adresáře Program Files (x86)\PSPad editor\Script\VBScript nebo
JScript, vidím ho pak i v programu v menu Skripty, ale nedělá to zhola nic a
upřímně nevím, jak dál, co je špatně.
Poradíte mi, prosím?
Děkuji. Skript, např. VBS níže:
[b]const module_name = "SpojeniRadku"
Sub SpojeniRadku
Dim text, lines, result
' Získání celého textu z aktuálního dokumentu
text = Trim(Editor.SelText)
' Pokud není vybrán žádný text, použij celý obsah souboru
If Len(text) = 0 Then
text = Editor.Text
End If
' Rozdělení textu na jednotlivé řádky podle znaků konce řádku
lines = Split(text, vbCrLf)
' Spojení všech řádků do jednoho řádku s "','"
result = "'" & Join(lines, "','") & "'"
' Výběr celého textu a nahrazení spojeným textem
Editor.SelText = result
End Sub
Sub Init
' Přidání skriptu do menu Skript s klávesovou zkratkou Ctrl + Shift + I
AddMenuItem "Spojit řádky", "SpojeniRadku", "Spojí všechny řádky do
jednoho s oddělovačem ','", "Ctrl+Shift+I"
End Sub[/b]
--
<https://forum.pspad.com/read.php?1,79084,79084>
PSPad freeware editor https://www.pspad.com
