READ/DATA statements limits

General FreeBASIC programming questions.
MystikShadows
Posts: 612
Joined: Jun 15, 2005 13:22
Location: Upstate NY
Contact:

READ/DATA statements limits

Postby MystikShadows » Sep 09, 2020 18:22

i have these 10 lines of data statement:

Code: Select all

Data  1,   1,    1, "UAP Analyst",         "XTS-1023",   40,   2500,    500,  2400,  25000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  2,   1,    1, "UAP Explorer",        "XTE-0035",  100,   3000,    600,  2400,  32000,    48,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  3,   1,    1, "UAP Inquirer",        "XTS-0057",   30,   3200,    600,  2400,  35000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  4,   1,    1, "UAP Transporter",     "XTC-2264",   40,   6000,    900,  2400,  50000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  5,   1,    1, "UAP Healer",          "XTM-2798",   40,   1500,    500,  2400,  50000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  6,   1,    1, "UAP Defender",        "XTA-1085",   30,   8000,    900,  2400,  75000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  7,   1,    1, "UAP Exterminator",    "XTA-1876",   40,   8000,    900,  2400,  75000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  8,   1,    1, "UAP Inhibiter",       "XTB-1454",   60,  10000,   1000,  2400, 100000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data  9,   1,    1, "UAP Excalibur",       "XTB-1293",   50,  11000,   1100, 20000, 125000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False
Data 10,   1,    1, "UAP Destroyer",       "XTB-1568",   30,  15000,   1200, 25000, 150000,    16,      4,     19,     22,       23,           100,        100,       100,          100,          100,          100,      4,     16, "Procyon Lazers",      100, "Phaser Banks",           100, "Deflector Array"      100, "Polarized Hull",      100,     100,    150,    250,  5000,  5000,       4,       8,   10000,      200,    5000,   5000,    5000,     5000,    False,   False

Each of there data lines is of course 1 line...consecutive...not cut off like you're seeing here.

Which I'm trying to read with:

Code: Select all

    REDIM PRESERVE FleetShips(10)    AS ShipData
    ArrayOffset = 0
    FOR Counter = 1 TO 10
        READ WorkShip.ShipID
        READ WorkShip.ShipTypeID
        READ WorkShip.ShipClassID
        Read WorkShip.ShipCallSign
        READ WorkShip.UAPShipRegistryNumber
        READ ShipCount
        READ WorkShip.ShipHeight
        READ WorkShip.ShipWidth
        READ WorkShip.ShipDepth
        Read WorkShip.ShipWeight
        Read WorkShip.DeckCount
        Read WorkShip.SectionCount
        Read WorkShip.CruiseSpeed
        Read WorkShip.MaximumSpeed
        Read WorkShip.EmergencySpeed
        Read WorkShip.Communications
        Read Workship.HullIntegrity
        Read WorkShip.Computer
        Read WorkShip.Transporters
        Read WorkShip.LifeSupport
        Read WorkShip.AuxilliaryLifeSupport
        Read WorkShip.MedicalBays
        Read WorkShip.PrimaryWeaponName
        Read WorkShip.PrimaryWeapon
        Read WorkShip.SecondaryWeaponName
        Read WorkShip.SecondaryWeapon
        Read WorkShip.PrimaryDefenseName
        Read WorkShip.PrimaryDefense
        Read WorkShip.SecondaryDefenseName
        Read WorkShip.SecondaryDefense
        Read WorkShip.CloakingSystem           
        Read WorkShip.CurrentCrew             
        Read WorkShip.MaximumCrew                 
        Read WorkShip.Probes                           
        Read WorkShip.Decoys                       
        Read WorkShip.ShuttleBays                 
        Read WorkShip.Shuttles                     
        Read WorkShip.Supplies                     
        Read WorkShip.Torpedoes                   
        Read WorkShip.Defenses                     
        Read WorkShip.Weapons                       
        Read WorkShip.MedicalSupplies             
        Read WorkShip.Naterials                   
        Read WorkShip.IsDisabled
        Read WorkShip.IsDestroyed
    NEXT Counter


it tells me upfront in the compilation process
Expected End Of Line
for each data line. so my question is what is the length limit of a data statement or a limit in the number of comma seperated fields perhaps? I searched the forum and the last post about this dated 2010 so I though I'd ask now. lol

thanks all
dodicat
Posts: 6687
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: READ/DATA statements limits

Postby dodicat » Sep 09, 2020 18:55

No comma after "Deflector Array"
MystikShadows
Posts: 612
Joined: Jun 15, 2005 13:22
Location: Upstate NY
Contact:

Re: READ/DATA statements limits

Postby MystikShadows » Sep 09, 2020 19:03

Oh Damnit, I've been in data statements way too long...lol I just didn't see that. thanks.

Return to “General”

Who is online

Users browsing this forum: No registered users and 2 guests