Help With Strings.

[Mumms]

I am opening a file and reading it, and I get this line from the file I am reading.:

^*^6fairplay ^Nchris ^&14:32:08 ^<demobase.eu

What I need is the charactor after the ^ only. (so the 6, N, &, < ) I don't want any other part of the string.

I've tried to split up this string but it is not really working. Are there any other methods to get the charactors after the ^

[notsure]

local $string = "^*^6fairplay ^Nchris ^&14:32:08 ^<demobase.eu"

for $i = 0 to stringlen($string)
    if stringmid($string,$i,1) = "^" Then
        msgbox(64,"^", (stringmid($string, ($i + 1),1)))
    EndIf
Next

You can also do this by stringsplit on ^ into an array or stringinstr, stringbetween etc., but i like the more exotic ways

Edited May 19, 2010 by notsure

[GEOSoft]

It looks like you missed one in your expected results but we can fix that.

$sStr = "^*^6fairplay ^Nchris ^&14:32:08 ^<demobase.eu"
$aMatch = StringRegExp($sStr, "\^(.)", 3);; return a 0 based array of matching characters

If really dont want the * AND if that * is always in the same place change the second line to

$aMatch = StringRegExp($sStr, "\^(.)", 3, 2)

Edited May 19, 2010 by GEOSoft

[Mumms]

Thanks for all of the help but I'm having problems :/

This is the error I got when I tried to run my program.

Error: Subscript used with non-Array variable.

Func getColors()

FileGetTime("demo/MP/qconsole.log")
 If Not @error Then
 FileOpen("demo/MP/qconsole.log", 0)
 $line2 = FileReadLine($file, -1)
 $fairplayline = StringInStr($line2, "fairplay", 2)
 $fairplayline = ($fairplayline - 2)
 If $fairplayline > 1 Then
     If $fpcolor = stringmid($line2,$fairplayline,1) Then
    for $i = 0 to stringlen($line2)
    If  $fpcolor = "^" Then
        $fpcolor = stringmid($line2, ($fairplayline + 1),1)
    EndIf
Next
EndIf
    EndIf
EndIf
bind()
EndFunc

Little Help?

Edited May 21, 2010 by Mumms

[Tvern]

Your example doesn't contain any subscripts, so I guess the error is in a different part of the script. Best check the error line number.

My advise is to use the StringRegExp Geosoft gave you btw. It's less code, faster execution and with probably more reliable.

[Mumms]

for $i = 0 to stringlen($line)
    $getBadChar = stringmid($line,($fp + 4),$i)
    If $getBadChar = "e" or "^" or StringIsUpper($getBadChar) or StringIsDigit($getBadChar) Then
           ;This is where I want to get the postion of where the $getBadChar is so that I can get a string that starts at
           ; ($fp + 4) and ends at ($getBadChar - 1)
    EndIf

Any Help?