[Problem]FileReadLine a znaki { i }

[pffflstlss]

No wlasnie, gdy traktuje plik FileReadLine'm, wszystko znajduje ladnie oprocz linii ze znakami { i } (byc moze jeszcze jakies inne, ale nie zauwazylem). W wypadku wystapienia tych znakow program 'zjada' znak przed nimi, a ich samych nie wyswietla, czyli:

 

zamiast

smaczna{kupa} wczyta smacznkup

 

Zdaje sobie sprawe, ze pewnie traktuje te znaki jako jakis special char, ale jest jakas prosta metoda na wczytanie wszystkich znakow w plain text-cie?

 

Problem prawdopodobnie nie jest najwyzszych lotow

[Phoenix_PL]

kod poproszę? wróżką nie jestem.

[pffflstlss]

kod poproszę? wróżką nie jestem.

nie musisz byc. Problem przedstawiony dosc jasno. No ale niech bedzie...

 

Mam bota (StealthBot), ktorego logi parsuje, i taki przykladowy 1-linijkowy log z pliku caughtphrases.htm

 

<B>08-18-2013 - 8:54:28 PM - WHISPER pffflstlss{ABC}: </B><i>.WOJNA</i><br>

 

przy uzyciu fragmentu kodu ponizej:

 

While $line = ""
      $file = FileOpen("C:/Users/user/AppData/Roaming/StealthBot/POCA/CaughtPhrases.htm", 0)
      $line = FileReadLine($file)
      sleep(1000)
   WEnd

 

w miejsce

pffflstlss{ABC}

wczyta

pffflstlsAB

 

 

Inaczej mowiac po pobraniu nicka do tablicy

 

$ujebac = StringInStr($line, "WHISPER", 1)
   If $ujebac > 0 Then
      $password = Random(1, 99, 1)
      $result = StringTrimLeft($line, $ujebac+7) ;co nas interesuje, ujebujemy smieci przed nickiem
      $username = StringSplit($result, ":")

w $username[1] bedzie "pffflstlsAB"

[MacroMAN]

Kod działa bez zarzutu z wersją 3.3.8.1

 

 

 

W msgbox pokazuję się

pffflstlss{ABC}

Local $file = FileOpen("CaughtPhrases.htm", 0)

If $file = -1 Then
MsgBox(0, "Error", "Nie moge otworzyc pliku.")
Exit
EndIf

While 1
Local $line = FileReadLine($file)
If @error = -1 Then ExitLoop
$ujebac = StringInStr($line, "WHISPER", 1)
If $ujebac > 0 Then
$password = Random(1, 99, 1)
$result = StringTrimLeft($line, $ujebac+7)
$username = StringSplit($result, ":")
MsgBox(0, "Czytanie Linii:",$username[1])
Endif
WEnd

FileClose($file)
 

[M4niak]

Wczytuj binarnie

[pffflstlss]

 

Kod działa bez zarzutu z wersją 3.3.8.1

 

 

 

W msgbox pokazuję się

 

pffflstlss{ABC}

Local $file = FileOpen("CaughtPhrases.htm", 0)

If $file = -1 Then
MsgBox(0, "Error", "Nie moge otworzyc pliku.")
Exit
EndIf

While 1
Local $line = FileReadLine($file)
If @error = -1 Then ExitLoop
$ujebac = StringInStr($line, "WHISPER", 1)
If $ujebac > 0 Then
$password = Random(1, 99, 1)
$result = StringTrimLeft($line, $ujebac+7)
$username = StringSplit($result, ":")
MsgBox(0, "Czytanie Linii:",$username[1])
Endif
WEnd

FileClose($file)
 

Ooo, okej dzieki, to zaweza krag podejrzanych.

 

EDIT: no coz, okazalo sie ze zamiast szukac bledu w kodzie, skladni czy argumentach linereada, moglem upewnic sie najpierw, ze nie jestem imbecylem. SOLVED

EDIT2: no nie moge z tego, caly program po angielsku tylko nie moglem sie oprzec temu 'ujebywaniu'. Bylem kiedys wielkim fanem skracarki URL-ów ujeb.pl