Dos program til at rette i .txt filer

så du vil have slettet alt før .F ?

det er meget let i Excel

importer din txt fil så dine linjer står i A1,A2 osv

og indsæt
=HØJRE(A1; LÆNGDE(A1) - FIND(".F"; A1) + 1)
i B1

kopier den rensede tekst og indsæt i en ny textfil

Nej alt det der står før .F skal blive som det er, jeg har prøvet at åbne med exel med der kommer det hele i A1 ?

:-o

ok så du vil erstatte al tekst efter .F så det bliver ens i alle linjer ?

Ja :-)

OK

Lav et bibliotek indeholdende din fil (4040.txt)
lav en bat fil i samme bibliotek med følgende:



@echo off
setlocal enabledelayedexpansion

:: Angiv input- og outputfil
set "input_file=4040.txt"
set "output_file=erstat_efter_.F.txt"

:: Slet outputfilen, hvis den allerede findes
if exist "%output_file%" del "%output_file%"

:: Læs inputfilen linje for linje
for /f "usebackq delims=" %%A in ("%input_file%") do (
    set "line=%%A"

    :: Find positionen af ".F"
    for /f "tokens=1 delims=.F" %%B in ("!line!") do (
        set "trimmed_line=%%B"
    )

    :: Sæt den nye tekst på
    set "line_modified=!trimmed_line!.F0.0H200.I20.J200.K20.X200.Q200.R20.S20.U200.V10.W200Z20"

    :: Gem resultatet i outputfilen
    echo !line_modified! >> "%output_file%"
)

echo Erstatning færdig. Tjek filen "%output_file%" for resultatet.
endlocal



mvh
michael

Tak, jeg prøver lige i morgen :-)

Hej
det virker næsten men den sletter B, C, D, E, værdier de skal også stadig være der, der er kun A0.
kunne den lade være med at ændre linjer der starter med %, M99, O

Peter

:-o

prøv

@echo off
setlocal enabledelayedexpansion

:: Angiv input- og outputfil
set "input_file=4040.txt"
set "output_file=erstattet_før_.F.txt"

:: Slet outputfilen, hvis den allerede findes
if exist "%output_file%" del "%output_file%"

:: Læs inputfilen linje for linje
for /f "usebackq delims=" %%A in ("%input_file%") do (
    set "line=%%A"

    :: Spring linjer over, der starter med %, M99 eller O
    if "!line!"=="%*" goto skip_line
    if "!line:~0,3!"=="M99" goto skip_line
    if "!line:~0,1!"=="O" goto skip_line

    :: Find alt før .F
    for /f "tokens=1 delims=.F" %%B in ("!line!") do (
        set "before_f=%%B"
    )

    :: Tilføj ny tekst efter .F
    set "line_modified=!before_f!F0.0H200.I20.J200.K20.X200.Q200.R20.S20.U200.V10.W200Z20"

    :: Gem resultatet i outputfilen
    echo !line_modified! >> "%output_file%"
    goto end_of_line

    :skip_line
    echo Springer linje over: %%A

    :end_of_line
)

echo Erstatning færdig. Tjek filen "%output_file%" for resultatet.
endlocal


mvh
mchael

Den virker ikke ?

mvh
Peter