|
Excel : Text Datei bearbeiten
Axel.Strasser am 08.11.2007 um 22:44 Uhr (0)
@Thomas: soweit ich erfahren habe mit 2007 nicht mehr , Kollege meinte er wäre mal in einer Tabelle runtergefahren und bei 1000000 hätte er dann aufgehört.Axel
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
Paulchen am 08.11.2007 um 22:51 Uhr (0)
Guten Abend zusammen,es sind 1.048.576, er war fast am Ende . Ne gute Quelle ist xLimits.Frederik------------------DIN1055.de | Lastannahmen für Anwender
|
| In das Form Excel wechseln |
|
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
bst am 09.11.2007 um 08:39 Uhr (0)
Morgen auch,FWIW, ich hätte das so angefangen.CU, Bernd-- Code:Option ExplicitSub x() Dim intInpHandle As Integer Handle Eingabedatei Dim intOutHandle As Integer Handle Ausgabedatei Dim strOneLine As String Eine Zeile Dim intPos As Integer Position des 1. Leerzeichens in einer Zeile intInpHandle = FreeFile Open "e: estinp.txt" For Input As #intInpHandle intOutHandle = FreeFile Open "e: estout.txt" For Output As #intOutHandle Do While Not EOF(intInpHandle) Line Input #intInpHand ...
|
| 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
bst am 09.11.2007 um 10:58 Uhr (0)
Hi, Zitat:aber es filtert die erste Zahlengruppe nicht raus.Hmm, dann hatte ich wohl die Anfrage nicht richtig verstanden. Ich dachte Deine Eingabedaten hätten die Form:0 123.456 78.9011 323.456 178.901..38875 38.328 59.333und Du willst da die erste Zahl rauslöschen, also alles vom Zeilenanfang bis inklusive des ersten Leerzeichens. Zitat:bst, was ist da der Vorteil gegenüber dem Script von Thomas?IMHO sollte es:a) noch schneller sein, da es auf den hier unnötigen "Redim Preserve" verzichtet undb) auch mit ...
|
| 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
bst am 09.11.2007 um 11:53 Uhr (0)
Hi,ist Dir das Ausgabeformat egal, d.h. kann es auch:33.36039X11.93997sein wobei X exakt ein Leerzeichen ist?Oder müssen da exakt 4 Leerzeichen sein, oder exakt so viele wie eingelesen wurden, oder ??CU, Bernd
|
| In das Form Excel wechseln |
|
Excel : Text Datei bearbeiten
Axel.Strasser am 09.11.2007 um 11:57 Uhr (0)
Gilbert, ich würde Excel die Arbeit machen lassen und die Datei ins Excel nehmen, dann hast Du das ganze Problem mit den Blanks nicht. Sonst musst Du Dich noch mit Trim und Such Funktion umeinanderschlagenAxel[Diese Nachricht wurde von Axel.Strasser am 09. Nov. 2007 editiert.]
|
| 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
bst am 09.11.2007 um 12:11 Uhr (0)
Hi,hmm, jetzt habe auch ich (endlich) die angehängten Dateien gefunden ...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 LeerzeichenCU, Bernd-- Code:Option ExplicitSub x() Dim intInpHandle As Integer Handle Eingabedatei Dim intOutHandle As Integer Handle Ausgabedatei Dim strOneLine As String Eine eingelesene Zeile Dim intPo ...
|
| 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 |
