diff options
| author | dennis <dennis@b9310e46-f624-0410-8ea1-cfbb3a30dc96> | 2009-01-10 16:33:14 +0000 |
|---|---|---|
| committer | dennis <dennis@b9310e46-f624-0410-8ea1-cfbb3a30dc96> | 2009-01-10 16:33:14 +0000 |
| commit | 6d0b9db7e1dfa23ee0204b0a57847c4126e2500a (patch) | |
| tree | e804fab2b736b632fb304bc92415ed9692b7e57c /windows/ahk-auslaufend/Compose/AutoComp1.bas | |
| parent | c20fbca2ebad005b2c981dec0db4ae5a7b824797 (diff) | |
| download | neo-layout-6d0b9db7e1dfa23ee0204b0a57847c4126e2500a.tar.gz neo-layout-6d0b9db7e1dfa23ee0204b0a57847c4126e2500a.tar.bz2 neo-layout-6d0b9db7e1dfa23ee0204b0a57847c4126e2500a.zip | |
Der »alte« AHK-Treiber ist als »deprecated« einzustufen. Der Namenswechsel des Verzeichnis soll dies wiederspielen und eventuelle »Gewohnheitsfehler« vermeiden.
git-svn-id: https://svn.neo-layout.org@1423 b9310e46-f624-0410-8ea1-cfbb3a30dc96
Diffstat (limited to 'windows/ahk-auslaufend/Compose/AutoComp1.bas')
| -rw-r--r-- | windows/ahk-auslaufend/Compose/AutoComp1.bas | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/windows/ahk-auslaufend/Compose/AutoComp1.bas b/windows/ahk-auslaufend/Compose/AutoComp1.bas new file mode 100644 index 0000000..ad740f6 --- /dev/null +++ b/windows/ahk-auslaufend/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
+
|