From 617adf85157eec87ff3fc4f177cb71af260539e7 Mon Sep 17 00:00:00 2001 From: martin_r Date: Mon, 15 Sep 2008 01:08:23 +0000 Subject: Compose-Automatisierung für den AHK MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.neo-layout.org@872 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/autohotkey/Compose/AutoComp1.bas | 38 ++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 windows/autohotkey/Compose/AutoComp1.bas (limited to 'windows/autohotkey/Compose/AutoComp1.bas') diff --git a/windows/autohotkey/Compose/AutoComp1.bas b/windows/autohotkey/Compose/AutoComp1.bas new file mode 100644 index 0000000..ad740f6 --- /dev/null +++ b/windows/autohotkey/Compose/AutoComp1.bas @@ -0,0 +1,38 @@ +Rem Compose-AHK-Konverter +Rem © 2008 Martin Paul Roppelt (m.p.roppelt@web.de) – GPL 2/3 +Rem +Rem Basic-Datei für OpenOffice (2.4): +Rem Dateipfade an das Zielsystem anpassen! +Rem +Rem Anleitung: +Rem OpenOffice-Basic aufrufen (Alt-x,m,v,m; Alt-n). +Rem Strg-a; Symbolleisten-Schaltfläche: BASIC-Quelltext einfügen, diese Datei auswählen. +Rem Skript ausführen (Alt-x,m,a oder F5). + + +Sub Main + Open "C:\Users\Martin_2\NEO\Compose\Compose.neo" For Input Lock Write As #1 + Open "C:\Users\Martin_2\NEO\Compose\en_US.UTF-8" For Input Lock Write As #2 + Open "C:\Users\Martin_2\Programmieren\NEO\ComposeList.txt" For Output Lock Read Write As #3 + + LeseDatei(1) + LeseDatei(2) + + Close 1, 2, 3 +End Sub + +Sub LeseDatei(DateiNummer% as Integer) + While Not Eof(DateiNummer%) + Line Input #DateiNummer%, DateiZeile$ + Dateizeile$ = LTrim(DateiZeile$) + If Left(DateiZeile$, 1) = "<" Then + DoppelpunktPosition% = InStr(DateiZeile$, ":") + Definition$ = RTrim( Left(DateiZeile$, DoppelpunktPosition% - 1) ) + KlammerAufPosition1% = InStr(Definition$, "<") + KlammerZuPosition1% = InStr(Definition$, ">") + Taste1$ = Mid(Definition$, KlammerAufPosition1% + 1, KlammerZuPosition1% - KlammerAufPosition1% - 1) + If Taste1$ = "Multi_key" Then Print #3, DateiZeile$ + End If + Wend +End Sub + -- cgit v1.2.3