|
VBasic : txt Datei ändern und speichern
Garry am 08.12.2005 um 12:09 Uhr (0)
Hallo,jetzt können mir nur noch (Hoffnetlich) die Leute der Programmiertechnik helfen.Habe eine *.txt Datei deren inhalt sieht so aus.eintrag1,zahlenwert1,eintrag2eintrag3,zahlenwert2,eintrag4eintrag5,zahlenwert3,eintrag6eintrag7,zahlenwert4,eintrag8eintrag9,zahlenwert5,eintrag10usw.mein Problem ist ich muss in den Raum Zahlenwert vor die Zahl den Text POS- einbringen.z.b.eintrag1,POS-zahlenwert1,eintrag2eintrag3,POS-zahlenwert2,eintrag4eintrag5,POS-zahlenwert3,eintrag6eintrag7,POS-zahlenwert4,eintrag8eint ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
startrek am 08.12.2005 um 13:24 Uhr (0)
Hi Garry,manche Texteditoren (zB VIM www.vim.org) können REGEXPda sähe das ganz einfach so aus für die erste Fundstelle::%s/,/,POS-/Ich geh mal davon aus, das fehlende führende Hochkomma ist ein Schreibfehler,wenn nicht, gehts doch normal im Wordpad;-)Oder als Makro und ohne RE;-)Code:Sub asdf() Dim s0$, s1 Open "o: est.txt" For Input As #1 Open "o: est1.txt" For Output As #2 While Not EOF(1) Line Input #1, s0 s1 = Split(s0, ",") s1(1) = "POS-" & s1(1) Print #2, Join(s1, ",") Wend Close ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
Garry am 08.12.2005 um 13:49 Uhr (0)
Zitat:Original erstellt von startrek:Hi Garry,manche Texteditoren (zB VIM www.vim.org) können REGEXPda sähe das ganz einfach so aus für die erste Fundstelle::%s/,/,POS-/Ich geh mal davon aus, das fehlende führende Hochkomma ist ein Schreibfehler,wenn nicht, gehts doch normal im Wordpad;-)Oder als Makro und ohne RE;-)Code:Sub asdf() Dim s0$, s1 Open "o: est.txt" For Input As #1 Open "o: est1.txt" For Output As #2 While Not EOF(1) Line Input #1, s0 s1 = Split(s0, ",") s1(1) ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
Garry am 08.12.2005 um 14:36 Uhr (0)
Hy,natürlich ist das Fehlende hochkamma mitten im Text ein Schreibfehler.Sorry ,wer richtig liest ist im Vorteil.Garry
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
startrek am 08.12.2005 um 23:25 Uhr (0)
Kann man ein Makro so abspeichern das es, wenn es aufgerufen wird Startet und Abläuft. Denke schon;-)Gugge mal hier Du brauchst natürlich eine Application dazu, welche VBA unterstützt.Das kann Autocad sein, Excel oder Word, oder auch Corel Draw oder weiss-der-Geier ...Einfach Alt+F11 drücken, Einfügen Modul, in das Codefenster Modul1 den code kopieren und ausführenmit F5 oder Alt + F8 je nachdem unter welcher UmgebungRein theoretisch [mangels Nichtwissen] müsste auch sowas gehen, wenn du den code kopiers ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
Thomas Harmening am 13.12.2005 um 21:01 Uhr (0)
:-) Holzauge und wachsam :-)Code:Pos-zahlen.vbswandelt *.txt in pos-*.txt und ersetzt zahlen* in POS-zahlen*einfach per drag and drop - alt. send toOption Explicit Dim WSHShell, fso, FileIn, FileOutDim Datei, Zielver, Text, Txt, i, arrSort, arrTest(), oArgsSet WSHShell = WScript.CreateObject("WScript.Shell")Set fso = WScript.CreateObject("Scripting.FileSystemObject")set oArgs = Wscript.Arguments Falls ein Argument übergeben wurde, sollte es einen Dateinamen enthaltenFor i = 0 to oArgs.Count - 1 ho ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
pablo am 14.12.2005 um 02:31 Uhr (0)
wachsames Holzauge IIPublic Sub ReplacePos(sFileName As String)sFileName = Name der DateiDim FNr As Long, sInclPos As String, s As String Datei öffnen FNr = FreeFile Open sFileName For Input As FNr Do While Not EOF(FNr) Line Input #FNr, s gelesene Zeile ersetzen und in String schreiben sInclPos = sInclPos & Replace(s, "zahlen", "POS-zahlen") & vbCrLf Loop Close FNr String in neue Datei schreiben FNr = FreeFile Open Left(sFileName, Len(sFileName) - 4) & "_Pos.txt" _ For Output As FNr Print #FNr, Lef ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
Garry am 17.12.2005 um 08:27 Uhr (0)
Hi,Danke hat wunderbar geklapptGarry
| | In das Form VBasic wechseln |
|
VBasic : Programmierung mit VBA/VB.Net unter Inventor/Excel
Gandalf64 am 12.01.2006 um 09:26 Uhr (0)
Hallo Zusammen,ich plane, einen Kurs in VBA bzw VB.Net-Programmierung zu belegen. Die Frage ist nur, was ist in Bezug auf Inventor das Beste, wenn man gleichzeitig trotzdem andere Bereiche des Alltagslebens mit abdecken will?Reicht ein Kurs VBA-Programmierung aus, bei dem man in Excel programmiert? Oder sollte man besser schon auf VB.Net gehn?Oder lernt man bei einem speziellen AutoCAD-Seminar "AutoCAD mit Makros und VBA optimieren" schon genug, um damit auch andere Dinge abseits der AutoCAD-Welt programmi ...
| | In das Form VBasic wechseln |
|
VBasic : Programmierung mit VBA/VB.Net unter Inventor/Excel
CEROG am 18.01.2006 um 06:51 Uhr (0)
Hallo Gandalf,ohne genauere Kenntnisse der Kursinhalze ist es schwer, dir einen RAt zu geben.Meiner Meinung nach wäre es sinnvoll, erst die Basis zu legen, also einen reinen VBA-Kursus, und sich dann mit der speziellen Inventor-API zu beschäftigen.Möglicherweise werden in dem AutoCad-VBA-Kurs aber keine Grundlagen benötigt. DAnn kannst du gleich den belegen. Excel und so kannst du dir ja dann später aneignen...Viele Grüße, CEROG ------------------ Inoffizielle Linux-HilfeseiteMeine Firma
| | In das Form VBasic wechseln |
|
VBasic : Nutzen PDF-ActiveX-Componente
BloodyMess am 19.01.2006 um 11:27 Uhr (0)
Hallo Heiko,Du und ich konnten eine PDF Datei nicht öffnen, weil wir einen AA Reader Version 6 installiert haben. In der Version 6.x gab es noch eine pdf.ocx. Dieses Steuerelement kann man in seine App einbinden und dann über PDF1.Load die Datei auf einem Formular anzeigen lassen. Du brauchst angeblich die Dateien pdf.ocx, pdf.tlb und pdf.DEU. Die Datei pdf.ocx muss registriert werden. Also als Admin in cmd ein regsvr32.exe pdf.ocx ausführen und sich freuen, wenn es klappt.In meiner App sieht der Aufruf d ...
| | In das Form VBasic wechseln |
|
VBasic : einlesen von koordinaten aus excel in autocad mit vba
tpmeyer am 05.02.2006 um 17:00 Uhr (0)
hallo zusammen, vielleicht hat jemand einen tipp.ich möchte gerne daten aus einer excel tabellen in autocad übertragen.diese möchte ich dann mittels vba bearbeiten und anschließend als koordinaten in autocad darstellen.danke im voraus.gruß
| | In das Form VBasic wechseln |
|
VBasic : einlesen von koordinaten aus excel in autocad mit vba
startrek am 05.02.2006 um 18:42 Uhr (0)
Hi & Willkommen,hier ein Beispiel von Acad aus Excel:Code:Sub test() Const xlup& = -4162 Dim xlApp As Object, xlWB As Object Dim i&, acP#(2) Set xlApp = CreateObject("excel.application") Set xlWB = xlApp.workbooks.Open("d:mappe1.xls") With ThisDrawing.ModelSpace For i = 1 To xlWB.Sheets(1).Cells(xlApp.Rows.Count, 1).End(xlup).Row spalte A [x] acP(0) = xlWB.Sheets(1).Cells(i, 1) Spalte B [y] acP(1) = xlWB.Sheets(1).Cells(i, 2) Spalte C [z] acP(2) = xlWB.Sheets(1).Cells(i, 3) .AddPoint ...
| | In das Form VBasic wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
