Search for a letter

[Bea]

Hey i am trying to make a gui with a button formation button and than a msg box show if there were any errors and how often the script ist startet by reading a text file

my problem is that i dont get it that the script scans for specific letters :S for example count only the "E" in the file

 

the Goal is that the Script counts the "E" "B" and "S" in the text file but right now it only counts ever letter :S somone know how to fix it, pls help a girl

$file = FileOpen("logs.txt", 0)
$charcount = -1

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

Do
    $chars = FileRead($file, 1)
    $charcount += 1
Until @error = -1


MsgBox(4096, "Info", "Bilder  geändert:   "& $charcount _
         & @CRLF & "Status geändert:   " & $charcount _
         & @CRLF & "FEHLER: " & $charcount )



FileClose($file)
Exit

 

[kosamja]

 

$ReadFile = FileRead('logs.txt')
StringReplace($ReadFile, 's', 's')
$CountOfCharS = @extended

 

[Bea]

25 minutes ago, kosamja said:

 

$ReadFile = FileRead('logs.txt')
StringReplace($ReadFile, 's', 's')
$CountOfCharS = @extended

 

sry how i need to implant this dont know where to put it can u put it inside the cod <3

[Subz]

Basically like this (untested).

Local $iSCount, $iBCount, $iECount
Local $sFileName = @ScriptDir & "\Logs.txt"
    If FileExists($sFileName) = 0 Then Exit MsgBox(4096, "Error", $sFileName & " could not be found.")
Local $sFileText = FileRead('logs.txt')
StringReplace($sFileText, 's', 's')
    $iSCount = @extended

StringReplace($sFileText, 'b', 'b')
    $iBCount = @extended

StringReplace($sFileText, 'e', 'e')
    $iECount = @extended

MsgBox(4096, "Info", "Bilder  geändert:   "& $iBCount _
         & @CRLF & "Status geändert:   " & $iSCount _
         & @CRLF & "FEHLER: " & $iECount)

 

[iamtheky]

do you need to count them all independently or just how many total?

$str = "Test with 10 characters are either 'e' 's' or 'b'."

msgbox(0, '' , ubound(StringRegExp($str , "e|s|b" , 3)))

 

[Bea]

7 hours ago, iamtheky said:

do you need to count them all independently or just how many total?

$str = "Test with 10 characters are either 'e' 's' or 'b'."

msgbox(0, '' , ubound(StringRegExp($str , "e|s|b" , 3)))

 

I need them to count them all independet for example if in the text file there is written  "bbsssfff"  2xb , 3xS, 3xF the rest works but by this purt i got stucked :S

[Nessie]

Try this:

#include <MsgBoxConstants.au3>
#include <FileConstants.au3>


$sFilePath = @ScriptDir & "\log.txt"

$hFileOpen = FileOpen($sFilePath, $FO_READ)

If $hFileOpen = -1 Or Not FileExists($sFilePath) Then
    MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
    Exit
EndIf

$sFileRead = FileRead($hFileOpen)

FileClose($hFileOpen)


StringReplace($sFileRead, "s", "s")
$i_S_Count = @extended

StringReplace($sFileRead, "b", "b")
$i_B_Count = @extended

StringReplace($sFileRead, "e", "e")
$i_E_Count = @extended

MsgBox($MB_ICONINFORMATION, "Info", "S occurrence: " & $i_S_Count & @CRLF & "B occurrence: " & $i_B_Count & @CRLF & "E occurrence: " & $i_E_Count)

 

[Bea]

1 hour ago, Nessie said:

Try this:

#include <MsgBoxConstants.au3>
#include <FileConstants.au3>


$sFilePath = @ScriptDir & "\log.txt"

$hFileOpen = FileOpen($sFilePath, $FO_READ)

If $hFileOpen = -1 Or Not FileExists($sFilePath) Then
    MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
    Exit
EndIf

$sFileRead = FileRead($hFileOpen)

FileClose($hFileOpen)


StringReplace($sFileRead, "s", "s")
$i_S_Count = @extended

StringReplace($sFileRead, "b", "b")
$i_B_Count = @extended

StringReplace($sFileRead, "e", "e")
$i_E_Count = @extended

MsgBox($MB_ICONINFORMATION, "Info", "S occurrence: " & $i_S_Count & @CRLF & "B occurrence: " & $i_B_Count & @CRLF & "E occurrence: " & $i_E_Count)

Man this worked Great, thank you so mouch i only have one question is it possible to color the numbers  for example "E occurrence:  4" if that would be possible it would be great

 

[Nessie]

It is not possible with the standard MsgBox function. Also you can see that udf. Or just simply make a GUI

[Subz]

Isn't that the same code I wrote?

[mikell]

6 hours ago, Subz said:

Isn't that the same code I wrote?

Seriously ? no.
The icon in the MsgBox is not the same