Need help with my function (few codelines)

[Sobiech]

Func _GetStrline($path, $text)
For $i = 1 To _FileCountLines($path) Step +1
    If FileReadLine ($path, $i) = $text Then
        $line = $i
        ExitLoop
    EndIf
Next
    return $line
EndFunc

I think this should work, but i have small problem with this

eg. line from test.txt

jabadaba

and my scripts wont work if i write

_GetStrLine("test.txt", "jaba")

because he fail if my line dont have spaces

how to set this to something like that?

_GetStrLine("test.txt", "*.*" & "jaba" & "*.*")

[AdmiralAlkex]

StringInStr()?

[PsaltyDS]

StringInStr()

[Sobiech]

ok ok stop ^^

Thx i will look at this func

[AlmarM]

Something like this?

expandcollapse popup

Local $Path = @ScriptDir & "\get_string_number.txt"
Local $String = Random(0, 50, 1)

For $i = 0 To 50
    FileWrite($Path, $i & @CRLF)
Next

$TestFunc = _GetStringLineNumber($String, $Path)

If $TestFunc = 0 Then
    MsgBox(0, "", "No results found.")
Else
    MsgBox(0, "", "String '" & $String & "' was found on linenumber: " & $TestFunc)
EndIf

Func _GetStringLineNumber($sString, $sFile, $iCase = 0)
    Local $iLineNumber = 0

    $hOpen = FileOpen($sFile, 0)
    $sRead = FileRead($hOpen)
    $aSplit = StringSplit($sRead, Chr(10))

    For $i = 1 To $aSplit[0]
        $iLineNumber += 1
        $sReadLine = FileReadLine($hOpen, $i)

        If $iCase = 0 Then
            If $sReadLine = $sString Then
                FileClose($hOpen)
                Return $iLineNumber
            EndIf

        EndIf

        If $iCase = 1 Then
            If $sReadLine == $sString Then
                FileClose($hOpen)
                Return $iLineNumber
            EndIf
        EndIf
    Next

    Return 0
EndFunc

EDIT: Wait, I missed something. :/

Nevermind this.

Edited May 26, 2010 by AlmarM

[Sobiech]

Yes, but this wont show me substring

I will edit this

[AlmarM]

Yes, but this wont show me substring

I will edit this

Substring?

EDIT:

Just noticed I dont need any $iLineNumber

expandcollapse popup

Local $Path = @ScriptDir & "\get_string_number.txt"
Local $String = Random(0, 50, 1)

For $i = 0 To 50
    FileWrite($Path, $i & @CRLF)
Next

$TestFunc = _GetStringLineNumber($String, $Path)

If $TestFunc = 0 Then
    MsgBox(0, "", "No results found.")
Else
    MsgBox(0, "", "String '" & $String & "' was found on linenumber: " & $TestFunc)
EndIf

Func _GetStringLineNumber($sString, $sFile, $iCase = 0)
    $hOpen = FileOpen($sFile, 0)
    $sRead = FileRead($hOpen)
    $aSplit = StringSplit($sRead, Chr(10))

    For $i = 1 To $aSplit[0]
        $sReadLine = FileReadLine($hOpen, $i)

        If $iCase = 0 Then
            If $sReadLine = $sString Then
                FileClose($hOpen)
                Return $i
            EndIf

        EndIf

        If $iCase = 1 Then
            If $sReadLine == $sString Then
                FileClose($hOpen)
                Return $i
            EndIf
        EndIf
    Next

    Return 0
EndFunc

Still, what do you mean by substring?

Edited May 26, 2010 by AlmarM

[Sobiech]

Substring?

If $sReadLine = StringInStr($sReadLine, $sString) Then

Hmmm whats wrong?

Substring is a "234" in eg. "12345"

Edited May 26, 2010 by Sobiech

[AlmarM]

If $sReadLine = StringInStr($sReadLine, $sString) Then

Hmmm whats wrong?

Substring is a "234" in eg. "12345"

Ah so, hold on. *Writes*

[GEOSoft]

If StringInStr($sReadLine, %sString) Then

If you would post a few lines of what the file contains and what you actually want returned from the example, it would help others help you.

EDIT: It is probably just a simple StringRegExp() or StringRegExpReplace() that you need but without seeing an example we can't tell you for sure.

Edited May 26, 2010 by GEOSoft

[PsaltyDS]

StringInStr() returns the integer location where the search string was found:

$sString = "jabadaba"

$iVal = StringInStr($sString, "jaba")
ConsoleWrite("$iVal = " & $iVal & @LF)

$iVal = StringInStr($sString, "daba")
ConsoleWrite("$iVal = " & $iVal & @LF)

$iVal = StringInStr($sString, "wxyz")
ConsoleWrite("$iVal = " & $iVal & @LF)

[AlmarM]

expandcollapse popup

Local $Path = @ScriptDir & "\get_string_number.txt"
Local $String = ","

FileWrite($Path, "t13est" & @CRLF)
FileWrite($Path, "test2" & @CRLF)
FileWrite($Path, "te131st3" & @CRLF)
FileWrite($Path, "test65" & @CRLF)
FileWrite($Path, "tes43thihi" & @CRLF)
FileWrite($Path, "tesst" & @CRLF)
FileWrite($Path, "te,stad" & @CRLF)
FileWrite($Path, "te4st" & @CRLF)
FileWrite($Path, "tes35sdt" & @CRLF)
FileWrite($Path, "tes1231t" & @CRLF)

$TestFunc = _GetStringLineNumber($String, $Path)

If $TestFunc = 0 Then
    MsgBox(0, "", "No results found.")
Else
    MsgBox(0, "", "String '" & $String & "' was found on linenumber: " & $TestFunc)
EndIf

Func _GetStringLineNumber($sString, $sFile, $iCase = 0)
    $hOpen = FileOpen($sFile, 0)
    $sRead = FileRead($hOpen)
    $aSplit = StringSplit($sRead, Chr(10))

    For $i = 1 To $aSplit[0]
        $sReadLine = FileReadLine($hOpen, $i)

        If $iCase = 0 Then
            If $sReadLine = $sString Or StringInStr($sReadLine, $sString) Then
                FileClose($hOpen)
                Return $i
            EndIf

        EndIf

        If $iCase = 1 Then
            If $sReadLine == $sString Or StringInStr($sReadLine, $sString)Then
                FileClose($hOpen)
                Return $i
            EndIf
        EndIf
    Next

    Return 0
EndFunc

Like this?

[Sobiech]

Perfect work!

Thx for all

i love you

[AlmarM]

No problem