You are here: PSPad forum > České diskuzní fórum > Re: skript na úpravu řádků od AI nefunguje
Posted by: xvort03 | Date: 2024-08-21 13:31 | IP: IP Logged
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:
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
Posted by: pspad | Date: 2024-08-21 14:00 | IP: IP Logged
Takove skripty uz tam jsou
Jeden oddeluje carkou, druhy krome carky vklada hodnoty do uvozovek.
Posted by: pspad | Date: 2024-08-21 14:03 | IP: IP Logged
Jinak ten skript ma problem s tim, ze nema prirazen objekt editor.
Posted by: xvort03 | Date: 2024-08-22 06:51 | IP: IP Logged
Díky. Hledal jsem v tom scripting.rtf, ale nenašel jsem, co píšeš. Mohl bys mě prosím navést, kde ten skript najdu a jak ho aktivuji? Nebo bych se v něm inspiroval. Díky.
Posted by: xvort03 | Date: 2024-08-22 06:53 | IP: IP Logged
pspad:Jinak ten skript ma problem s tim, ze nema prirazen objekt editor.
Díky. Objekt editor je pro to, aby se skript vykonal na nějakém konkrétním okně? Třeba na tom, kde jsem měl vložené hodnoty k úpravě?
Posted by: pspad | Date: 2024-08-22 07:03 | IP: IP Logged
Přímo v menu skript jako List conversion
Shift+Ctrl+H - vraci seznam retezcu (obaleny uvozovkami)
Shift+Ctrl+L - seznam hodnot
pak je tam jeste jeden, ktery to prevede zpet na seznam
ve slozce VBscript jako ListTransform.vbs
Editor PSPad - freeware editor, © 2001 - 2024 Jan Fiala, Hosted by Webhosting TOJEONO.CZ, design by WebDesign PAY & SOFT, code Petr Dvořák, Privacy policy and GDPR