Feb 19, 2007, updated at 13:32:35 (UTC)

8734

Kommas vor und nach Text einfügen

Excel 97, .txt Datei

Hallo,

gibt es eine Möglichkeit über Excel oder Word 97 in einer Textdatei, kann auch importiert werden, vor und nach dem Text neun Kommas enfügen zu lassen?

Danke.

Please also mark the comments that contributed to the solution of the article

Content-Key: 52065

Url: https://administrator.de/contentid/52065

Printed on: April 23, 2024 at 14:04 o'clock

16 Comments

Latest comment

Hallo King,

vor und nach dem ganzen Text oder jeder Zeile oder wie? Und ist Word/Excel zwingend? Für mich klingt das eher nach bat...

BTW: Die Dinger heißen Kommata.... Kommas <schudder>

geTuemII

Also, in jeder Zeile steht ein Text. Vor diesem Text und nach diesem Text müssen die Kommata rein, in jeder Zeile. Excel/Word ist nicht zwingend, hauptsache es wird eine txt oder csv Datei daraus.

Ansatz:

::----kommata.bat
@echo off
FOR /F "delims=" %%i in ('type "quelldatei.txt"') do echo ,,,,,,,,,%%i,,,,,,,,, >>zieldatei.txt  
::-------------------

Die Schleifchen rundum darfst du selbst binden.

geTuemII

BTW: Die Dinger heißen Kommata....
Kommas <schudder>

geTuemII

Hallo geTuemII:

Für die Normal-Sterblichen, die des Griechischen nicht mächtig sind:
Der Duden lässt sowohl "Kommata", als auch "Kommas" zu. ;)

Es lebe die "neue" Rechtsschreibung...!

Der Duden lässt sowohl "Kommata", als auch
"Kommas" zu. ;)

Das hilft auch nix gegen aufgestellte Nackenhaare! Sagte ich schon, ich liebe Neues Deutsches Linksschrubs?!

Total OT,
geTuemII

Ansatz:

::----kommata.bat
> @echo off
> FOR /F "delims=" %%i in ('type  
> "quelldatei.txt"') do echo  
> ,,,,,,,,,%%i,,,,,,,,, >>zieldatei.txt
> ::-------------------
> 

Die Schleifchen rundum darfst du selbst
binden.

geTuemII

Hey cool, das setzt mir die Kommas/Kommata mal vor dem Text, aber nicht danach

Danke.

Wo ist denn diese Bewertunsfunktion hin?

Hallo thekingofqueens!

Versuch mal das folgende Script:

Const sInFile = "D:\Test.txt"  
Const sOutFile = "D:\TestMitC.txt"  
Const cVor = ","  
Const iVor = 9
Const cNach = ","  
Const iNach = 9

Set fso = WScript.CreateObject("Scripting.FileSystemObject")  
Set oInFile = fso.OpenTextFile(sInFile, 1)
Set oOutFile = fso.OpenTextFile(sOutFile, 2, True)
Do While Not oInFile.AtEndOfStream
	sZeile = oInFile.ReadLine
	oOutFile.WriteLine String(iVor, cVor) & sZeile & String(iNach, cNach)
Loop
oInFile.Close
oOutFile.Close

Grüße
bastla

Oh halt, die Kommatanten sind da, aber in ner einzelnen Spalte, nicht direkt hinter dem Text

Hey cool, das setzt mir die Kommas/Kommata mal vor dem Text, aber nicht danach

Das ist mir nicht ganz klar, bei mir werden beide gesetzt.

Wo ist denn diese Bewertunsfunktion hin?

Die hat Frank temporär entfernt, sollte aber eigentlich schon länger wieder da sein. Vielleicht haben sich ja bei der Aktualisierung Probleme ergeben.

geTuemII

Hast du zwischen dem %%i und den Kommuten einen Zeilenumbruch eingebaut?

geTuemII

@bastla:
Das widerpricht aber völlig dem Trend zum ONElineer in dieser abgeschiedenen Ecke des Forums.

geTuemII

Funktioniert ebenfalls, danke. *sehrhilfreichdrück*

Aber auch hier sind die Kommas nicht direkt hinter dem Text, sondern kommen erst ein ganzes Stück danach.

Kann es sein, daß die Leerpositionen aus deiner Quelldatei kommen?

geTuemII

@geTuemII

Willst Du wirklich sowas?

Set I=WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\Test.txt",1):Set O=WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\TestMitC.txt",2,True):Do While Not I.AtEndOfStream:O.WriteLine ",,,,,,,,,"&I.ReadLine&",,,,,,,,,":Loop:I.Close:O.Close  

Grüße
bastla

@thekingofqueens

Wenn Du sicher bist, dass Du keine Leerstellen brauchst, versuch es damit:

Const sInFile = "D:\Test.txt"  
Const sOutFile = "D:\TestMitC.txt"  
Const cVor = ","  
Const iVor = 9
Const cNach = ","  
Const iNach = 9

Set fso = WScript.CreateObject("Scripting.FileSystemObject")  
Set oInFile = fso.OpenTextFile(sInFile, 1)
Set oOutFile = fso.OpenTextFile(sOutFile, 2, True)
Do While Not oInFile.AtEndOfStream
    sZeile = oInFile.ReadLine
    oOutFile.WriteLine String(iVor, cVor) & Trim(sZeile) & String(iNach, cNach)
Loop
oInFile.Close
oOutFile.Close