Переписать с Basic-a на Visual C++
От: Аноним  
Дата: 29.08.07 17:32
Оценка:
Guys может кто нить поможет переписать кусок кода с Basic на Visual C++
Реальная проблема для меня
Буду благодарен за любую помощь

Implements Webdge.IWrcXlt
Dim recordCounter As Integer
Dim iCallback As Webdge.WrcXltPluginCallback
Dim isoList(244, 2) As String

Private Function IWrcXlt_Initialize(ByVal pWrcXltPluginCallback As Webdge.IWrcXltPluginCallback) As Long
    recordCounter = 0
    isoList(0, 0) = "AFGHANISTAN"
    isoList(0, 1) = "AF"
    isoList(1, 0) = "ALAND ISLANDS"
    isoList(1, 1) = "AX"
    isoList(2, 0) = "ALBANIA"
    isoList(2, 1) = "AL"
    isoList(3, 0) = "ALGERIA"
    isoList(3, 1) = "DZ"
    isoList(4, 0) = "AMERICAN SAMOA"
    isoList(4, 1) = "AS"
    isoList(5, 0) = "ANDORRA"
    isoList(5, 1) = "AD"
    isoList(6, 0) = "ANGOLA"
    isoList(6, 1) = "AO"
    isoList(7, 0) = "ANGUILLA"
    isoList(7, 1) = "AI"
    isoList(8, 0) = "ANTARCTICA"
    isoList(8, 1) = "AQ"
    isoList(9, 0) = "ANTIGUA AND BARBUDA"
    isoList(9, 1) = "AG"
    isoList(10, 0) = "ARGENTINA"
    isoList(10, 1) = "AR"
    isoList(11, 0) = "ARMENIA"
    isoList(11, 1) = "AM"
    isoList(12, 0) = "ARUBA"
    isoList(12, 1) = "AW"
    isoList(13, 0) = "AUSTRALIA"
    isoList(13, 1) = "AU"
    isoList(14, 0) = "AUSTRIA"
    isoList(14, 1) = "AT"
    isoList(15, 0) = "AZERBAIJAN"
    isoList(15, 1) = "AZ"
    isoList(16, 0) = "BAHAMAS"
    isoList(16, 1) = "BS"
    isoList(17, 0) = "BAHRAIN"
    isoList(17, 1) = "BH"
    isoList(18, 0) = "BANGLADESH"
    isoList(18, 1) = "BD"
    isoList(19, 0) = "BARBADOS"
    isoList(19, 1) = "BB"
    isoList(20, 0) = "BELARUS"
    isoList(20, 1) = "BY"
    isoList(21, 0) = "BELGIUM"
    isoList(21, 1) = "BE"
    isoList(22, 0) = "BELIEZE"
    isoList(22, 1) = "BZ"
    isoList(23, 0) = "BENIN"
    isoList(23, 1) = "BJ"
    isoList(24, 0) = "BERMUDA"
    isoList(24, 1) = "BM"
    isoList(25, 0) = "BHUTAN"
    isoList(25, 1) = "BT"
    isoList(26, 0) = "BOLIVIA"
    isoList(26, 1) = "BO"
    isoList(27, 0) = "BOSNIA AND HERZEGOVINA"
    isoList(27, 1) = "BA"
    isoList(28, 0) = "BOTSWANA"
    isoList(28, 1) = "BW"
    isoList(29, 0) = "BOUVET ISLAND"
    isoList(29, 1) = "BV"
    isoList(30, 0) = "BRAZIL"
    isoList(30, 1) = "BR"
    isoList(31, 0) = "BRITISH INDIAN OCEAN TERRITORY"
    isoList(31, 1) = "IO"
    isoList(32, 0) = "BRUNEI DARUSSALAM"
    isoList(32, 1) = "BN"
    isoList(33, 0) = "BULGARIA"
    isoList(33, 1) = "BG"
    isoList(34, 0) = "BURKINA FASO"
    isoList(34, 1) = "BF"
    isoList(35, 0) = "BURUNDI"
    isoList(35, 1) = "BI"
    isoList(36, 0) = "CAMBODIA"
    isoList(36, 1) = "KH"
    isoList(37, 0) = "CAMEROON"
    isoList(37, 1) = "CM"
    isoList(38, 0) = "CANADA"
    isoList(38, 1) = "CA"
    isoList(39, 0) = "CAPE VERDE"
    isoList(39, 1) = "CV"
    isoList(40, 0) = "CAYMAN ISLANDS"
    isoList(40, 1) = "KY"
    isoList(41, 0) = "CENTRAL AFRICAN REPUBLIC"
    isoList(41, 1) = "CF"
    isoList(42, 0) = "CHAD"
    isoList(42, 0) = "TD"
    isoList(43, 0) = "CHILE"
    isoList(43, 1) = "CL"
    isoList(44, 0) = "CHINA"
    isoList(44, 1) = "CN"
    isoList(45, 0) = "CHRISTMAS ISLAND"
    isoList(45, 1) = "CX"
    isoList(46, 0) = "COCOS (KEELING) ISLANDS"
    isoList(46, 1) = "CC"
    isoList(47, 0) = "COLUMBIA"
    isoList(47, 1) = "CO"
    isoList(48, 0) = "COMOROS"
    isoList(48, 1) = "KM"
    isoList(49, 0) = "CONGO"
    isoList(49, 1) = "CG"
    isoList(50, 0) = "CONGO, THE DEMOCRATIC REPUBLIC OF THE"
    isoList(50, 1) = "CD"
    isoList(51, 0) = "COOK ISLANDS"
    isoList(51, 1) = "CK"
    isoList(52, 0) = "COSTA RICA"
    isoList(52, 1) = "CR"
    isoList(53, 0) = "COTE D'IVOIRE"
    isoList(53, 1) = "CI"
    isoList(54, 0) = "CROATIA"
    isoList(54, 1) = "HR"
    isoList(55, 0) = "CUBA"
    isoList(55, 1) = "CU"
    isoList(56, 0) = "CYPRUS"
    isoList(56, 1) = "CY"
    isoList(57, 0) = "CZECH REPUBLIC"
    isoList(57, 1) = "CZ"
    isoList(58, 0) = "DENMARK"
    isoList(58, 1) = "DK"
    isoList(59, 0) = "DJIBOUTI"
    isoList(59, 1) = "DJ"
    isoList(60, 0) = "DOMINICA"
    isoList(60, 1) = "DM"
    isoList(61, 0) = "DOMINICAN REPUBLIC"
    isoList(61, 1) = "DO"
    isoList(62, 0) = "ECUADOR"
    isoList(62, 1) = "DC"
    isoList(63, 0) = "EGYPT"
    isoList(63, 1) = "EG"
    isoList(64, 0) = "EL SALVADOR"
    isoList(64, 1) = "SV"
    isoList(65, 0) = "EQUATORIAL GUINEA"
    isoList(65, 1) = "GQ"
    isoList(66, 0) = "ERITREA"
    isoList(66, 1) = "ER"
    isoList(67, 0) = "ESTONIA"
    isoList(67, 1) = "EE"
    isoList(68, 0) = "ETHIOPIA"
    isoList(68, 1) = "ET"
    isoList(69, 0) = "FALKLAND ISLANDS (MALVINAS)"
    isoList(69, 1) = "FK"
    isoList(70, 0) = "FAROE ISLANDS"
    isoList(70, 1) = "FO"
    isoList(71, 0) = "FIJI"
    isoList(71, 1) = "FJ"
    isoList(72, 0) = "FINLAND"
    isoList(72, 1) = "FI"
    isoList(73, 0) = "FRANCE"
    isoList(73, 1) = "FR"
    isoList(73, 0) = "FRENCH GUIANA"
    isoList(73, 1) = "GF"
    isoList(74, 0) = "FRENCH POLYNESIA"
    isoList(74, 1) = "PF"
    isoList(75, 0) = "FRENCH SOUTHERN TERRITORIES"
    isoList(75, 1) = "TF"
    isoList(76, 0) = "GABON"
    isoList(76, 1) = "GA"
    isoList(77, 0) = "GAMBIA"
    isoList(77, 1) = "GM"
    isoList(78, 0) = "GEORGIA"
    isoList(78, 1) = "GE"
    isoList(79, 0) = "GERMANY"
    isoList(79, 1) = "DE"
    isoList(80, 0) = "GHANA"
    isoList(80, 1) = "GH"
    isoList(81, 0) = "GIBRALTAR"
    isoList(81, 1) = "GI"
    isoList(82, 0) = "GREECE"
    isoList(82, 1) = "GR"
    isoList(82, 0) = "GREENLAND"
    isoList(83, 1) = "GL"
    isoList(84, 0) = "GRENADA"
    isoList(84, 1) = "GD"
    isoList(85, 0) = "GUADELOUPE"
    isoList(85, 1) = "GP"
    isoList(86, 0) = "GUAM"
    isoList(86, 1) = "GU"
    isoList(87, 0) = "GUATEMALA"
    isoList(87, 1) = "GT"
    isoList(88, 0) = "GUERNSEY"
    isoList(88, 1) = "GG"
    isoList(89, 0) = "GUINEA"
    isoList(89, 1) = "GN"
    isoList(90, 0) = "GUINEA-BISSAU"
    isoList(90, 1) = "GW"
    isoList(91, 0) = "GUYANA"
    isoList(91, 1) = "GY"
    isoList(92, 0) = "HAITI"
    isoList(92, 1) = "GT"
    isoList(93, 0) = "HEARD ISLAND AND MCDONALD ISLANDS"
    isoList(93, 1) = "HM"
    isoList(94, 0) = "HOLY SEE (VATICAN CITY STATE)"
    isoList(94, 1) = "VA"
    isoList(95, 0) = "HONDURAS"
    isoList(95, 1) = "HN"
    isoList(96, 0) = "HONG KONG"
    isoList(96, 1) = "HK"
    isoList(97, 0) = "HUNGARY"
    isoList(97, 1) = "HU"
    isoList(98, 0) = "ICELAND"
    isoList(98, 1) = "IS"
    isoList(99, 0) = "INDIA"
    isoList(99, 1) = "IN"
    isoList(100, 0) = "INDONESIA"
    isoList(100, 1) = "ID"
    isoList(101, 0) = "IRAN, ISLAMIC REPUBLIC OF"
    isoList(101, 1) = "IR"
    isoList(102, 0) = "IRAQ"
    isoList(102, 1) = "IQ"
    isoList(103, 0) = "IRELAND"
    isoList(103, 1) = "IE"
    isoList(104, 0) = "ISLE OF MAN"
    isoList(104, 1) = "IM"
    isoList(105, 0) = "ISRAEL"
    isoList(105, 1) = "IL"
    isoList(106, 0) = "ITALY"
    isoList(106, 1) = "IT"
    isoList(107, 0) = "JAMAICA"
    isoList(107, 1) = "JM"
    isoList(108, 0) = "JAPAN"
    isoList(108, 1) = "JP"
    isoList(109, 0) = "JERSEY"
    isoList(109, 1) = "JE"
    isoList(110, 0) = "JORDAN"
    isoList(110, 1) = "JO"
    isoList(111, 0) = "KAZAKHSTAN"
    isoList(111, 1) = "KZ"
    isoList(112, 0) = "KENYA"
    isoList(112, 1) = "KE"
    isoList(113, 0) = "KIRIBATI"
    isoList(113, 1) = "KI"
    isoList(114, 0) = "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF"
    isoList(114, 1) = "KP"
    isoList(115, 0) = "KOREA, REPUBLIC OF"
    isoList(115, 1) = "KR"
    isoList(116, 0) = "KUWAIT"
    isoList(116, 1) = "KW"
    isoList(117, 0) = "KYRGYZSTAN"
    isoList(117, 1) = "KG"
    isoList(118, 0) = "LAO PEOPLE'S DEMOCRATIC REPUBLIC"
    isoList(118, 1) = "LA"
    isoList(119, 0) = "LATVIA"
    isoList(119, 1) = "LV"
    isoList(120, 0) = "LEBANON"
    isoList(120, 1) = "LB"
    isoList(121, 0) = "LESOTHO"
    isoList(121, 1) = "LS"
    isoList(122, 0) = "LIBERIA"
    isoList(122, 1) = "LR"
    isoList(123, 0) = "LIBYAN ARAB JAMAHIRIYA"
    isoList(123, 1) = "LY"
    isoList(124, 0) = "LIECHTENSTEIN"
    isoList(124, 1) = "LI"
    isoList(125, 0) = "LITHUANIA"
    isoList(125, 1) = "LT"
    isoList(126, 0) = "LUXEMBOURG"
    isoList(126, 1) = "LU"
    isoList(127, 0) = "MACAO"
    isoList(127, 1) = "MO"
    isoList(128, 0) = "MACEDONIA, THE FORMER YOGUSLAV REPUBLIC OF"
    isoList(128, 1) = "MK"
    isoList(129, 0) = "MADAGASCAR"
    isoList(129, 1) = "MG"
    isoList(130, 0) = "MALAWI"
    isoList(130, 1) = "MW"
    isoList(131, 0) = "MALAYSIA"
    isoList(131, 1) = "MY"
    isoList(132, 0) = "MALDIVES"
    isoList(132, 1) = "MV"
    isoList(133, 0) = "MALI"
    isoList(133, 1) = "ML"
    isoList(134, 0) = "MALTA"
    isoList(134, 1) = "MT"
    isoList(135, 0) = "MARSHALL ISLANDS"
    isoList(135, 1) = "MH"
    isoList(136, 0) = "MARTINIQUE"
    isoList(136, 1) = "MQ"
    isoList(137, 0) = "MAURITIUS"
    isoList(137, 1) = "MU"
    isoList(138, 0) = "MAYOTTE"
    isoList(138, 1) = "YT"
    isoList(139, 0) = "MEXICO"
    isoList(139, 1) = "MX"
    isoList(140, 0) = "MICRONESIA, FEDERATED STATES OF"
    isoList(140, 1) = "FM"
    isoList(141, 0) = "MOLDOVA, REPUBLIC OF"
    isoList(141, 1) = "MD"
    isoList(142, 0) = "MONACO"
    isoList(142, 1) = "MC"
    isoList(143, 0) = "MONGOLIA"
    isoList(143, 1) = "MN"
    isoList(144, 0) = "MONTENEGRO"
    isoList(144, 1) = "ME"
    isoList(145, 0) = "MONTSERRAT"
    isoList(145, 1) = "MS"
    isoList(146, 0) = "MOROCCO"
    isoList(146, 1) = "MA"
    isoList(147, 0) = "MOZAMBIQUE"
    isoList(147, 1) = "MZ"
    isoList(148, 0) = "MYANMAR"
    isoList(148, 1) = "MM"
    isoList(149, 0) = "NAMIBIA"
    isoList(149, 1) = "NA"
    isoList(150, 0) = "NAURU"
    isoList(150, 1) = "NR"
    isoList(151, 0) = "NEPAL"
    isoList(151, 1) = "NP"
    isoList(152, 0) = "NETHERLANDS"
    isoList(152, 1) = "NL"
    isoList(153, 0) = "NETHERLANDS ANTILLES"
    isoList(153, 1) = "AN"
    isoList(154, 0) = "NEW CALEDONIA"
    isoList(154, 1) = "NC"
    isoList(155, 0) = "NEW ZEALAND"
    isoList(155, 1) = "NZ"
    isoList(156, 0) = "NICARAGUA"
    isoList(156, 1) = "NI"
    isoList(157, 0) = "NIGER"
    isoList(157, 1) = "NE"
    isoList(158, 0) = "NIGERIA"
    isoList(158, 1) = "NG"
    isoList(159, 0) = "NIUE"
    isoList(159, 1) = "NU"
    isoList(160, 0) = "NORFOLK ISLAND"
    isoList(160, 1) = "NF"
    isoList(161, 0) = "NORTHERN MARIANA ISLANDS"
    isoList(161, 1) = "MP"
    isoList(162, 0) = "NORWAY"
    isoList(162, 1) = "NO"
    isoList(163, 0) = "OMAN"
    isoList(163, 1) = "OM"
    isoList(164, 0) = "PAKISTAN"
    isoList(164, 1) = "PK"
    isoList(165, 0) = "PALAU"
    isoList(165, 1) = "PW"
    isoList(166, 0) = "PALESTINIAN TERRITORY, OCCUPIED"
    isoList(166, 1) = "PS"
    isoList(167, 0) = "PANAMA"
    isoList(167, 1) = "PA"
    isoList(168, 0) = "PAPUA NEW GUINEA"
    isoList(168, 1) = "PG"
    isoList(169, 0) = "PARAGUAY"
    isoList(169, 1) = "PY"
    isoList(170, 0) = "PERU"
    isoList(170, 1) = "PE"
    isoList(171, 0) = "PHILIPPINES"
    isoList(171, 1) = "PH"
    isoList(172, 0) = "PITCAIRN"
    isoList(172, 1) = "PN"
    isoList(173, 0) = "POLAND"
    isoList(173, 1) = "PL"
    isoList(174, 0) = "PORTUGAL"
    isoList(174, 1) = "PT"
    isoList(175, 0) = "PUERTO RICO"
    isoList(175, 1) = "PR"
    isoList(176, 0) = "QATAR"
    isoList(176, 1) = "QA"
    isoList(177, 0) = "REUNION"
    isoList(177, 1) = "RE"
    isoList(178, 0) = "ROMANIA"
    isoList(178, 1) = "RO"
    isoList(179, 0) = "RUSSIAN FEDERATION"
    isoList(179, 1) = "RU"
    isoList(180, 0) = "RWANDA"
    isoList(180, 1) = "RW"
    isoList(181, 0) = "SAINT HELENA"
    isoList(181, 1) = "SH"
    isoList(182, 0) = "SAINT KITTS AND NEVIS"
    isoList(182, 1) = "KN"
    isoList(183, 0) = "SAINT LUCIA"
    isoList(183, 1) = "LC"
    isoList(184, 0) = "SAINT PIERRE AND MIQUELON"
    isoList(184, 1) = "PM"
    isoList(185, 0) = "SAINT VINCENT AND THE GRENADINES"
    isoList(185, 1) = "VC"
    isoList(186, 0) = "SAMOA"
    isoList(186, 1) = "WS"
    isoList(187, 0) = "SAN MARINO"
    isoList(187, 1) = "SM"
    isoList(188, 0) = "SAO TOME AND PRINCIPE"
    isoList(188, 1) = "ST"
    isoList(189, 0) = "SAUDIA ARABIA"
    isoList(189, 1) = "SA"
    isoList(190, 0) = "SENEGAL"
    isoList(190, 1) = "SN"
    isoList(191, 0) = "SERBIA"
    isoList(191, 1) = "RS"
    isoList(192, 0) = "SEYCHELLES"
    isoList(192, 1) = "SC"
    isoList(193, 0) = "SIERRA LEONA"
    isoList(193, 1) = "SL"
    isoList(194, 0) = "SINGAPORE"
    isoList(194, 1) = "SG"
    isoList(195, 0) = "SLOVAKIA"
    isoList(195, 1) = "SK"
    isoList(196, 0) = "SLOVENIA"
    isoList(196, 1) = "SI"
    isoList(197, 0) = "SOLOMON ISLANDS"
    isoList(197, 1) = "SB"
    isoList(198, 0) = "SOMALIA"
    isoList(198, 1) = "SO"
    isoList(199, 0) = "SOUTH AFRICA"
    isoList(199, 1) = "ZA"
    isoList(200, 0) = "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS"
    isoList(200, 1) = "GS"
    isoList(201, 0) = "SPAIN"
    isoList(201, 1) = "ES"
    isoList(202, 0) = "SRI LANKA"
    isoList(202, 1) = "LK"
    isoList(203, 0) = "SUDAN"
    isoList(203, 1) = "SD"
    isoList(204, 0) = "SURINAME"
    isoList(204, 1) = "SR"
    isoList(205, 0) = "SVALBARD AND JAN MAYEN"
    isoList(205, 1) = "SJ"
    isoList(206, 0) = "SWAZILAND"
    isoList(206, 1) = "SZ"
    isoList(207, 0) = "SWEDEN"
    isoList(207, 1) = "SE"
    isoList(208, 0) = "SWITZERLAND"
    isoList(208, 1) = "CH"
    isoList(209, 0) = "SYRIAN ARAB REPUBLIC"
    isoList(209, 1) = "SY"
    isoList(210, 0) = "TAIWAN, PROVINCE OF CHINA"
    isoList(210, 1) = "TW"
    isoList(211, 0) = "TAJIKISTAN"
    isoList(211, 1) = "TJ"
    isoList(212, 0) = "TANZANIA, UNITED REPUBLIC OF"
    isoList(212, 1) = "TZ"
    isoList(213, 0) = "THAILAND"
    isoList(213, 1) = "TH"
    isoList(214, 0) = "TIMOR-LESTE"
    isoList(214, 1) = "TL"
    isoList(215, 0) = "TOGO"
    isoList(215, 1) = "TG"
    isoList(216, 0) = "TOKELAU"
    isoList(216, 1) = "TK"
    isoList(217, 0) = "TONGA"
    isoList(217, 1) = "TO"
    isoList(218, 0) = "TRINIDAD AND TOBAGO"
    isoList(218, 1) = "TT"
    isoList(219, 0) = "TUNISIA"
    isoList(219, 1) = "TN"
    isoList(220, 0) = "TURKEY"
    isoList(220, 1) = "TR"
    isoList(221, 0) = "TURKMENISTAN"
    isoList(221, 1) = "TM"
    isoList(222, 0) = "TURKS AND CAICOS ISLANDS"
    isoList(222, 1) = "TC"
    isoList(223, 0) = "TUVALU"
    isoList(223, 1) = "TV"
    isoList(224, 0) = "UGANDA"
    isoList(224, 1) = "UG"
    isoList(225, 0) = "UKRAINE"
    isoList(225, 1) = "UA"
    isoList(226, 0) = "UNITED ARAB EMIRATES"
    isoList(226, 1) = "AE"
    isoList(227, 0) = "UNITED KINGDOM"
    isoList(227, 1) = "GB"
    isoList(228, 0) = "UNITED STATES"
    isoList(228, 1) = "US"
    isoList(229, 0) = "UNITED STATES MINOR OUTLYING ISLANDS"
    isoList(229, 1) = "UM"
    isoList(230, 0) = "URAGUAY"
    isoList(230, 1) = "UY"
    isoList(231, 0) = "UZBEKISTAN"
    isoList(231, 1) = "UZ"
    isoList(232, 0) = "VANUATU"
    isoList(232, 1) = "VU"
    isoList(233, 0) = "VATICAN CITY STATE"
    isoList(233, 1) = "VA"
    isoList(234, 0) = "VENEZUELA"
    isoList(234, 1) = "VE"
    isoList(235, 0) = "VIET NAM"
    isoList(235, 1) = "VN"
    isoList(236, 0) = "VIRGIN ISLANDS, BRITISH"
    isoList(236, 1) = "VB"
    isoList(237, 0) = "VIRGIN ISLANDS, U.S."
    isoList(237, 1) = "VI"
    isoList(238, 0) = "WALLIS AND FUTUNA"
    isoList(238, 1) = "WF"
    isoList(239, 0) = "WESTERN SAHARA"
    isoList(239, 1) = "EH"
    isoList(240, 0) = "YEMEN"
    isoList(240, 1) = "YE"
    isoList(241, 0) = "ZAIRE"
    isoList(241, 1) = "CD"
    isoList(242, 0) = "ZAMBIA"
    isoList(242, 1) = "ZM"
    isoList(243, 0) = "ZIMBABWE"
    isoList(243, 1) = "ZW"




    Set iCallback = pWrcXltPluginCallback
    iCallback.AppSet App_GetSet_SaveRawLogLine, ""
    iCallback.AppSetAddToStatusLog 1, "Custom Plug-in Initialized - jgj"
    IWrcXlt_Initialize = XltOk

