is there any specific command to copy text between particulat string??

[sree161]

Hi
i have  a text file which has a specific word i.e name 7 or 8 times in it along with some other text.
i have to pick text between each "name" and save it to an array.

can someone help me with the logic?

Eg:
Input:
sajfkjdsaf
name
ajhsdfkajfdajsjdflkjafa
afdhjsahlfkaf
ajfkhdsakfasf
akjfkjafd
name
asfjksajf
kdajsfpa
alkdshfahsf
nameajslkfja
aslkfajnbfajn
Output:
$s[1]: sajfkjdsaf
$s[2]: ajhsdfkajfdajsjdflkjafa
afdhjsahlfkaf
ajfkhdsakfasf
akjfkjafd
$s[3]:
asfjksajf
kdajsfpa
alkdshfahsf
nameajslkfja
aslkfajnbfajn
asfjksajf
$s[4]
kdajsfpa
alkdshfahsf
nameajslkfja
aslkfajnbfajn

 

 

can some one help me in this??

 

Thaks in advance,

sree161

Edited August 22, 2017 by sree161

[water]

Can you post an example what you expect as output based on your input?

What have you tried so far?

[mikell]

water, it's not very clear but input and output are written in the provided text - I suppose so

sree161
You might try StringSplit with "name" as delimiter and the flag $STR_ENTIRESPLIT

 

[Malkey]

This example assumes the last two elements of the generated array always require the same string manipulation as displayed in Post #1 Output.

expandcollapse popup

Local $Input = _
        "sajfkjdsaf" & @CRLF & _
        "name" & @CRLF & _
        "ajhsdfkajfdajsjdflkjafa" & @CRLF & _
        "afdhjsahlfkaf" & @CRLF & _
        "ajfkhdsakfasf" & @CRLF & _
        "akjfkjafd" & @CRLF & _
        "name" & @CRLF & _
        "asfjksajf" & @CRLF & _
        "kdajsfpa" & @CRLF & _
        "alkdshfahsf" & @CRLF & _
        "nameajslkfja" & @CRLF & _
        "aslkfajnbfajn"

$s = StringSplit($Input & "name" & @CRLF, "name" & @CRLF, 1) ; $STR_ENTIRESPLIT (1) = entire delimiter string is needed to mark the split
$iLRI = UBound($s) - 1 ; Last Array Index
$s[$iLRI] = @CRLF & StringRegExpReplace($s[$iLRI - 1], "^.+\v+(?s)(.+)$", "$1") ; Add preceeding line feed, and, remove first line of $s[2nd last array index].  This become $s[last array index].
$s[$iLRI - 1] = @CRLF & $s[$iLRI - 1] & @CRLF & StringRegExpReplace($s[$iLRI - 1], "(^.+\v+)(?s).+$", "$1") ; Add preceeding line feed, and, add  copy of first line of $s[2nd last array index to end of $s[2nd last array index]

Local $sDisplay = "Output;" & @CRLF
For $i = 1 To UBound($s) - 1
    $sDisplay &= "$s[" & $i & "]: " & $s[$i]
Next
;ConsoleWrite($sDisplay & @CRLF)
MsgBox(0, "Results", $sDisplay)

#cs ; From Post #1
    Output:
    $s[1]: sajfkjdsaf
    $s[2]: ajhsdfkajfdajsjdflkjafa
    afdhjsahlfkaf
    ajfkhdsakfasf
    akjfkjafd
    $s[3]:
    asfjksajf
    kdajsfpa
    alkdshfahsf
    nameajslkfja
    aslkfajnbfajn
    asfjksajf
    $s[4]
    kdajsfpa
    alkdshfahsf
    nameajslkfja
    aslkfajnbfajn
#ce

 

[sree161]

6 hours ago, Malkey said:

This example assumes the last two elements of the generated array always require the same string manipulation as displayed in Post #1 Output.

expandcollapse popup

Local $Input = _
        "sajfkjdsaf" & @CRLF & _
        "name" & @CRLF & _
        "ajhsdfkajfdajsjdflkjafa" & @CRLF & _
        "afdhjsahlfkaf" & @CRLF & _
        "ajfkhdsakfasf" & @CRLF & _
        "akjfkjafd" & @CRLF & _
        "name" & @CRLF & _
        "asfjksajf" & @CRLF & _
        "kdajsfpa" & @CRLF & _
        "alkdshfahsf" & @CRLF & _
        "nameajslkfja" & @CRLF & _
        "aslkfajnbfajn"

$s = StringSplit($Input & "name" & @CRLF, "name" & @CRLF, 1) ; $STR_ENTIRESPLIT (1) = entire delimiter string is needed to mark the split
$iLRI = UBound($s) - 1 ; Last Array Index
$s[$iLRI] = @CRLF & StringRegExpReplace($s[$iLRI - 1], "^.+\v+(?s)(.+)$", "$1") ; Add preceeding line feed, and, remove first line of $s[2nd last array index].  This become $s[last array index].
$s[$iLRI - 1] = @CRLF & $s[$iLRI - 1] & @CRLF & StringRegExpReplace($s[$iLRI - 1], "(^.+\v+)(?s).+$", "$1") ; Add preceeding line feed, and, add  copy of first line of $s[2nd last array index to end of $s[2nd last array index]

Local $sDisplay = "Output;" & @CRLF
For $i = 1 To UBound($s) - 1
    $sDisplay &= "$s[" & $i & "]: " & $s[$i]
Next
;ConsoleWrite($sDisplay & @CRLF)
MsgBox(0, "Results", $sDisplay)

#cs ; From Post #1
    Output:
    $s[1]: sajfkjdsaf
    $s[2]: ajhsdfkajfdajsjdflkjafa
    afdhjsahlfkaf
    ajfkhdsakfasf
    akjfkjafd
    $s[3]:
    asfjksajf
    kdajsfpa
    alkdshfahsf
    nameajslkfja
    aslkfajnbfajn
    asfjksajf
    $s[4]
    kdajsfpa
    alkdshfahsf
    nameajslkfja
    aslkfajnbfajn
#ce

 

This is wat i was looking for thanks for the code again

[sree161]

18 hours ago, mikell said:

water, it's not very clear but input and output are written in the provided text - I suppose so

sree161
You might try StringSplit with "name" as delimiter and the flag $STR_ENTIRESPLIT

 

I got output using this