[MS-DOS] Laatste karakter verwijderen van txt bestanden

[Rahvin47]

Hoi,

Ik heb een reeks log-files, waarvan het laatste karakter een "return" is.
Die moet weg.
Weten jullie een bat-script om het LAATSTE karakter van een aantal txt files te wijzgen/verwijderen?

Zelf zat ik te denken aan echo <backspace> >>logfile.txt
En dan ipc <backspace> het ascii commando ervoor...
Is dat niet zoiets als ^B ?

Alvast bedankt!

[trigger808]

ik weet het niet zeker en heb helaas geen mogelijkheid tot testen:

in DOS:
rename *.log ?????.* (waarbij * en ? ook echt die tekens zijn en de ? het aantal goede letters is

in Windows:
alle log files selecteren en dan 1 renamen en elk bestand krijgt die naam met (1) (oplopend) erachter

[EXX]

Ik begrijp eruit dat je het laatste karakter IN de file bedoeld dat weg moet. Dit gaat in DOS met een batch file niet lukken, daar zul je toch echt een of ander progsel voor moeten schrijven.

[Rahvin47]

EXX schreef op woensdag 05 januari 2005 @ 16:34:
Ik begrijp eruit dat je het laatste karakter IN de file bedoeld dat weg moet. Dit gaat in DOS met een batch file niet lukken, daar zul je toch echt een of ander progsel voor moeten schrijven.

Hier gaat het om inderdaad.
Sorry dat ik niet zo duidelijk was.
Heb jij een idee van zo'n progsel?

Alvast bedankt...

[Verwijderd]

effe snel dan:

code:

DIM temp AS STRING * 1
invoer$ = bestandsnaam1
uitvoer$ = bestandsnaam2
OPEN invoer$ FOR BINARY AS #1
OPEN uitvoer$ FOR BINARY AS #2
  FOR i = 1 TO LOF(1) - 1
    GET #1, , temp
    PUT #2, , temp
  NEXT i
CLOSE #1, #2

(qbasic)
Moet wel je input en output verschillen en je output mag niet betsaan hij ramt gewoonweg domweg allles over behalve laatste byte


Maar ik ga werken

[Rahvin47]

Dat heb je ff goed gedaan
Kan ik ook zoiets in VBA for Excel doen?
Of kan die niet zo met files opschieten?

[Acheron]

Wat een onzin zeg, tuurlijk kan dit wel met een batch, probeer het eens met

code:

findstr

[RobIII]

VBA:

Visual Basic .NET:

Dim fIn as integer
Dim fOut as integer
Dim sTMP as string

fIn = FreeFile
Open "C:\bla.log" For Binary as #fIn
fOut = FreeFile
Open "C:\Bla_new.log" For Binary as #fOut

sTmp = String(Lof(fIn)," ")
Get #fIn,,sTmp
Close #fIn

sTmp = Left(sTmp,Len(sTmp)-1)
Put #fOut,,sTmp
Close #fOut

Zoiets, uit de losse pols...
Staat er overigens alleen een Carriage Return, of een Line-Feed Carriage Return? Want dan dien je dus 2 bytes achteraan te verwijderen...Regel 14 wordt dan dus:

Visual Basic .NET:

sTmp = Left(sTmp,Len(sTmp)-2) 

[ Voor 55% gewijzigd door RobIII op 06-01-2005 14:44 ]

[Rahvin47]

WOW Dat is snel!

Thanks dude!
Ik ga het meteen proberen!

[EXX]

hp38guser schreef op donderdag 06 januari 2005 @ 14:39:
Wat een onzin zeg, tuurlijk kan dit wel met een batch, probeer het eens met

code:

findstr

findstr is geen standaard MS-DOS batch command. Het bestaat alleen in Win2000/XP cmd box; voor WinNT moet je een package installeren.

[RobIII]

Rahvin47 schreef op donderdag 06 januari 2005 @ 14:43:
WOW Dat is snel!

Je kunt coden of je kunt het niet hé

Rahvin47 schreef op donderdag 06 januari 2005 @ 14:43:
Thanks dude!
Ik ga het meteen proberen!

Graag gedaan. Overigens is de findstr die hp38guser suggesteert ook niet onaardig, maar dan moet je dus met regular expressions aan de slag

EXX schreef op donderdag 06 januari 2005 @ 14:45:
[...]
findstr is geen standaard MS-DOS batch command. Het bestaat alleen in Win2000/XP cmd box; voor WinNT moet je een package installeren.

VBA werkt ook niet onder MS-Dos en TS vroeg er toch om...

[ Voor 30% gewijzigd door RobIII op 06-01-2005 14:47 ]

[Acheron]

Ik had het ook niet over een ms-dos batch

[EXX]

Tja, eeh, in de topic titel staat toch echt [MS-DOS], dus dan ga ik er vanuit dat er een DOS batch in elkaar gefrutsteld moet worden

[The Eagle]

Zelf schrijven

UltraEdit kan dit gewoon hoor, en als ik me niet vergis ook in batch

(kan het nu alleen niet checken want ik zit helaas gelukkig (heb 2 weken vakantie ) niet op mijn werk, waar ik UEdit vrijwel dagelijks gebruik)

[ Voor 10% gewijzigd door The Eagle op 06-01-2005 14:54 ]

[Rahvin47]

In de titel stond inderdaad MS-DOS.
Ik wist niet dat vanuit een excel VBA script ook gewoon txt-bestanden kon openen en bewerken.
Nu begrijp ik ook waarom excel vraagt of je macro's wilt enablen

Bedankt voor jullie reacties!

[Rahvin47]

Ik voer deze code in in mijn VBA scriptje

Set InputFile = "G:\Iedereen\SPITS\correctie\Temp\" & BestandsnaamJRN

BestandnaamJRN is ervoor al gedefinieerd (dmv van InputBox)
Hij zegt echter Object vereist of zoiets???

Een paar regels ervoor dat hij zelf :
ActiveWorkbook.SaveAs Filename:="G:\Iedereen\SPITS\correctie\Temp\" & BestandsnaamJRN _
, FileFormat:=xlUnicodeText, CreateBackup:=False

Wat doe ik fout?
Kan ik de variabele niet aanwijzen als een combinatie van twee strings?

[Rahvin47]

Laat maar :-)
Ik hebt het Set commando weggehaald, dan doet ie het wel!