Letztes Zeichen in Textdatei löschen.

[funkheld]

Hallo, guten Tag.

Wie kann man bitte bei meiner Datei das letzte "+" löschen?
--------------------------------
xarray.obj + xarray1.obj + xsquadi.obj +
cs.lib + brt71enr.lib
--------------------------------

Ich erzeuge hier mit :

Code: Alles auswählen

If EventGadget =  #button_11
         CreateFile(0, "d:\dosc\linker.cmd")
         ReadFile(1, "d:\dosc\compbc.bat")  
         
         While Eof(1) = 0 
           string1=ReadString(1)
           string2 =  GetFilePart(string1)
           WriteString(0,Left(string2,Len(string2)-4)+".obj + ")
         Wend
    
         WriteStringN(0,"")
         WriteStringN(0,"cs.lib + brt71enr.lib")     
         CloseFile(0)
         CloseFile(1)              
      EndIf  

danke.

[mk-soft]

Code: Alles auswählen

If EventGadget =  #button_11
         CreateFile(0, "d:\dosc\linker.cmd")
         ReadFile(1, "d:\dosc\compbc.bat")  
         
         IsFirst = #True
         While Eof(1) = 0 
           string1=ReadString(1)
           string2 =  GetFilePart(string1)
           If Isfirst
             IsFirst = #False
             WriteString(0,Left(string2,Len(string2)-4)+".obj")
           Else
             WriteString(0," + " + Left(string2,Len(string2)-4)+".obj")
           EndIf
         Wend
    
         WriteStringN(0,"")
         WriteStringN(0,"cs.lib + brt71enr.lib")     
         CloseFile(0)
         CloseFile(1)              
      EndIf  

[funkheld]

Hallo, danke für die Hilfe.

GRuss