PNVA:auto-tekst editing for dummies

#1| 0

Hej,
Jeg spekulerer på om nogen kender en nem måde, hvorpå man automatisk kan lave en serie søg- og erstat funktioner i en tekstfil.
Hvis f. eks. man har en HH hvor man vil lave farvekoder, erstatte sit nick med HERO mm, så er det hele 5 gange man skal til tasterne, et script der udfører kommandoerne automatisk ville være smart. Men hvordan uden dyb programmering kendskab?

10-11-2007 04:28 #2| 0

"Men hvordan uden dyb programmering kendskab?" - At lære det er vejen frem.

Programmerer selv C++, men vil anbefale www.autoitscript.com til det du skal ha' udført.

10-11-2007 14:10 #3| 0
OP

Det lyder interessant.
Hvilke ting bør jeg downloade?
Har det en grafisk brugerflade, eller skal man kunne koderne uden ad?

Har tidligere kun lavet scripts til MatLab, hvor det meste er relativt let og forprogrammeret, og søgefunktionen gør det nemt at finde de koder man mangler.

Det jeg leder efter er bare en mulighed for at køre et script der siger:
Åbn denne fil1.txt,
erstat x1 med y1, x2 med y2, x3 med y3 osv.
og gem som fil2.txt.

10-11-2007 14:11 #4| 0

Kunne godt bruge et script til mine ongame hænder :-)

10-11-2007 14:27 #5| 0
www.microsoft.com/technet/scriptcenter/resources/qanda/feb05/hey0208.mspx
------
Lidt batch til dos
munge.exe ? eller er der noget som allerede kan bruges?
10-11-2007 14:57 #6| 0
OP

Jeg fandt også den side da jeg googlede i nat.

Ved bare ikke helt hvordan jeg bruger det.
Tror at jeg ender med at spørge min nabo der læser software ingeniør...

10-11-2007 15:05 #7| 0

opretter en tekst fil hvor du indsætter alt fra det første grå felt. ændre de ting der skal ændres:
strNewText = Replace(strText, "PlayerName ", "Hero ")
og der hvor C:\Scripts\Text.txt står, skal du ændre den til din handhistory.txt.
Til slut gemmes filen som filnavn.vbs og åbner den (hvis filen fortsat bliver åbnet som en tekst fil og ikke som vbs filer nu åbnes. så gå i denne computer -> Functioner -> indstillinger... -> Mappeindstillinger -> vis -> fjern flueben i 'Skjul filtypenavne for kendte filtyper)

Men ellers er det nok nemmere lige at hive fat i ham

10-11-2007 15:19 #8| 0
OP

Hvordan kører jeg så scriptet?
Skriver jeg bare filnavnet i "kør" linjen?

Og nu var pointen at jeg gerne vil lave 5+ erstatninger med det samme script.
copy-paster jeg blot det tredje afsnit for hver erstatning jeg vil lave?

10-11-2007 15:36 #9| 0

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\handhistory.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText1 = Replace(strText, "drhoho", "Hero")
strNewText2 = Replace(strNewText1, "Dokkedal", "Villain")
strNewText3 = Replace(strNewText2, "tekst3", "TEKST3")
strNewText4 = Replace(strNewText3, "tekst4", "TEKST4")
strNewText5 = Replace(strNewText4, "tekst5", "TEKST5")
strNewText6 = Replace(strNewText5, "tekst6", "TEKST6")

Set objFile = objFSO.OpenTextFile("C:\handhistory.txt", ForWriting)
objFile.WriteLine strNewText6
objFile.Close

-----

Tror det må være sådan

10-11-2007 15:38 #10| 0

kører du ved at dobbeltklikke på vbs filen.

10-11-2007 16:16 #11| 0
OP

Lol, tusind tak for hjælpen.

10-11-2007 16:19 #12| 0

Man kan selvf også bare bruge www.pokerhand.org

10-11-2007 16:20 #13| 0

så lidt :)

10-11-2007 16:40 #14| 0
OP

Forbandet, alt scriptet gør er at slette indholdet af HH. :-(

10-11-2007 17:08 #15| 0
OP

Bug fundet.

Dette virker fint til Ladbrokes nu:

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("filelocation\filename.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText1 = Replace(strText, "Playername", "HERO")
strNewText2 = Replace(strNewText1, "of Hearts", "")
strNewText3 = Replace(strNewText2, "of Diamonds", "")
strNewText4 = Replace(strNewText3, "of Clubs", "")
strNewText5 = Replace(strNewText4, "of Spades", "")
strNewText6 = Replace(strNewText5, "Ace", "A")
strNewText7 = Replace(strNewText6, "King", "K")
strNewText8 = Replace(strNewText7, "Queen", "Q")
strNewText9 = Replace(strNewText8, "Jack", "J")

Set objFile = objFSO.OpenTextFile("filelocation\filename.txt", ForWriting)
objFile.WriteLine strNewText9
objFile.Close

10-11-2007 18:30 #16| 0

:-)

← Gå til forumoversigtenGå til toppen ↑
Skriv et svar