From 6d0b9db7e1dfa23ee0204b0a57847c4126e2500a Mon Sep 17 00:00:00 2001 From: dennis Date: Sat, 10 Jan 2009 16:33:14 +0000 Subject: Der »alte« AHK-Treiber ist als »deprecated« einzustufen. Der Namenswechsel des Verzeichnis soll dies wiederspielen und eventuelle »Gewohnheitsfehler« vermeiden. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.neo-layout.org@1423 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/autohotkey/Compose/AutoComp1.bas | 38 -------------------------------- 1 file changed, 38 deletions(-) delete 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 deleted file mode 100644 index ad740f6..0000000 --- a/windows/autohotkey/Compose/AutoComp1.bas +++ /dev/null @@ -1,38 +0,0 @@ -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