Converting VFP ASCAN style to .NET

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

Converting VFP ASCAN style to .NET

Message

25/06/2007 00:06:20

Michel Fournier
Level Extreme Inc.
Petit-Rocher, Nouveau-Brunswick, Canada

Tous

Information générale

Forum:

ASP.NET

Catégorie:

Code, syntaxe and commandes

Titre:

Converting VFP ASCAN style to .NET

Versions des environnements

Environment:

VB 8.0

OS:

Windows XP SP2

Database:

Visual FoxPro

Divers

Thread ID:

01235284

Message ID:

01235284

Vues:

I have the following code:

            lcTimeZone = "A" + lcCr + "Alpha Time Zone" + lcCr + "Military" + lcCr + "+1" + lcCr + "0" + lcCr _
             + "ACDT" + lcCr + "Australian Central Daylight Time" + lcCr + "Australia" + lcCr + "+10" + lcCr + "30" + lcCr _
             + "ACST" + lcCr + "Australian Central Standard Time" + lcCr + "Australia" + lcCr + "+9" + lcCr + "30" + lcCr _
             + "ADT" + lcCr + "Atlantic Daylight Time" + lcCr + "North America" + lcCr + "-3" + lcCr + "0" + lcCr _
             + "AEDT" + lcCr + "Australian Eastern Daylight Time" + lcCr + "Australia" + lcCr + "+11" + lcCr + "0" + lcCr _
             + "AEST" + lcCr + "Australian Eastern Standard Time" + lcCr + "Australia" + lcCr + "+10" + lcCr + "0" + lcCr _
             + "AKDT" + lcCr + "Alaska Daylight Time" + lcCr + "North America" + lcCr + "-8" + lcCr + "0" + lcCr _
             + "AKST" + lcCr + "Alaska Standard Time" + lcCr + "North America" + lcCr + "-9" + lcCr + "0" + lcCr _
             + "AST" + lcCr + "Atlantic Standard Time" + lcCr + "North America" + lcCr + "-4" + lcCr + "0" + lcCr _
             + "AWST" + lcCr + "Australian Western Standard Time" + lcCr + "Australia" + lcCr + "+8" + lcCr + "0" + lcCr _
             + "B" + lcCr + "Bravo Time Zone" + lcCr + "Military" + lcCr + "+2" + lcCr + "0" + lcCr _
             + "BST" + lcCr + "British Summer Time" + lcCr + "Europe" + lcCr + "+1" + lcCr + "0" + lcCr _
             + "C" + lcCr + "Charlie Time Zone" + lcCr + "Military" + lcCr + "+3" + lcCr + "0" + lcCr _
             + "CDT" + lcCr + "Central Daylight Time" + lcCr + "Australia" + lcCr + "+10" + lcCr + "30" + lcCr _
             + "CDT" + lcCr + "Central Daylight Time" + lcCr + "North America" + lcCr + "-5" + lcCr + "0" + lcCr _
             + "CEST" + lcCr + "Central European Summer Time" + lcCr + "Europe" + lcCr + "+2" + lcCr + "0" + lcCr _
             + "CET" + lcCr + "Central European Time" + lcCr + "Europe" + lcCr + "+1" + lcCr + "0" + lcCr _
             + "CST" + lcCr + "Central Standard Time" + lcCr + "Australia" + lcCr + "+9" + lcCr + "30" + lcCr _
             + "CST" + lcCr + "Central Standard Time" + lcCr + "North America" + lcCr + "-6" + lcCr + "0" + lcCr _
             + "CXT" + lcCr + "Christmas Island Time" + lcCr + "Australia" + lcCr + "+7" + lcCr + "0" + lcCr _
             + "D" + lcCr + "Delta Time Zone" + lcCr + "Military" + lcCr + "+4" + lcCr + "0" + lcCr _
             + "E" + lcCr + "Echo Time Zone" + lcCr + "Military" + lcCr + "+5" + lcCr + "0" + lcCr _
             + "EDT" + lcCr + "Eastern Daylight Time" + lcCr + "Australia" + lcCr + "+11" + lcCr + "0" + lcCr _
             + "EDT" + lcCr + "Eastern Daylight Time" + lcCr + "North America" + lcCr + "-4" + lcCr + "0" + lcCr _
             + "EEST" + lcCr + "Eastern European Summer Time" + lcCr + "Europe" + lcCr + "+3" + lcCr + "0" + lcCr _
             + "EET" + lcCr + "Eastern European Time" + lcCr + "Europe" + lcCr + "+2" + lcCr + "0" + lcCr _
             + "EST" + lcCr + "Eastern Standard Time" + lcCr + "Australia" + lcCr + "+10" + lcCr + "0" + lcCr _
             + "EST" + lcCr + "Eastern Standard Time" + lcCr + "North America" + lcCr + "-5" + lcCr + "0" + lcCr _
             + "F" + lcCr + "Foxtrot Time Zone" + lcCr + "Military" + lcCr + "+6" + lcCr + "0" + lcCr _
             + "G" + lcCr + "Golf Time Zone" + lcCr + "Military" + lcCr + "+7" + lcCr + "0" + lcCr

            lcTimeZone = lcTimeZone _
             + "GMT" + lcCr + "Greenwich Mean Time" + lcCr + "Europe" + lcCr + "0" + lcCr + "0" + lcCr _
             + "H" + lcCr + "Hotel Time Zone" + lcCr + "Military" + lcCr + "+8" + lcCr + "0" + lcCr _
             + "HAA" + lcCr + "Heure Avancée de l'Atlantique" + lcCr + "North America" + lcCr + "-3" + lcCr + "0" + lcCr _
             + "HAC" + lcCr + "Heure Avancée du Centre" + lcCr + "North America" + lcCr + "-5" + lcCr + "0" + lcCr _
             + "HADT" + lcCr + "Hawaii-Aleutian Daylight Time" + lcCr + "North America" + lcCr + "-9" + lcCr + "0" + lcCr _
             + "HAE" + lcCr + "Heure Avancée de l'Est" + lcCr + "North America" + lcCr + "-4" + lcCr + "0" + lcCr _
             + "HAP" + lcCr + "Heure Avancée du Pacifique" + lcCr + "North America" + lcCr + "-7" + lcCr + "0" + lcCr _
             + "HAR" + lcCr + "Heure Avancée des Rocheuses" + lcCr + "North America" + lcCr + "-6" + lcCr + "0" + lcCr _
             + "HAST" + lcCr + "Hawaii-Aleutian Standard Time" + lcCr + "North America" + lcCr + "-10" + lcCr + "0" + lcCr _
             + "HAT" + lcCr + "Heure Avancée de Terre-Neuve" + lcCr + "North America" + lcCr + "-2" + lcCr + "-30" + lcCr _
             + "HAY" + lcCr + "Heure Avancée du Yukon North" + lcCr + "America" + lcCr + "-8" + lcCr + "0" + lcCr _
             + "HNA" + lcCr + "Heure Normale de l'Atlantique" + lcCr + "North America" + lcCr + "-4" + lcCr + "0" + lcCr _
             + "HNC" + lcCr + "Heure Normale du Centre" + lcCr + "North America" + lcCr + "-6" + lcCr + "0" + lcCr _
             + "HNE" + lcCr + "Heure Normale de l'Est" + lcCr + "North America" + lcCr + "-5" + lcCr + "0" + lcCr _
             + "HNP" + lcCr + "Heure Normale du Pacifique" + lcCr + "North America" + lcCr + "-8" + lcCr + "0" + lcCr _
             + "HNR" + lcCr + "Heure Normale des Rocheuses" + lcCr + "North America" + lcCr + "-7" + lcCr + "0" + lcCr _
             + "HNT" + lcCr + "Heure Normale de Terre-Neuve" + lcCr + "North America" + lcCr + "-3" + lcCr + "-30" + lcCr _
             + "HNY" + lcCr + "Heure Normale du Yukon" + lcCr + "North America" + lcCr + "-9" + lcCr + "0" + lcCr _
             + "I" + lcCr + "India Time Zone" + lcCr + "Military" + lcCr + "+9" + lcCr + "0" + lcCr _
             + "IST" + lcCr + "Irish Summer Time" + lcCr + "Europe" + lcCr + "+1" + lcCr + "0" + lcCr _
             + "K" + lcCr + "Kilo Time Zone" + lcCr + "Military" + lcCr + "+10" + lcCr + "0" + lcCr _
             + "L" + lcCr + "Lima Time Zone" + lcCr + "Military" + lcCr + "+11" + lcCr + "0" + lcCr _
             + "M" + lcCr + "Mike Time Zone " + lcCr + "Military" + lcCr + "+12" + lcCr + "0" + lcCr _
             + "MDT" + lcCr + "Mountain Daylight Time" + lcCr + "North America" + lcCr + "-6" + lcCr + "0" + lcCr _
             + "MESZ" + lcCr + "Mitteleuropäische Sommerzeit" + lcCr + "Europe" + lcCr + "+2" + lcCr + "0" + lcCr _
             + "MEZ" + lcCr + "Mitteleuropäische Zeit" + lcCr + "Europe" + lcCr + "+1" + lcCr + "0" + lcCr _
             + "MST" + lcCr + "Mountain Standard Time" + lcCr + "North America" + lcCr + "-7" + lcCr + "0" + lcCr _
             + "N" + lcCr + "November Time Zone" + lcCr + "Military" + lcCr + "-1" + lcCr + "0" + lcCr _
             + "NDT" + lcCr + "Newfoundland Daylight Time" + lcCr + "North America" + lcCr + "-2" + lcCr + "-30" + lcCr _
             + "NFT" + lcCr + "Norfolk (Island) Time" + lcCr + "Australia" + lcCr + "+11" + lcCr + "30" + lcCr _
             + "NST" + lcCr + "Newfoundland Standard Time" + lcCr + "North America" + lcCr + "-3" + lcCr + "-30" + lcCr _
             + "O" + lcCr + "Oscar Time Zone" + lcCr + "Military" + lcCr + "-2" + lcCr + "0" + lcCr _
             + "P" + lcCr + "Papa Time Zone" + lcCr + "Military" + lcCr + "-3" + lcCr + "0" + lcCr _
             + "PDT" + lcCr + "Pacific Daylight Time" + lcCr + "North America" + lcCr + "-7" + lcCr + "0" + lcCr _
             + "PST" + lcCr + "Pacific Standard Time" + lcCr + "North America" + lcCr + "-8" + lcCr + "0" + lcCr _
             + "Q" + lcCr + "Quebec Time Zone" + lcCr + "Military" + lcCr + "-4" + lcCr + "0" + lcCr _
             + "R" + lcCr + "Romeo Time Zone" + lcCr + "Military" + lcCr + "-5" + lcCr + "0" + lcCr _
             + "S" + lcCr + "Sierra Time Zone" + lcCr + "Military" + lcCr + "-6" + lcCr + "0" + lcCr _
             + "T" + lcCr + "Tango Time Zone" + lcCr + "Military" + lcCr + "-7" + lcCr + "0" + lcCr _
             + "U" + lcCr + "Uniform Time Zone" + lcCr + "Military" + lcCr + "-8" + lcCr + "0" + lcCr _
             + "UTC" + lcCr + "Coordinated Universal Time" + lcCr + "Europe" + lcCr + "0" + lcCr + "0" + lcCr _
             + "V" + lcCr + "Victor Time Zone" + lcCr + "Military" + lcCr + "-9" + lcCr + "0" + lcCr _
             + "W" + lcCr + "Whiskey Time Zone" + lcCr + "Military" + lcCr + "-10" + lcCr + "0" + lcCr _
             + "WEST" + lcCr + "Western European Summer Time" + lcCr + "Europe" + lcCr + "+1" + lcCr + "0" + lcCr _
             + "WET" + lcCr + "Western European Time" + lcCr + "Europe" + lcCr + "0" + lcCr + "0" + lcCr _
             + "WST" + lcCr + "Western Standard Time" + lcCr + "Australia" + lcCr + "+8" + lcCr + "0" + lcCr _
             + "X" + lcCr + "-ray Time Zone" + lcCr + "Military" + lcCr + "-11" + lcCr + "0" + lcCr _
             + "Y" + lcCr + "Yankee Time Zone" + lcCr + "Military" + lcCr + "-12" + lcCr + "0" + lcCr _
             + "Z" + lcCr + "Zulu Time Zone" + lcCr + "Military" + lcCr + "0" + lcCr + "0" + lcCr

Then, next to it, I have this VFP code that I need to convert into VB.NET:

            lnTotalLine = ALINES(aTimeZones, lcTimeZone)

            lnAbbreviation = ASCAN(aTimeZones, Mid(lcDateToConvert, oApp.RAt(" ", lcDateToConvert) + 1))
            lnToUTCHour = VAL(aTimeZones[ iAbbreviation + 3 ]) * -1
            lnToUTCMinute = VAL(aTimeZones[ iAbbreviation + 4 ]) * -1

However, ALINES() and ASCAN() do not exist in VB.NET. So, given the above code to initialize lcTimeZone, how would someone adjust the VFP code to be converted in VB.NET to achieve the same?

Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52

Répondre

Fil

Voir

Click here to load this message in the networking platform