End Function

Private Sub IWrcXlt_Terminate()

End Sub

Private Function IWrcXlt_TranslateAnalysisAbort() As Long

End Function

Private Function IWrcXlt_TranslateAnalysisStart() As Long

End Function

Private Function IWrcXlt_TranslateAnalysisStop() As Long

End Function

Private Function IWrcXlt_TranslateEndOfDataCloseout() As Long

End Function

Private Sub IWrcXlt_TranslateEndOfDataCloseoutResult(ByVal nResult As Long)

End Sub

Private Function IWrcXlt_TranslateEndOfDayCloseout() As Long

End Function

Private Sub IWrcXlt_TranslateEndOfDayCloseoutResult(ByVal nResult As Long)

End Sub
     
Private Function IWrcXlt_TranslateHit(ByVal nHandle As Long) As Long
    
    ' Declare variables
Dim rawResult As String
Dim cntyResult As String
Dim ccResult As String
Dim x As Integer
Dim lookup As String
Dim fields() As String

rawResult = ""
cntyResult = ""
ccResult = ""
lookup = ""

cntyResult = iCallback.ResolveName(nHandle, "oneparam:cnty")
rawResult = iCallback.ResolveName(nHandle, "rawlogline")

fields = Split(rawResult, " ", , vbTextCompare)

