The For Next loop (TL2) when TL1 = 1 get's executed twice displaying 2 message boxes reading "TL2= 1".
I Can see no reason why!
I Can see no reason why!
Code:
TS1 = DIR$( $DemoPlayerServerLocation + "MP3 Files\" + Item_ST + "_*.*" ) WHILE LEN( TS1 ) > 0 TS2 = TS2 + TS1 + $CR TS1 = DIR$ WEND TL1 = TALLY( TS2, $CR ) IF TL1 = 0 THEN MSGBOX "No Demo Files Exist", %MB_ICONERROR OR %MB_TASKMODAL, "Epos (PLA)" ELSE REDIM GetListSelectArray_GL( 1 TO TL1, 1 TO 3 ) AS GLOBAL STRING FOR TL2 = 1 TO TL1 MSGBOX "TL2=" + STR$( TL2 ) CallBack_SR_String1_GL = PARSE$( TS2, $CR, TL2 ) CallBack_SR_String2_GL = $DQ + PARSE$( CallBack_SR_String1_GL, "_", 1 ) + "_" + FORMAT$( TL2 ) + $DQ GetListSelectArray_GL( TL2, 1 ) = CallBack_SR_String1_GL GetListSelectArray_GL( TL2, 2 ) = PadString( UCASE$( RIGHT$( CallBack_SR_String1_GL, 3 )), 6 ) TL3 = MCISENDSTRING( "open " + $DQ + $DemoPlayerServerLocation + "MP3 Files\" + CallBack_SR_String1_GL + $DQ + " alias " + CallBack_SR_String2_GL, "", 0, 0 ) IF TL3 <> 0 THEN MSGBOX "Error " + FORMAT$( TL3 ) + " Opening File" + $CR + $CR + $DemoPlayerServerLocation + "MP3 Files\" + CallBack_SR_String1_GL, %MB_ICONERROR OR %MB_TASKMODAL, "Epos (PLA)" ELSE TL3 = MCISENDSTRING( "Status length " + CallBack_SR_String2_GL, szTimeFormat, BYVAL 256, 0 ) IF TL3 <> 0 THEN MSGBOX "Error " + FORMAT$( TL3 ) + " Retrieving Media Length" + $CR + $CR + $DemoPlayerServerLocation + "MP3 Files\" + CallBack_SR_String1_GL, %MB_ICONERROR OR %MB_TASKMODAL, "Epos (PLA)" ELSE TL3 = CLNG( VAL( szTimeFormat )) \ 1000 TS3 = LTRIM$( STR$( TL3 \ 60 )) GetListSelectArray_GL( TL2, 3 ) = TS3 + ":" + RIGHT$( TRIM$( STR$( 100 + ( TL3 MOD 60 ))), 2 ) END IF END IF MCISENDSTRING "close " + CallBack_SR_String2_GL, "", 0, 0 NEXT TL2 END IF
Comment