Jump to content
Sign in to follow this  
ahha

Error allocating memory - filewriteline [SOLVED]

Recommended Posts

ahha

It took a month of cutting down a big program to find it and here's the code to illustrate "Error allocating memory".

The first while using the filename in the fileopen, etc. shows the error.  The second while example does not have the problem (so I switched to using it).

;shows "Error allocating memory"
;Autoit v3.3.14.5

#AutoIt3Wrapper_run_debug_mode=Y    ; use this to debug in console window <--- LOOK

#include <FileConstants.au3>


;--- shows error allocating memory - is it Autoit or SciTE ?  Try compiling <-- makes no difference so probably not SciTE.  Normally error at index 50K-100K

$fnINDEX = @ScriptDir & "\__index.txt"
$i = 0

;#cs
While 1
    $i = $i + 1
    FileOpen($fnINDEX,  $FO_OVERWRITE)  ;overwrite as we just need last one processed
    FileWriteLine($fnINDEX, $i)
    FileClose($fnINDEX)

    If $i/1000 = Int($i/1000) Then MsgBox(0, "count", "$i = " & $i, 1)  ;give indication of count, hangs when memory allocation error imminent
WEnd
;#ce

;comment out the above loop and this works without an allocation error - looks like the above code leaking memory?

While 1
    $i = $i + 1
    $fh = FileOpen($fnINDEX,  $FO_OVERWRITE)    ;overwrite as we just need last one processed
    FileWriteLine($fh, $i)
    FileClose($fh)

    If $i/1000 = Int($i/1000) Then MsgBox(0, "count", "$i = " & $i, 1)  ;give indication of count
WEnd


Exit    ;program

 

Share this post


Link to post
Share on other sites
BrewManNH

Try this change.

While 1
    $i = $i + 1
    $hFile = FileOpen($fnINDEX, $FO_OVERWRITE) ;overwrite as we just need last one processed
    FileWriteLine($hFile, $i)
    FileClose($hFile)

    If $i / 1000 = Int($i / 1000) Then MsgBox(0, "count", "$i = " & $i, 1) ;give indication of count, hangs when memory allocation error imminent
WEnd

The way you wrote it you were leaving open file handles after every loop through. FileClose needs a HANDLE and not a file name. Also, the way you wrote it, there's no need for a FileOpen or FileClose because you never used the handle returned by the FileOpen.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites
ahha

It'll be great when I learn to read.  You are correct in Remarks "The file handle must be closed with the FileClose() function."

Thanks

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • Reizvoller
      By Reizvoller
      Howdy!
      I am trying to do something a little whacky but here's the function that's kicking back an error.
      I am fairly sure I am overlooking a simple error but I am not seeing it.
      Func mouseSpot () Global $mouseSpot = MouseGetPos() ConsoleWrite ($mouseSpot[0] & ", " & $mouseSpot[1] & @CRLF) FileWriteLine ("mouseGrabs.txt" , "MouseClick ('"'primary'"' , $mouseSpot[0] , $mouseSpot[1], 1, 10)" ) EndFunc The error displays as this 
      Any thoughts?
      Thanks!
      -Reiz
    • TheDcoder
      By TheDcoder
      Hello! I am having problem with using file read...

      Here is my code:
      #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <StringConstants.au3> Local Const $CHUNK = 1024 Local $hFile = FileOpen(@ScriptDir & '\test.bin', $FO_APPEND) Local $iCurrentPos = 0 Do $iCurrentPos += $CHUNK $bFileSetPos = FileSetPos($hFile, $iCurrentPos, $FILE_END) $vData = FileRead($hFile) $vData = BinaryToString($vData) MsgBox(0, 0, $vData) $iStringPos = StringInStr($vData, "Test", $STR_NOCASESENSEBASIC) Until Not ($iStringPos = 0) Or $bFileSetPos = False FileClose($hFile) MsgBox($MB_OK, "Success", $iStringPos) Here is the 6 MB file: <Attachment Deleted>
       
      Thanks in Advance! TD
    • Jewtus
      By Jewtus
      I'm trying to do a few queries and have them record the results into a CSV file but I'm running into an unusual error. When I had my code write a line at the end of all the queries, I got a ton of duplicated data, so I tried to tweak when it writes to the file to eliminate redundancies. I changed the code so now it doesn't do a @CRLF until the end of the set of queries and it looks perfect on the console output, but when I open the file itself, it has all sorts of spacing.
      Here is the code:
      $sqlRs2.open ($Query2, $sqlCon) While Not $sqlRs2.EOF $Field1= $sqlRs2.Fields ('MPR').Value $Field2 = $sqlRs2.Fields ('ENT').Value $Field3 = $sqlRs2.Fields ('ROD').Value $Field4 = $sqlRs2.Fields ('ONTR').Value $Field5 = $sqlRs2.Fields ('OCAL').Value $EndDate = $sqlRs2.Fields ('End').Value $StartDate = $sqlRs2.Fields ('Start').Value ConsoleWrite($Field1 & "|" & $Field2 & "|" & $Field3 & "|" & $Field4 & "|" & $Field5 & "|" & DTFormat($StartDate) & "|" & DTFormat($EndDate) & "|") ; Write results to file FileWriteLine($fOutFile, $Field1 & "|" & $Field2 & "|" & $Field3 & "|" & $Field4 & "|" & $Field5 & "|" & DTFormat($StartDate) & "|" & DTFormat($EndDate) & "|") ; Write results to file $sqlRs6.open ($Query6, $sqlCon) While Not $sqlRs6.EOF $ID = $sqlRs6.Fields ('ERS').Value $Type = $sqlRs6.Fields ('ERS1').Value $DBRelationship = $sqlRs6.Fields ('ERT').Value DBRelationship() If $Type = 'F' Then $sqlRs7.open ($query7, $sqlCon) $Value1 = StringReplace($sqlRs7.Fields ('RIN' ).Value," ","") $Value2 = StringReplace($sqlRs7.Fields ('R70' ).Value," ","") $Value3 = StringReplace($sqlRs7.Fields ('OM' ).Value," ","") $Other = $Value & " " & $Value2 & " " & $Value3 ConsoleWrite($Other & " " & $DBRelationship & "; ") ; Write results to file FileWriteLine($fOutFile, $Other & " " & $DBRelationship & "; ") ; Write results to file $sqlRs7.close EndIf $sqlRs6.MoveNext WEnd ConsoleWrite(@CRLF) ; Write results to file FileWriteLine($fOutFile, @CRLF) $sqlRs6.close $sqlRs2.MoveNext The console out looks like this:
       
      and in the file itself, this is what I get:
       
      I tried opening it in notepad++ and I can confirm that there is a @CRLF at the end of each of the lines.
      Does filewriteline only create a new line? How would I get my file to look like the console output?
×