Just a litle problem

[{NL}--Xantios---]

Goooood day mate's

i am making an simple litle script that reads a file , cuts some piece's of an then write it to an other file

now i have the file in the format

<contact type="1">The TEXT</contact>

i just only want to read The TEXT so , how can i do this ? o btw here is what i have made jet

$file = InputBox("XantiTools","Waar Staat de lijst met mail adressen ?")
fileread($file)
$count = 4
while 1 
$regel = FileReadLine($file,$count)
$count = $count + 1
$regel = $regel - "<contact type="
$regel = $regel - """1"""
$regel = $regel - "</contact>"
filewrite("uitvoer.txt",$regel &@crlf)
weND

[Xenobiologist]

Hi,

try this

Func _StringBetween1($s_String, $s_Start = 0, $s_End = 0)
    $s_Start = StringInStr($s_String, $s_Start) + StringLen($s_Start)
    Return StringMid($s_String, $s_Start, StringInStr($s_String, $s_End) - $s_Start)
EndFunc  ;==>_StringBetween1

So long,

Mega

[{NL}--Xantios---]

and how do i user this ? :">

[Xenobiologist]

Hi,

try this:

#include <file.au3>
#include <Array.au3>
$path1 = "1.txt"; your first file
$path2 = "2.txt"; your second file
Dim $array[1]

Dim $aRecords
If Not _FileReadToArray($path1, $aRecords) Then
    MsgBox(4096, "Error", " Error reading log to Array error:" & @error)
    Exit
EndIf

For $x = 1 To $aRecords[0]
    If StringInStr($aRecords[$x], '<contact type="1">') <> 0 Then
        _ArrayAdd($array, _StringBetween1($aRecords[$x], '<contact type="1">', "</contact>"))
    EndIf
Next

_FileWriteFromArray($path2,$array)

Func _StringBetween1($s_String, $s_Start = 0, $s_End = 0)
    $s_Start = StringInStr($s_String, $s_Start) + StringLen($s_Start)
    Return StringMid($s_String, $s_Start, StringInStr($s_String, $s_End) - $s_Start)
EndFunc  ;==>_StringBetween1

So long,

Mega