سلام.من یه برنامه نوشتم که متنی را باز با get میخونه.اما مشکلم اینه که بیشتر از 512 بایت را بیشتر نمیخونه .حالا مشکل از برنامست یا fat??????????????/
منتظر یاری سبزتان هستم
منتظر یاری سبزتان هستم
$regfile = "m32def.DAT" : $crystal = 1000000 $baud = 4800 $swstack = 32 $hwstack = 64 $framesize = 64 '***************************************library*********************************************** $include "CONFIG_AVR-DOS.Bas" $include "config_mmc.bas" '********************************************************************************************* Dim B As String * 250 Print "Setup Port and Reset Card ... " ; If Drivecheck() <> 0 Then Print Print "Card drive is not ready to use!" End End If Print "OK" '********************************************************************************************* '********************************************************************************************* If Driveinit() <> 0 Then Print "Card not inserted, check Card!" End End If Print "drive cheked ... OK" '********************************************************************************************* '********************************************************************************************* Print "Init File System ... " ; If Initfilesystem(1) <> 0 Then Print Print "File system is not suported" End End If Print "ok" Open "f21.txt" For Output As #1 Print #1 , "salam 1 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 2 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 3 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 4gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam1 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 2 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 3 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 4 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 5 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 6gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam1 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 2 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 3 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam 4 gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Print #1 , "salam gfsergrshgrhrhtdrhdhtdhuy6i85e3w454yku" Close #1 Open "f1.txt" For Input As #2 Do Line Input #2 , B Print B Loop Until Eof(#2) <> 0 Close #2 End
دیدگاه