Dim re As New RegExp, m As Match
re.Pattern = "cc=.."
re.Global = True

'Search for cc value from column 15 (dcs-geo)
If (re.Test(fields(14)) = True) Then
    For Each m In re.Execute(rawResult)
        ccResult = m.Value
    Next
End If

'Look up the short value from the ISO 3166 Code list defined globally
If (Len(cntyResult) > 0) And (Len(ccResult) > 0) Then
    For x = 0 To 244
        If (UCase$(cntyResult) = UCase$(isoList(244 - x, 0))) Then
            lookup = isoList(244 - x, 1)
            x = 245
        End If
    Next x
    
    'If we found something in the ISO list, compare the short value to cc paramter.
    If Len(lookup) > 0 Then
        If (lookup <> Right$(UCase$(ccResult), 2)) Then
            iCallback.ApplyTranslation nHandle, "params", "append", "WT.z_cb=1"
            Rem iCallback.AppSetAddToStatusLog 1, lookup & " did not match " & Right$(UCase$(ccResult), 2)
        End If
    End If
    
End If
End Function



Private Function IWrcXlt_TranslateProfileDelete() As Long

End Function

Private Function IWrcXlt_TranslateProfileReset() As Long

End Function

Private Function IWrcXlt_TranslateVisitorSession(ByVal nHandle As Long, ByVal nHitSessionId As Long, ByVal bstrVisitorId As String) As Long

