String Parsing issues

[modernes]

Hi,

I am trying to parse a string to extract the first name and last name from a text file, which is formatted as follows:

From: last name, first name

Sent: Tuesday, October 10, 2006 3:07 PM

This is how far I am now:

dim $intReturn

$intReturn = StringInStr(ClipGet(),"From: ",0,1)

Does anyone know how I would grab the last name and first name from the string?

[Rad]

Well if your file is exactly:

From: last name, first name (line 1)
Sent: Tuesday, October 10, 2006 3:07 PM (line 2)

then you could use FileReadLine(), then it should return "From: last name, first name"

StringTrimLeft("From: last name, first name", 6) = "last name, first name"

$names = StringSplit("last name, first name", ", ")

$name[1] = Last name

$name[2] = First name

But thats a poor way of doing it...

[modernes]

I finally got the solution to the problem - here's what I did if anyone cares to look:

Func parseDesc()

    dim $intReturn, $intLen
    dim $strName, $strEmail, $strMain
    dim $intBegin, $intEnd
    
    $strMain = ClipGet()
    
    $intBegin = StringInStr($strMain,"From: ",0,1) + 6
    $intEnd = StringInStr($strMain,"Sent: ",0,1)-2
    
    $strName = StringSplit(StringMid($strMain,$intBegin, $intEnd-$intBegin),",")

        EndFunc

So the name would be $strName[1], for the last name and $strName[2], would be for the first name

[SmOke_N]

[0] = Last Name | [1] = First Name Unless you use 3 as a flag, then it will return all of the occurrences: And you'll need to separate with a Loop stepping 2.

The #include <array.au3> and the _ArrayDisplay() are just to let you see the result:

#include <array.au3>
$str = "From: last name, first name"
$a = StringRegExp($str, '\w*:\s(\w*\s\w*),\s(\w*\s\w*)', 1)
_ArrayDisplay($a, '')