fork download
copy 
  1. Function OutPut(S, str, kol As Variant)
  2.  
  3. Cells(str + 2, kol).Font.Bold = True
  4. Cells(str + 2, kol).HorizontalAlignment = xlLeft
  5. Cells(str + 2, kol).Value = S(4)
  6.  
  7. If (S(4) = "UM 75 PVR Ïð.Èí.ÕÂ4 á/î 490") Or _
  8.    (S(4) = "UM 75 PVR Ïð.Èí.ÕÂ4 21.6Ì 350") Or _
  9.    (S(4) = "UM SM75 PVR ÏÈ ÕÂ4 21.6Ì 350") Or _
  10.    (S(4) = "UM SM75 PVR ÏÈ ÕÂ3 á/î 390") Or _
  11.    (S(4) = "UM SM75 PVR ÏÈ ÕÂ4 á/î 490") Then
  12.         Cells(str + 7, kol).Font.Bold = True
  13.         Cells(str + 7, kol).HorizontalAlignment = xlLeft
  14.         Cells(str + 7, kol).Font.Size = 8
  15.         Cells(str + 7, kol).Value = "Õàéâåé 30- *115*07#   Õàéâåé 50- *115*09#"
  16. End If
  17.  
  18. Cells(str + 3, kol).Font.Bold = False
  19. Cells(str + 3, kol).HorizontalAlignment = xlRight
  20. Cells(str + 3, kol).Value = S(5)
  21. Cells(str + 4, kol).Font.Bold = True
  22. Cells(str + 4, kol).HorizontalAlignment = xlLeft
  23.  
  24. MyStr = Left(S(7), 3) & " " & Mid(S(7), 4, 3) & " " & Right(S(7), 4)
  25. AnyString = S(7)
  26. MyStrLeft = Left(AnyString, 6)
  27. MyStrRight = Right(AnyString, 4)
  28. MyStrCenter = Left(MyStrRight, 2)
  29.  
  30. 'Åñëè ýòî ãîðîäñêîé íîìåð èç äèàïàçîíà 963109
  31. If MyStrLeft = "963109" Then
  32.     MyStr = MyStr + "   (29-" + MyStrCenter + "-" + Right(MyStrRight, 2) + ")"
  33. End If
  34.  
  35. 'Åñëè ýòî ãîðîäñêîé íîìåð èç äèàïàçîíà 967701
  36. If MyStrLeft = "967701" Then
  37.     MyStr = MyStr + "   (21-" + MyStrCenter + "-" + Right(MyStrRight, 2) + ")"
  38. End If
  39.  
  40. 'Åñëè ýòî ãîðîäñêîé íîìåð èç äèàïàçîíà 903323
  41. If MyStrLeft = "903323" Then
  42.     If Not (((MyStrRight > "4099") And (MyStrRight < "4300")) Or _
  43.            ((MyStrRight > "4499") And (MyStrRight < "5000")) Or _
  44.            ((MyStrRight > "6099") And (MyStrRight < "6500")) Or _
  45.            ((MyStrRight > "6699") And (MyStrRight < "7000")) Or _
  46.            ((MyStrRight > "7099") And (MyStrRight < "7500")) Or _
  47.            ((MyStrRight > "8099") And (MyStrRight < "8700")) Or _
  48.            ((MyStrRight > "9099") And (MyStrRight < "9500"))) Then
  49.                 MyStr = MyStr + "   (30-" + MyStrCenter + "-" + Right(MyStrRight, 2) + ")"
  50. End If
  51.  
  52. 'Åñëè ýòî ãîðîäñêîé íîìåð èç äèàïàçîíà 906395
  53. If MyStrLeft = "906395" Then
  54.     If ((MyStrRight > "4099") And (MyStrRight < "4300")) Or _
  55.        ((MyStrRight > "4499") And (MyStrRight < "5000")) Or _
  56.        ((MyStrRight > "6099") And (MyStrRight < "6500")) Or _
  57.        ((MyStrRight > "6699") And (MyStrRight < "7000")) Or _
  58.        ((MyStrRight > "7099") And (MyStrRight < "7500")) Or _
  59.        ((MyStrRight > "8099") And (MyStrRight < "8700")) Or _
  60.        ((MyStrRight > "9099") And (MyStrRight < "9500")) Then
  61.             MyStr = MyStr + "   (30-" + MyStrCenter + "-" + Right(MyStrRight, 2) + ")"
  62.     End If
  63. End If
  64.  
  65. 'Åñëè ýòî ãîðîäñêîé íîìåð èç äèàïàçîíà 967445
  66. If MyStrLeft = "967445" Then
  67.     If ((MyStrRight >= "0000") And (MyStrRight <= "0999")) Then
  68.         MyStr = MyStr + "   (22-" + MyStrCenter + "-" + Right(MyStrRight, 2) + ")"
  69.     End If
  70. End If
  71.  
  72. 'Åñëè ýòî ãîðîäñêîé íîìåð èç äèàïàçîíà 967445
  73. If MyStrLeft = "967445" Then
  74.     If ((MyStrRight >= "3500") And (MyStrRight <= "4499")) Then
  75.         MyStr = MyStr + "   (23-" + MyStrCenter + "-" + Right(MyStrRight, 2) + ")"
  76.     End If
  77. End If
  78.  
  79. 'Åñëè ýòî ãîðîäñêîé íîìåð èç äèàïàçîíà 967444 (ã. Êóçíåöê)
  80. If MyStrLeft = "967444" Then
  81.     If ((MyStrRight >= "1000") And (MyStrRight <= "4999")) Then
  82.         MyStr = MyStr + " (84157)4" + MyStrCenter + Right(MyStrRight, 2)
  83.     End If
  84. End If
  85.  
  86. Cells(str + 4, kol).Font.Size = 13
  87.  
  88. If Cells(str + 4, kol).Font.Bold = False Then
  89.     Cells(j + 3, 1).Font.Bold = True
  90. End If
  91.  
  92. Cells(str + 4, kol).Value = MyStr
  93.  
  94. 'Åñëè âûáðàí ïàðàìåòð "Ïå÷àòàòü øòðèõ-êîäû"
  95. If PrintBarcodes.Value = True Then
  96.     Cells(str + 5, kol).NumberFormat = "Îáùèé"
  97.     Cells(str + 5, kol).Font.Name = "Barcode"
  98.     Cells(str + 5, kol).Font.Size = 20
  99.     Cells(str + 5, kol).Value = "=code_39(""" + S(5) + """)"
  100.     Cells(str + 5, kol).HorizontalAlignment = xlLeft
  101. End If
  102.  
  103. If Not ((S(4) = "NEW SIM êàðòà 64K ã.í.(ðåãèîí)") Or _
  104.        (S(4) = "NEW SIM êàðòà 64K ô.í.(ðåãèîí)") Or _
  105.        (S(4) = "SIM 75K USIM ô/í, ðåãèîí") Or _
  106.        (S(4) = "SIM 75K USIM ã/í, ðåãèîí") Or _
  107.        (S(4) = "SIM/Micro 75K USIM ô/í ðåãèîí") Or _
  108.        (S(4) = "SIM/Micro 75K USIM ã/í ðåãèîí")) Then
  109.             Cells(str + 6, kol).Font.Size = 8
  110.             Cells(str + 6, kol).HorizontalAlignment = xlLeft
  111.             Cells(str + 6, kol).VerticalAlignment = xlTop
  112.             Cells(str + 6, kol).Value = "àêòèâàöèÿ ñòàðòîâîé ñóììû *101*1111# âûçîâ"
  113. End If
  114.  
  115. End Function
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/ghh3hU/prog.vb (1,10) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (3,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (4,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (5,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (7,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (12,14) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (13,14) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (14,14) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (15,14) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (16,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (18,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (19,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (20,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (21,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (22,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (24,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (25,10) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (26,10) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (27,11) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (28,12) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (31,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (32,10) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (33,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (36,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (37,10) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (38,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (41,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (42,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (49,22) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (50,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (53,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (54,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (61,18) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (62,11) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (63,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (66,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (67,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (68,14) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (69,11) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (70,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (73,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (74,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (75,14) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (76,11) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (77,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (80,3) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (81,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (82,14) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (83,11) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (84,7) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (86,6) : Error VBNC30203: Not valid as identifier.
/home/ghh3hU/prog.vb (86,6) : Error VBNC30041: Too many errors.
Exception of type 'vbnc.TooManyErrorsException' was thrown.
  at vbnc.Report.ShowMessage (Boolean SaveIt, vbnc.Message Message) [0x00080] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:342 
  at vbnc.Report.ShowMessage (Messages Message, Span Location, System.String[] Parameters) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:259 
  at vbnc.Report.ShowMessage (Messages Message, System.String[] Parameters) [0x00054] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:269 
  at vbnc.Compiler.Compile () [0x005a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:651 
  at vbnc.Compiler.Compile (System.String[] CommandLine) [0x00057] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:279 
  at vbnc.Main.Main (System.String[] CmdArgs) [0x0000f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Main.vb:55 
Failed compilation took 00:00:00.5659160
stdout
copy 
Standard output is empty
https://ideone.com/EgzsIo
language:
VB.NET (mono-3.10)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!