[Gambas-user] Using Open in Gambas 3

[Fabien Bodard]

my english is bad ... i want to say benoit have change the syntax in gb2

2010/9/6 charlesg <charles at ...1784...>:
>
>
> Fabien Bodard-4 wrote:
>>
>> this is new since gb2
>>
>
> Not sure about that. The following works even back to 2.13
>
>
>  DIM j AS Integer = 0
>  INC Application.busy
>  hFileOut = OPEN "/home/charles/rba/rba.csv" FOR CREATE
>
>  sql = "select * from stmaster"
>  res = mdFile.$hConnStock.Exec(sql)
>  FOR EACH res
>    IF j > 100 AND j < 120 THEN
>      sellPriceExVat = (Round(res!st_sellprice1 / 1.175 * 100, 0)) / 100
>      IF res!st_datelastsale > CDate("01/01/2000") THEN
>        dDate = Format(res!st_datelastsale, "dd/mm/yyyy")
>      ELSE
>        dDate = ""
>      ENDIF
>      sLine = Chr(34) & res!st_code & Chr(34) & "," & Chr(34) & res!st_desc
> & Chr(34) & "," & Chr(34) & res!st_barcode & Chr(34) & "," & Chr(34) & "ZZ"
> & Chr(34) & "," & "999" & "," & "0" & "," & Chr(34) & "S" & Chr(34) & "," &
> Chr(34) & "Y" & Chr(34) & "," & Chr(34) & res!st_unit & Chr(34) & "," & "1"
> & "," & Chr(34) & "ALDRIDGE" & Chr(34) & "," & Chr(34) & dDate & Chr(34) &
> "," & res!st_minimum & "," & Chr(34) & "" & Chr(34) & "," & "1" & "," &
> "0.95" & "," & "0.95" & "," & sellPriceExVat & "," & res!st_sellprice1
>      PRINT #hFileOut, sLine
>    ENDIF
>    j += 1
>  NEXT
>  #hFileOut.Close
>  DEC Application.Busy
>
>
> rgds
>
> --
> View this message in context: http://old.nabble.com/Using-Open-in-Gambas-3-tp29630809p29632831.html
> Sent from the gambas-user mailing list archive at Nabble.com.
>
>
> ------------------------------------------------------------------------------
> This SF.net Dev2Dev email is sponsored by:
>
> Show off your parallel programming skills.
> Enter the Intel(R) Threading Challenge 2010.
> http://p.sf.net/sfu/intel-thread-sfd
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>