Rem
bbdoc: Streams/StringStream
End Rem
Module DAK.StringStream

Import BRL.Retro

ModuleInfo "Version: 1.00"
ModuleInfo "Author: DAK"

Rem
bbdoc: Streamobject used for Stringstreams
about:
End Rem
Type TStringStream
   Field sStr:String, iPos:Int, sep:String
   
   Rem
   bbdoc: Returns 1 if the stringstream comes to an end.
   about:
   End Rem
   Method Eof:Byte()
      If iPos=0 Then Return 1
   End Method
   
   Rem
   bbdoc: Reads the next line of the stringstream.
   about:
   End Rem
   Method ReadLine:String()
      If iPos=0 Then Return ""
      Local iPos2:Int = Instr(sStr, sep, iPos+1)
      Local out:String
      If iPos2>0 Then out = Mid(sStr, iPos+Len(sep), iPos2-iPos-Len(sep))
      iPos = iPos2
      Return Replace(out, sep, "")
   End Method
   
   Rem
   bbdoc: Writes a line after the last read line.
   about:
   End Rem
   Method WriteLine(ln:String)
      Local out:String=Left(sStr,ipos-1)+sep+ln+Mid(sStr,ipos)
      sStr = out
   End Method
   
   Rem
   bbdoc: Sets the position of the cursor in the StringStream.
   about: Returns 0 if there are less lines then nr.
   End Rem
   Method SetPos:Byte(nr:Int)
      iPos=0
      For Local i:Int=0 To 1
         iPos=Instr(sStr, sep, iPos+1)
         If iPos=0 Then Return 0
      Next
      Return 1
   End Method
   
   Rem
   bbdoc: Creates a stringstream out of str.
   about: Seperator defines the characters used to seperate the lines from eachother.
   End Rem
   Function Create:TStringStream(str:String, seperator:String=Chr(0))
      Local ssTemp:TStringStream = New TStringStream
      ssTemp.sStr = Replace(seperator+str+seperator,seperator+seperator,seperator)
      ssTemp.iPos = 1
      ssTemp.sep = seperator
      Return ssTemp
   End Function
End Type

Rem
bbdoc: Creates a stringstream out of str.
about: Seperator defines the characters used to seperate the lines from eachother.
End Rem
Function CreateStringStream:TStringStream(str:String, seperator:String=Chr(0))
   Return TStringStream.Create(str,seperator)
End Function

Rem
bbdoc: Returns 1 if the stringstream comes to an end.
about:
End Rem
Function Eos:Byte(stream:TStringStream)
   Return stream.Eof()
End Function

Rem
bbdoc: Reads the next line of the stringstream.
about:
End Rem
Function ReadStringLine:String(stream:TStringStream)
   Return stream.ReadLine()
End Function

Rem
bbdoc: Writes a line after the last read line.
about:
End Rem
Function WriteStringLine:String(stream:TStringStream, ln:String)
   Return stream.WriteLine(ln)
End Function

Rem
bbdoc: Sets the position of the cursor in the StringStream.
about: Returns 0 if there are less lines then nr.
End Rem
Function SetStringPos:Byte(stream:TStringStream, nr:Int)
   Return stream.SetPos(nr)
End Function

SuperStrict
Import DAK.StringStream

Local test:String="hallo~nich~nbin~nein~ntest"

Local stream:TStringStream=CreateStringStream(test,"~n")

While Not Eos(stream)
    Print ReadStringLine(stream)
Wend

SuperStrict

Local test:String="hallo~nich~nbin~nein~ntest"

Local arr:String[] = test.Split("~n")

For Local i:Int = 0 Until arr.Length
   Print arr[i]
Next

End