End Function

Private Function IWrcXlt_TranslateVisitorHit(ByVal nHandle As Long, ByVal HitSessionId As Long, ByVal bstrVisitorId As String, ByVal bNewVisitorSession As Long) As Long


End Function


Добавлено форматирование — Кодт
Re: Переписать с Basic-a на Visual C++
От: bkat  
Дата: 29.08.07 19:16
Оценка: :))
Здравствуйте, Аноним, Вы писали:

А>Guys может кто нить поможет переписать кусок кода с Basic на Visual C++


Ты ошибся форумом. Тебе надо сюда:
Работа &mdash; предложения работы от прямых работодателей
Re: Переписать с Basic-a на Visual C++
От: Кодт Россия  
Дата: 30.08.07 11:21
Оценка: +1
Здравствуйте, <Аноним>, Вы писали:

Ого, какой хинди-код!

Во-первых, прямо напрашивается сделать инициализацию массива с помощью функции.
Dim isoList(244,2) As String
Private isoListCount As Integer

Private Sub AddToList(full As String, brief As String)
    isoList(isoListCount,0) = full
    isoList(isoListCount,1) = brief
    isoListCount = isoListCount+1
End Sub

Private Sub InitializeIsoList
    isoListCount = 0
    AddToList "AFGANISTAN", "AF"
    .....
    AddToList "ZIMBABVE", "ZW"

Во-вторых, лепо ли в каждом твоём объекте заново заполнять эту таблицу?
Вынес бы в отдельный модуль.

Это что касается васика.
На С++ можно и статический массив строк задействовать, и готовые алгоритмы поиска/обхода.

Вот только писанины по изготовлению COM-сервера будет гораздо больше — даже если привлечь ATL.
... << RSDN@Home 1.2.0 alpha rev. 655>>
Перекуём баги на фичи!
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.