Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien
Toon posts:

Alle .doc's voorzien van ongewilde tekst

Pagina: 1
Acties:

Verwijderd

Topicstarter
Tot mijn grote schrik zie kwam ik eracheter dat al mijn .doc-bestanden (rond de 150) besmet zijn. Hoe dit tot stand is gekomen heb ik geen enkel idee van. Heb alleen schijfcontrole, -defragementatie en chkdsk gerund.

Elke eerste twee regels bevatten steeds rare tekens:

<&FaFS*DMG(VBPL>>:<{<AAA(@#E etc. en dan twee regels lang.

Vanaf dit punt (eerste 2 regels vreemde tekens, 3e een enter en vanaf regel 4 onaangetaste document) zijn alle documenten onaangetast.

Mijn vraag is, bestaat er misschien een soort van Mass Text editor waarmee je de eerste 3 regels van ELK tekstdocument kan verwijderen of elk document wat begint met '<&F' en dan de hele regel. Volgens mij is dit een heel schaars probleem, want heb er nergens op internet over gelezen.

Alvast bedankt!

  • Johnny
  • Registratie: December 2001
  • Laatst online: 15:06

Johnny

ondergewaardeerde internetguru

Is het niet handiger om een backup terug te zetten?

Aan de inhoud van de bovenstaande tekst kunnen geen rechten worden ontleend, tenzij dit expliciet in dit bericht is verwoord.


Verwijderd

Topicstarter
Je raad 't al, niet gedaan.. Het is geen ramp om het allemaal handmatig te doen, maar kost veel tijd.. En misschien wel zonde als er programma's voor bestaan!

Verwijderd

Verwijderd schreef op dinsdag 10 augustus 2010 @ 16:09:
Mijn vraag is, bestaat er misschien een soort van Mass Text editor waarmee je de eerste 3 regels van ELK tekstdocument kan verwijderen of elk document wat begint met '<&F' en dan de hele regel.
Ja, dat kan. Vereist wel een beetje scripting:

Download autoitscript: http://www.autoitscript.com/

Gooi je .doc bestanden in 1 folder

Lees met je autoitscript alle files in een array.

Rest is een For..Next loopje met "lees file" een string_replace en vervolgens "write file"...

(oh ja: snelle functie handleiding: http://www.autoitscript.com/autoit3/docs/functions.htm )

[ Voor 7% gewijzigd door Verwijderd op 10-08-2010 16:19 ]


  • TheRookie
  • Registratie: December 2001
  • Niet online

TheRookie

Nu met R1200RT

Verwijderd schreef op dinsdag 10 augustus 2010 @ 16:09:
[knip]
Heb alleen schijfcontrole, -defragementatie en chkdsk gerund.
[knip]
Zou je niet, voordat je de doc's gaat repareren een (online) virus-scan doen om een eventuele besmetting te verwijderen, anders kan je straks het hele riedeltje nog een keer gaan doen :P

Verwijderd

Topicstarter
Verwijderd schreef op dinsdag 10 augustus 2010 @ 16:18:
[...]

Ja, dat kan. Vereist wel een beetje scripting:
Dank! Heb je niet even snel de code die ik moet gebruiken? Kant en klaar? Alle regels beginnen dus met '<&FaFS' en vanaf dan worden ze variabel.

Ben totale leek wat scripting betreft.
TheRookie schreef op dinsdag 10 augustus 2010 @ 16:20:
[...]

Zou je niet, voordat je de doc's gaat repareren een (online) virus-scan doen om een eventuele besmetting te verwijderen, anders kan je straks het hele riedeltje nog een keer gaan doen :P
Done, geen virussen!

[ Voor 37% gewijzigd door Verwijderd op 10-08-2010 16:33 ]


  • Wish
  • Registratie: Juni 2006
  • Nu online

Wish

ingwell

:| ok... hoe zijn de documenten dan besmet geraakt? Of bedoel je: geen virussen meer...?

No drama


Verwijderd

Topicstarter
Wish schreef op dinsdag 10 augustus 2010 @ 16:40:
[...]

:| ok... hoe zijn de documenten dan besmet geraakt? Of bedoel je: geen virussen meer...?
Bedoelde dat ik de virusscanner heb gerund en dat m'n computer virusvrij is. Geen idee hoe ze besmet geraakt zijn, nog nooit meegemaakt zoiets.

  • Barleone
  • Registratie: Maart 2009
  • Laatst online: 14:27
'besmet' is dan misschien een groot woord. Blijkbaar is er gewoon iets misgegaan tijdens:
Heb alleen schijfcontrole, -defragementatie en chkdsk gerund.

Tweakers.net 6 nostalgie! - Wayback Machine
Have you tried turning it off and on again?


  • DigiK-oz
  • Registratie: December 2001
  • Laatst online: 11:54
En als je een nieuw document aanmaakt? Misschien is je normal.dot wel corrupt geraakt en wordt deze bij elk document wat je opent gelinked?

Whatever


  • Orion84
  • Registratie: April 2002
  • Laatst online: 15:22

Orion84

Admin General Chat / Wonen & Mobiliteit

Fotogenie(k)?

Maak in elk geval even een backup voor je er allerlei tools en scripts op los gaat laten, voor je het weet maak je het nog erger :)

En hou er ook rekening mee dat Word bestanden niet enkel uit platte tekst bestaan, dus of je zomaar met een script die bestanden kan aanpassen is maar de vraag. Wellicht dat een macro in Word zelf een betere optie is.

The problem with common sense is that it's not all that common. | LinkedIn | Flickr


Verwijderd

Verwijderd schreef op dinsdag 10 augustus 2010 @ 16:33:


Dank! Heb je niet even snel de code die ik moet gebruiken? Kant en klaar? Alle regels beginnen dus met '<&FaFS' en vanaf dan worden ze variabel.

Ben totale leek wat scripting betreft.
De code is erg lelijk (maar werkt wel) en ik sta niet in voor enige schade wat dan ook ;)

installeer autoitscript
maak een map en zet daarin je .doc bestanden
Zet deze code in een bestandje "script.au3" in diezelfde map
Maak een nieuwe map C:\NieuweMap\
Start script.au3


code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
$search = FileFindFirstFile(@scriptdir&"\*.doc")  
$newpath = "C:\NieuweMap\"
$badcode = "<&FaFS"

If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

dim $lelijk[999]
$tel = 0
While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $tel = $tel + 1
    $lelijk[$tel] = $file
WEnd
FileClose($search)

$x = 1
do 
    $file = FileOpen(@scriptdir&"\"&$lelijk[$x], 0)
    $filenew = FileOpen($newpath & $lelijk[$x], 2)
    MsgBox(4096, "Files: ",$lelijk[$x])
    While 1
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        if StringInStr($line,$badcode) then
            ;ignore
        else
            FileWriteLine($filenew, $line)
        endif
    wend    
    
    $x = $x+1
    FileClose($filenew)
    FileClose($line)
until $x = $tel 

;Done!

Verwijderd

Topicstarter
-

[ Voor 100% gewijzigd door Verwijderd op 10-08-2010 17:16 ]


Verwijderd

Topicstarter
Verwijderd schreef op dinsdag 10 augustus 2010 @ 17:05:
[...]


De code is erg lelijk (maar werkt wel) en ik sta niet in voor enige schade wat dan ook ;)
Doet het.. Top! Dank je!

Verwijderd

Topicstarter
En de rest natuurlijk ook.

Verwijderd

Graag gedaan.
Pagina: 1