Array Left$

[ReneMiner]

exactly that:

Uses "console"
 

Type tBase 
  pText As DWord

  '-------------------------------------------------------------------
  Function TextSet(ByVal sText As String, _
          Optional ByVal lLine As Long    _
                 ) As String 
  '-------------------------------------------------------------------
  
  ' set either all text (no line-number)
  ' or replace a certain line if lLine exists
 ' negative lLine = simply append text  
  
  Local pLine()    As DWord At 0
  Local sLine()    As String
  Local i, nLines  As Long
  
  nLines = Parse sText, sLine, $CRLF
  
      
  If Not lLine Then
    ' no line-number, so sText is completely new text
  
    If HEAP_Size(Me.pText) >= 4 Then
      ReDim pLine(HEAP_Size(Me.pText)/4) At Me.pText
      For i = 1 To UBound(pLine)
        HEAP_Free(pLine(i))
      Next
    EndIf
    
    If nLines Then
      Me.pText = HEAP_ReAllocByStr(Me.pText, Repeat$(nLines, MKDWD$(0)) )
      ReDim pLine(nLines) At Me.pText
      For i = 1 To nLines
        pLine(i) = HEAP_AllocByStr(sLine(i))  
      Next
    Else
      HEAP_Free(Me.pText)
      Me.pText = 0
    EndIf
  Else 
    If HEAP_Size(Me.pText) >= 4 Then
      ReDim pLine(HEAP_Size(Me.pText)/4) At Me.pText
    
      If Between(lLine, 1, UBound(pLine)) Then
        ' replace lLine with new sText
        Select Case nLines
          Case 0
            HEAP_Free(pLine(lLine))
            pLine(lLine) = 0
            
          Case 1
            pLine(lLine) = HEAP_ReAllocByStr(pLine(lLine), sLine(1))
         
          Case Else 
            If lLine + (nLines - 1) > UBound(pLine) Then
              Me.pText = HEAP_ReAllocByStr(Me.pText, HEAP_Get(Me.pText) & Repeat$(lLine + (nLines - 1) - UBound(pLine), MKDWD$(0))  )
              ReDim pLine(HEAP_Size(Me.pText)/4) At Me.pText
            EndIf
            For i = 1 To nLines 
              pLine(i + lLine - 1) = HEAP_AllocByStr(sLine(i))  
            Next
        End Select
      Else
        ' lLine is out of current range
        If lLine < 1 Then
        ' simply append it
          
          lLine = UBound(pLine)
          Me.pText = HEAP_ReAllocByStr(Me.pText, HEAP_Get(Me.pText) & Repeat$(nLines, MKDWD$(0)))  
          ReDim pLine(HEAP_Size(Me.pText)/4) At Me.pText
          For i = 1 To nLines
            pLine(i + lLine) = HEAP_AllocByStr(sLine(i))  
          Next
        Else 
        ' insert empty lines until all available  
          Me.pText = HEAP_ReAllocByStr(Me.pText, HEAP_Get(Me.pText) & Repeat$(lLine + (nLines - 1) - UBound(pLine), MKDWD$(0)) ) 
          ReDim pLine(HEAP_Size(Me.pText)/4) At Me.pText
          For i = 1 To nLines
            pLine(i + lLine - 1) = HEAP_AllocByStr(sLine(i))  
          Next
        EndIf  
      
      EndIf
    Else
      ' Me.pText is empty
      Me.pText = HEAP_AllocByStr(Repeat$(nLines, MKDWD$(0)) )
      ReDim pLine(HEAP_Size(Me.pText)/4) At Me.pText
      For i = 1 To nLines
        pLine(i) = HEAP_AllocByStr(sLine(i))  
      Next
        
    EndIf  
  EndIf
  
  Function = sText
End Function


End Type

Function TBMain()
  Local x As tBase
  
  PrintL x.TextSet( "Hello" & $CRLF _
                   & "this" & $CRLF _
                   & "is a" & $CRLF _
                   & "test" )
 
  PrintL
  PrintL "---Press a key to finish---"
  WaitKey
End Function

EDIT: missing parenthesis corrected (2 times, lines 60, 73 or 80)

[ErosOlmi]

OK, got example and able to reproduce the problem.
I'm checking.

[ReneMiner]

i'm going to visit my girlfriend in hospital now... be back in the evening

[ErosOlmi]

Thanks for helping me.
It will be a bit long to solve this, it is related to IF/ELSE/END IF nesting level.

[ErosOlmi]

I think I've fixed the problem.
Uploaded an updated 1.9.16.0
Let me know.

Ciao
Eros

[ReneMiner]

came not far enough to test Array Extract yet but thinAir bugs again (see mail from last week)

[ErosOlmi]

Yes, didn't had time to see all your reports but will check next days.
Work load will be a little lower next few weeks so I think to have some time to go on to fix and develop new features.

Actually I'm interested to know if today bug is solved.

[ReneMiner]

todays bug seems solved. Also Array Extract works really nice & fast

btw. Found duplicate keyword in thinBasic_Keywords.ini

ACCELAPI

[ErosOlmi]

Great.

It is a predefined UDT: http://www.thinbasic.com/public/prod...l?accelapi.htm
Maybe I've defined twice.
I will check where

If more UDT having the same name are defined in different places but they are are structured the same, thinBasic does not complain.

[ErosOlmi]

I need your opinion.

Regarding PTR option (it means mainArray is an array of pointers to string) ...
do you think also DestinationArray MUST be a PTR array or only source should be?