PureBasic Forums - English

thanks srod

This code seems to work :)

Edit Nov 12, 2009 21:20 :
But in some cases, IMHO dependent on size and/or complexity of the source workbook, the EXCEL.EXE remains running.
The different forums are quite full with post, describing this problem.

After the ApplObj\Release, there is no ...

@Help

How to translate this code snippet to COMate?
ActiveWorkbook.SaveAs FileName:="C:\Temp\xxxx.csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True

My code doesn't work

#num = 1000000 ; for debugger version
;#num = 100000000 ; for compiled version

Define.s out

Procedure one()
Protected dummy.l
For n = 1 To #num : dummy = n : Next
Delay(0)
EndProcedure

Procedure two()
Protected dummy.l
For n = 1 To #num : dummy = n : Next
Delay(0)
EndProcedure

out ...

DShow reports 0.03333...... as AvgTimePerFrame. So the video has exactly 30 FPS.
See the video properties detected by the MIPlayer:
(MIP ist part of the MPEG-Inspector , an application written in PB and based on Win DShow 9)
>>> Report of MIP session : 2007-08-17 23:50
>>> 281 registered DirectShow ...

@pdwyer

Solved the same problem this way:

Declare.l CSVLearn(CSV_line.s, Delimiter.s = ",")
Declare.s CSVField(CSV_line.s, Column.l, Delimiter.s = ",")

; ====== TEST CODE ===========

CSVString.s = "string1,string2," + #DOUBLEQUOTE$ + "Lastname, Firstname" + #DOUBLEQUOTE$ + ",string4,string5 ...

Why not Macro Is()?

Procedure.l IsNumberLessThan100_0(n.l)
If n<100
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure

Procedure.l IsNumberLessThan100_1(n.l)
If n<100 : ProcedureReturn #True : EndIf
EndProcedure

Procedure.l IsNumberLessThan100_2(n.l)
ProcedureReturn ...

@jonljacobi
The simplest may be to put a shortcut to your exe to the folder "send to".

What is intended to be the higher abstraction level: ForEach or With?

On each system there are different combinations of DirectShow filters installed and registered with different merits.

After install or uninstall of any video related application, the configuration may be changed seriously.

The PB movie features doesn't build a filter graph. This is done by DShow ...

How can I get the actual text color of Frame3DGadget's captions.
Depending from the selected XP style, the color changes. I would like to add captions to Frames using normal TextGadgets with the same color as the originals.

Thanks

I agree

But not only Protected!
Global, Shared, Static... too.

because 'Define.s' can be used alone to 'preset' all futured variables as .s

Code: Select all

EnableExplicit
Define.s 

a = "a" ; this is a string. 
b = "b" ; this is a string. 

???

BTW...
but
causes a syntax error!

This code will return the time difference as string.
; TimeDiffString : jear Dez 2005

;#TimeUnits = "Woche|n,Tag|e,Stunde|n,Minute|n,Sekunde|n"
#TimeUnits = "week|s,day|s,hour|s,minute|s,second|s"

Procedure.s AddTimeUnit(number.l, unit.l)
Protected Result.s, sUnit.s
If number = 0 ...

What's about this code
; TimeDiffString : jear Dez 2005

;#TimeUnits = "Woche|n,Tag|e,Stunde|n,Minute|n,Sekunde|n"
#TimeUnits = "week|s,day|s,hour|s,minute|s,second|s"

Procedure.s AddTimeUnit(number.l, unit.l)
Protected Result.s, sUnit.s
If number = 0 : ProcedureReturn "" : EndIf
If number ...