PureBasic Forums - English

Code: Select all

If OpenFile(0,"myfile.txt")
  
  Repeat
    line.s=ReadString()
    
    ;If FindString(line,"string to find",0) ; You can uncomment these lines
      line.s=ReplaceString(line,"string to find","string to replace")
    ;EndIf
    
    WriteString(0,line)
    ;or
    ; WriteStringN(0,line) ; for line break
    
  Until Eof(0)
  
  CloseFile(0)
EndIf

Code: Select all

Procedure.s ShortenPath(Path.s)
   ;
   Protected HoldString.s
   ;
   HoldString = Space(#MAX_PATH)
   ;
   Debug GetShortPathName_(@Path, @HoldString, #MAX_PATH)
   ;
   ProcedureReturn HoldString
   ;
EndProcedure
Debug ShortenPath("C:\Program Files\Microsoft Office")