/* 
   bh_ArrayToFile.ch
   Transformer un tableau de caractères à 1 dimension en fichier.

   Dernière modification : 2022-04-15
   <web>http://bernard.mouille.free.fr/Harbour/bh_ArrayToFile.txt</web>
*/

#ifndef _bh_ArrayToFile_ch_
#define _bh_ArrayToFile_ch_

#include "bh_ferase.ch"

procedure bh_ArrayToFile( cFile, aArray )

   local f
   local i
   local s

   bh_ferase( cFile )

   f := fcreate( cFile )

   for i := 1 to len( aArray )
      s := aArray[ i ] + iif( i < len( aArray ), hb_eol(), "" )
      fwrite( f, s, len( s ) )
   endfor

   fclose( f )

   return

#endif // _bh_ArrayToFile_ch_