Secure temporary file: Difference between revisions

Content added Content deleted

Inline

@@ Line 141: / Line 141: @@
 =={{header|PureBasic}}==
 <lang PureBasic>Procedure.s TempFile()
-  Protected a,Result$
+  Protected a, Result$
-  For a=0 To 9999
+  For a = 0 To 9999
-    Result$=GetTemporaryDirectory()+StringField(GetFilePart(ProgramFilename()),1,".") ; Line split for
+    Result$ = GetTemporaryDirectory() + StringField(GetFilePart(ProgramFilename()),1,".")
-    Result$+"_"+Str(ElapsedMilliseconds())+"_("+RSet(Str(a),4,"0")+").tmp"            ; RosettaCode's window width
+    Result$ + "_" + Str(ElapsedMilliseconds()) + "_(" + RSet(Str(a),4,"0") + ").tmp"
-    If FileSize(Result$)=-1                                                           ;  -1 e.g. File not found.
+    If FileSize(Result$) = -1                                      ;  -1 = File not found
       ProcedureReturn Result$
     EndIf
   Next
+  ProcedureReturn ""
 EndProcedure
 Define File, File$
-File$=TempFile()
+File$ = TempFile()
+If File$ <> ""
-File=CreateFile(#PB_Any,File$)
+  File = CreateFile(#PB_Any, File$)
-If File<>0
+  If File <> 0
-  WriteString(File,"Some temporary data here...")
+    WriteString(File, "Some temporary data here...")
-  CloseFile(File)
-  DeleteFile(File$)
+    CloseFile(File)
+  EndIf
 EndIf</lang>