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?
PNVA:auto-tekst editing for dummies
"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.
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.
Kunne godt bruge et script til mine ongame hænder :-)
------
Lidt batch til dos
munge.exe ? eller er der noget som allerede kan bruges?
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...
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
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?
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
Man kan selvf også bare bruge www.pokerhand.org
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