|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 07:24 Uhr (0)
Zitat:Original erstellt von Thomas Harmening:Code:Set textfile = fso.OpenTextFile("h: mpinput.txt", ForReading) Das Dateiobjekt wird auf die Datei gesetztDanke, Thomas Harmening!Das sieht schon mal vielversprechend aus.Jetzt aber: ich musste das Objekt "OpenTextFile" anders definieren: Code:Set textfile = fso.OpenTextFile("h: mpinput.txt", 1,0) Das Dateiobjekt wird auf die Datei gesetzt[nochmals versuchen.... unnötige-lange-quitschende-musik-um-künstliche-nervende-spannung-zu-erzeugen]Aaaah!!! Jetzt aber ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 08:48 Uhr (0)
bst, was ist da der Vorteil gegenüber dem Script von Thomas? Ich denke, dass da ein Vorteil ist, sonst hättest Du das nicht beigetragen.Ich werde es auf jeden Fall mal versuchen und auch einen Geschwindigkeitsvergleich machen.EDIT:Ok, sieht gut aus aber es filtert die erste Zahlengruppe nicht raus. ------------------ [Diese Nachricht wurde von G. Dawg am 09. Nov. 2007 editiert.]
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 11:21 Uhr (0)
bst, der genau Inhalt ist in den Daten die ich hochgeladen habe:Code:Nodes 0 33.36039 10.46330 1 33.36039 10.93934 3 33.36039 10.73939 3 33.36039 10.93991 4 33.36039 11.99993 9 33.36039 11.33999 6 33.36039 11.93997 7 33.36039 11.73993 3 33.36039 11.93999 139 33.36039 99.19000 33410 33.36039 99.39790 Leider beginnt (fast) jede Zeile mit mehr als einem Leerzeichen und da steht es bei mir an! :( Code:outtext = Mid$(test(i), 16, 99)ei ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 11:37 Uhr (0)
Ich habe es so versuchtCode: strOneLine = " 6 33.36039 11.93997 "strOneLine = Mid$(strOneLine, 12, 99) einfaches trimmendebug.print strOneLine " 33.36039 11.93997 "Do Dim vDummy vDummy = InStr(strOneLine, " ") strOneLine = Right(strOneLine, Len(strOneLine) - vDummy) debug.print strOneLine ***Loop While vDummy 0meine Zeile von den übrig bleibenden vorab-Leerzeichen zu befreien. Es löschte mir die ganze Zeile! *** debug.print ( "_" als Leerzeichen für die Formatierung):____33.36039 11.93997 ___3 ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 12:00 Uhr (0)
Leider weiss ich nie genau, wieviele Leerzeichen es wirklich sind.Das kommt ganz auf die Geometrie des Teiles an.... leider!!! Was ich weiss:[xLeerzeichen] [Zahlen die ich nicht brauche] [xLeerzeichen] [Zahlen die ich brauche] [xLeerzeichen] [Zahlen die ich brauche] und später einmal, kommt noch eine dritte (bzw. vierte) Spalte mit Zahlen, die ich brauche .... btw: es schneit!!!! ------------------
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 12:35 Uhr (0)
Zitat:Original erstellt von bst:Ist Dir mit sowas gedient?Ersetzt an jedem Zeilenanfang Leerzeichen + Ziffern + Leerzeichen durch nichts, via:re.Pattern = "^s+d+s+"^ Anfang der Zeiles+ beliebig viele Leerzeichend+ beliebig viele Zifferns+ beliebig viele LeerzeichenDas glaub ich ja nicht! Ich hatte keine Ahnung das VB auch RegEx kann (ich kenn das nur von PHP)!!! Ist ja geil!!*gutesbierzuschiebundaufswochenendetrinken* Ich werde das nach dem Mittagessen gleich ausprobieren!!! Kann es kaum erwarten.... @ ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 13:35 Uhr (0)
Zitat:Original erstellt von bst:Code:Print #intOutHandle, re.Replace(strOneLine, "")Hat bei mir nicht funktioniert. EDIT:So gehts:Code: strOneLine = re.Replace(strOneLine, "") Print #intOutHandle, strOneLine------------------ [Diese Nachricht wurde von G. Dawg am 09. Nov. 2007 editiert.]
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 14:04 Uhr (0)
Er hat einfach nichts in die Datei geschrieben?!? Keine Ahnung!Hier ist, was ich bis jetzt habe!Es gibt noch ein paar kleine Anpassungen ist aber soweit sehr viel besser, als das was ich heute Morgen hatte!Code:Option Explicit declarations, used windows API calls and constants Deklarationen, benötigte Windows API-Calls und KonstantenPublic Enum swLengthUnit_e swMM = 0 swCM = 1 swMETER = 2 swINCHES = 3 swFEET = 4 swFEETINCHES = 5 swANGSTROM = 6 swNANOMETER = 7 swMICRON = 8 swMIL = 9 swUIN = 10End ...
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 14:46 Uhr (0)
Das glaub ich ja nicht! Ich habe den Schnippsel aus einem Makro für SolidWorks, desshalb vermutlich! Muss ich gleich mal ausprobieren!Sieht ja 10000x einfacher aus!------------------
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 15:36 Uhr (0)
Das ist aber auch ganz schön, Thomas!Da wird doch glatt eine neue .txt (mit dem richtigen Namen! ) in das gleiche Verzeichnis gespeichert!Plus, ich habe einen Schritt gespart! Datei auswählen, Start drücken. Nun startet er direkt nach dem Auswählen! ------------------
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.11.2007 um 16:03 Uhr (0)
Gute Idee, brauch ich aber nicht Da die Daten nur zum ausprobieren in meinem temp sind.Bin noch an der Fehlerabfrage und dann werde ich das Script nochmals hier hinstellen - Für die, die es interessiert.Wünsche allen ein schönes Wochende!------------------
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
G. Dawg am 09.01.2008 um 13:29 Uhr (0)
So!Endlich habe ich eine einigermassen funktionstüchtige Version meines Makros!-- Siehe Anhang, Makro mit Beispieldateien.Einziges Problem ist noch, wenn die erste Reihe in X Achse eine negative Zahle ist (z.b. -0.01) und die nächste Zahl positiv ist (0.01) bricht das Programm ab!Ich weiss woran es liegt, aber ich weiss nicht wie ich es beheben kann! Ich habe einen Bias von 1mm der mir sicherstellt, dass wirklich nur die Kontur übernommen wird... Eigentlich sollte es nie einen negativen Wert für die X Achs ...
|
| In das Form Excel wechseln |
|
Excel : VB.net: ActiveSheet.PageSetup und Fusszeile
G. Dawg am 19.03.2009 um 14:52 Uhr (0)
Guten Tag!Da ich nun nicht mehr weiter weiss, dachte ich mir, frage ich mal hier nach:Ich habe ein Problem in einer VB.net Anwendung.Hier ist mal ein kleiner Ausschnitt:Code:Excel.ActiveSheet.PageSetup.CenterFooter = "&P / &N - " & Excel.Application.UserNameWenn ich die Anwendung laufen lasse, schreibt mir Excel (oder VB.net) eigentlich das da in die Tabelle: Code: herausgefunden per Makrorecorder.CenterFooter = "&Z / &F - fuerer_g"Ist : &Z und &F = "&[Pfad] / &[Datei]"Soll : &P und &N = "&[Seite] / &[Seit ...
|
| In das Form Excel wechseln |
