Skip to content

Commit ddefeda

Browse files
gewarrengewarren
committed
fix snippets 5000 errors
1 parent 8ee2426 commit ddefeda

File tree

12 files changed

+235
-231
lines changed

12 files changed

+235
-231
lines changed

‎snippets/visualbasic/System.Reflection.Emit/ILGenerator/EmitCall/Project.vbproj‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
<PropertyGroup>
44
<OutputType>Exe</OutputType>
5-
<TargetFramework>net9.0</TargetFramework>
5+
<TargetFramework>net481</TargetFramework>
66
</PropertyGroup>
77

88
</Project>

‎snippets/visualbasic/System.Runtime.InteropServices/Marshal/GetActiveObject/Project.vbproj‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
<PropertyGroup>
44
<OutputType>Exe</OutputType>
5-
<TargetFramework>net9.0</TargetFramework>
5+
<TargetFramework>net481</TargetFramework>
66
</PropertyGroup>
77

88
</Project>

‎snippets/visualbasic/System/String/ToUpper/ToUpperEx.vb‎

Lines changed: 81 additions & 80 deletions
Original file line numberDiff line numberDiff line change
@@ -1,84 +1,85 @@
11
' Visual Basic .NET Document
22
Option Strict On
33

4-
' <Snippet1>
5-
Module Example
6-
Public Sub Main()
7-
Dim n As Integer = 0
8-
For ctr As Integer = &h20 To &h017F
9-
Dim string1 As String = ChrW(ctr).ToString()
10-
Dim upperString As String = string1.ToUpper()
11-
If string1 <> upperString Then
12-
Console.Write("{0} (\u+{1}) --> {2} (\u+{3}) ", _
13-
string1, _
14-
Convert.ToUInt16(string1.Chars(0)).ToString("X4"), _
15-
upperString, _
16-
Convert.ToUInt16(upperString.Chars(0)).ToString("X4"))
17-
n += 1
18-
If n Mod 2 = 0 Then Console.WriteLine()
19-
End If
20-
Next
21-
End Sub
4+
Module Example2
5+
Public Sub Main1()
6+
' <Snippet1>
7+
Dim n As Integer = 0
8+
For ctr As Integer = &H20 To &H17F
9+
Dim string1 As String = ChrW(ctr).ToString()
10+
Dim upperString As String = string1.ToUpper()
11+
If string1 <> upperString Then
12+
Console.Write("{0} (\u+{1}) --> {2} (\u+{3}) ",
13+
string1,
14+
Convert.ToUInt16(string1.Chars(0)).ToString("X4"),
15+
upperString,
16+
Convert.ToUInt16(upperString.Chars(0)).ToString("X4"))
17+
n += 1
18+
If n Mod 2 = 0 Then Console.WriteLine()
19+
End If
20+
Next
21+
22+
' The example displays the following output:
23+
' a (\u+0061) --> A (\u+0041) b (\u+0062) --> B (\u+0042)
24+
' c (\u+0063) --> C (\u+0043) d (\u+0064) --> D (\u+0044)
25+
' e (\u+0065) --> E (\u+0045) f (\u+0066) --> F (\u+0046)
26+
' g (\u+0067) --> G (\u+0047) h (\u+0068) --> H (\u+0048)
27+
' i (\u+0069) --> I (\u+0049) j (\u+006A) --> J (\u+004A)
28+
' k (\u+006B) --> K (\u+004B) l (\u+006C) --> L (\u+004C)
29+
' m (\u+006D) --> M (\u+004D) n (\u+006E) --> N (\u+004E)
30+
' o (\u+006F) --> O (\u+004F) p (\u+0070) --> P (\u+0050)
31+
' q (\u+0071) --> Q (\u+0051) r (\u+0072) --> R (\u+0052)
32+
' s (\u+0073) --> S (\u+0053) t (\u+0074) --> T (\u+0054)
33+
' u (\u+0075) --> U (\u+0055) v (\u+0076) --> V (\u+0056)
34+
' w (\u+0077) --> W (\u+0057) x (\u+0078) --> X (\u+0058)
35+
' y (\u+0079) --> Y (\u+0059) z (\u+007A) --> Z (\u+005A)
36+
' à (\u+00E0) --> À (\u+00C0) á (\u+00E1) --> Á (\u+00C1)
37+
' â (\u+00E2) --> Â (\u+00C2) ã (\u+00E3) --> Ã (\u+00C3)
38+
' ä (\u+00E4) --> Ä (\u+00C4) å (\u+00E5) --> Å (\u+00C5)
39+
' æ (\u+00E6) --> Æ (\u+00C6) ç (\u+00E7) --> Ç (\u+00C7)
40+
' è (\u+00E8) --> È (\u+00C8) é (\u+00E9) --> É (\u+00C9)
41+
' ê (\u+00EA) --> Ê (\u+00CA) ë (\u+00EB) --> Ë (\u+00CB)
42+
' ì (\u+00EC) --> Ì (\u+00CC) í (\u+00ED) --> Í (\u+00CD)
43+
' î (\u+00EE) --> Î (\u+00CE) ï (\u+00EF) --> Ï (\u+00CF)
44+
' ð (\u+00F0) --> Ð (\u+00D0) ñ (\u+00F1) --> Ñ (\u+00D1)
45+
' ò (\u+00F2) --> Ò (\u+00D2) ó (\u+00F3) --> Ó (\u+00D3)
46+
' ô (\u+00F4) --> Ô (\u+00D4) õ (\u+00F5) --> Õ (\u+00D5)
47+
' ö (\u+00F6) --> Ö (\u+00D6) ø (\u+00F8) --> Ø (\u+00D8)
48+
' ù (\u+00F9) --> Ù (\u+00D9) ú (\u+00FA) --> Ú (\u+00DA)
49+
' û (\u+00FB) --> Û (\u+00DB) ü (\u+00FC) --> Ü (\u+00DC)
50+
' ý (\u+00FD) --> Ý (\u+00DD) þ (\u+00FE) --> Þ (\u+00DE)
51+
' ÿ (\u+00FF) --> Ÿ (\u+0178) ā (\u+0101) --> Ā (\u+0100)
52+
' ă (\u+0103) --> Ă (\u+0102) ą (\u+0105) --> Ą (\u+0104)
53+
' ć (\u+0107) --> Ć (\u+0106) ĉ (\u+0109) --> Ĉ (\u+0108)
54+
' ċ (\u+010B) --> Ċ (\u+010A) č (\u+010D) --> Č (\u+010C)
55+
' ď (\u+010F) --> Ď (\u+010E) đ (\u+0111) --> Đ (\u+0110)
56+
' ē (\u+0113) --> Ē (\u+0112) ĕ (\u+0115) --> Ĕ (\u+0114)
57+
' ė (\u+0117) --> Ė (\u+0116) ę (\u+0119) --> Ę (\u+0118)
58+
' ě (\u+011B) --> Ě (\u+011A) ĝ (\u+011D) --> Ĝ (\u+011C)
59+
' ğ (\u+011F) --> Ğ (\u+011E) ġ (\u+0121) --> Ġ (\u+0120)
60+
' ģ (\u+0123) --> Ģ (\u+0122) ĥ (\u+0125) --> Ĥ (\u+0124)
61+
' ħ (\u+0127) --> Ħ (\u+0126) ĩ (\u+0129) --> Ĩ (\u+0128)
62+
' ī (\u+012B) --> Ī (\u+012A) ĭ (\u+012D) --> Ĭ (\u+012C)
63+
' į (\u+012F) --> Į (\u+012E) ı (\u+0131) --> I (\u+0049)
64+
' ij (\u+0133) --> IJ (\u+0132) ĵ (\u+0135) --> Ĵ (\u+0134)
65+
' ķ (\u+0137) --> Ķ (\u+0136) ĺ (\u+013A) --> Ĺ (\u+0139)
66+
' ļ (\u+013C) --> Ļ (\u+013B) ľ (\u+013E) --> Ľ (\u+013D)
67+
' ŀ (\u+0140) --> Ŀ (\u+013F) ł (\u+0142) --> Ł (\u+0141)
68+
' ń (\u+0144) --> Ń (\u+0143) ņ (\u+0146) --> Ņ (\u+0145)
69+
' ň (\u+0148) --> Ň (\u+0147) ŋ (\u+014B) --> Ŋ (\u+014A)
70+
' ō (\u+014D) --> Ō (\u+014C) ŏ (\u+014F) --> Ŏ (\u+014E)
71+
' ő (\u+0151) --> Ő (\u+0150) œ (\u+0153) --> Œ (\u+0152)
72+
' ŕ (\u+0155) --> Ŕ (\u+0154) ŗ (\u+0157) --> Ŗ (\u+0156)
73+
' ř (\u+0159) --> Ř (\u+0158) ś (\u+015B) --> Ś (\u+015A)
74+
' ŝ (\u+015D) --> Ŝ (\u+015C) ş (\u+015F) --> Ş (\u+015E)
75+
' š (\u+0161) --> Š (\u+0160) ţ (\u+0163) --> Ţ (\u+0162)
76+
' ť (\u+0165) --> Ť (\u+0164) ŧ (\u+0167) --> Ŧ (\u+0166)
77+
' ũ (\u+0169) --> Ũ (\u+0168) ū (\u+016B) --> Ū (\u+016A)
78+
' ŭ (\u+016D) --> Ŭ (\u+016C) ů (\u+016F) --> Ů (\u+016E)
79+
' ű (\u+0171) --> Ű (\u+0170) ų (\u+0173) --> Ų (\u+0172)
80+
' ŵ (\u+0175) --> Ŵ (\u+0174) ŷ (\u+0177) --> Ŷ (\u+0176)
81+
' ź (\u+017A) --> Ź (\u+0179) ż (\u+017C) --> Ż (\u+017B)
82+
' ž (\u+017E) --> Ž (\u+017D)
83+
' </Snippet1>
84+
End Sub
2285
End Module
23-
' The example displays the following output:
24-
' a (\u+0061) --> A (\u+0041) b (\u+0062) --> B (\u+0042)
25-
' c (\u+0063) --> C (\u+0043) d (\u+0064) --> D (\u+0044)
26-
' e (\u+0065) --> E (\u+0045) f (\u+0066) --> F (\u+0046)
27-
' g (\u+0067) --> G (\u+0047) h (\u+0068) --> H (\u+0048)
28-
' i (\u+0069) --> I (\u+0049) j (\u+006A) --> J (\u+004A)
29-
' k (\u+006B) --> K (\u+004B) l (\u+006C) --> L (\u+004C)
30-
' m (\u+006D) --> M (\u+004D) n (\u+006E) --> N (\u+004E)
31-
' o (\u+006F) --> O (\u+004F) p (\u+0070) --> P (\u+0050)
32-
' q (\u+0071) --> Q (\u+0051) r (\u+0072) --> R (\u+0052)
33-
' s (\u+0073) --> S (\u+0053) t (\u+0074) --> T (\u+0054)
34-
' u (\u+0075) --> U (\u+0055) v (\u+0076) --> V (\u+0056)
35-
' w (\u+0077) --> W (\u+0057) x (\u+0078) --> X (\u+0058)
36-
' y (\u+0079) --> Y (\u+0059) z (\u+007A) --> Z (\u+005A)
37-
' à (\u+00E0) --> À (\u+00C0) á (\u+00E1) --> Á (\u+00C1)
38-
' â (\u+00E2) --> Â (\u+00C2) ã (\u+00E3) --> Ã (\u+00C3)
39-
' ä (\u+00E4) --> Ä (\u+00C4) å (\u+00E5) --> Å (\u+00C5)
40-
' æ (\u+00E6) --> Æ (\u+00C6) ç (\u+00E7) --> Ç (\u+00C7)
41-
' è (\u+00E8) --> È (\u+00C8) é (\u+00E9) --> É (\u+00C9)
42-
' ê (\u+00EA) --> Ê (\u+00CA) ë (\u+00EB) --> Ë (\u+00CB)
43-
' ì (\u+00EC) --> Ì (\u+00CC) í (\u+00ED) --> Í (\u+00CD)
44-
' î (\u+00EE) --> Î (\u+00CE) ï (\u+00EF) --> Ï (\u+00CF)
45-
' ð (\u+00F0) --> Ð (\u+00D0) ñ (\u+00F1) --> Ñ (\u+00D1)
46-
' ò (\u+00F2) --> Ò (\u+00D2) ó (\u+00F3) --> Ó (\u+00D3)
47-
' ô (\u+00F4) --> Ô (\u+00D4) õ (\u+00F5) --> Õ (\u+00D5)
48-
' ö (\u+00F6) --> Ö (\u+00D6) ø (\u+00F8) --> Ø (\u+00D8)
49-
' ù (\u+00F9) --> Ù (\u+00D9) ú (\u+00FA) --> Ú (\u+00DA)
50-
' û (\u+00FB) --> Û (\u+00DB) ü (\u+00FC) --> Ü (\u+00DC)
51-
' ý (\u+00FD) --> Ý (\u+00DD) þ (\u+00FE) --> Þ (\u+00DE)
52-
' ÿ (\u+00FF) --> Ÿ (\u+0178) ā (\u+0101) --> Ā (\u+0100)
53-
' ă (\u+0103) --> Ă (\u+0102) ą (\u+0105) --> Ą (\u+0104)
54-
' ć (\u+0107) --> Ć (\u+0106) ĉ (\u+0109) --> Ĉ (\u+0108)
55-
' ċ (\u+010B) --> Ċ (\u+010A) č (\u+010D) --> Č (\u+010C)
56-
' ď (\u+010F) --> Ď (\u+010E) đ (\u+0111) --> Đ (\u+0110)
57-
' ē (\u+0113) --> Ē (\u+0112) ĕ (\u+0115) --> Ĕ (\u+0114)
58-
' ė (\u+0117) --> Ė (\u+0116) ę (\u+0119) --> Ę (\u+0118)
59-
' ě (\u+011B) --> Ě (\u+011A) ĝ (\u+011D) --> Ĝ (\u+011C)
60-
' ğ (\u+011F) --> Ğ (\u+011E) ġ (\u+0121) --> Ġ (\u+0120)
61-
' ģ (\u+0123) --> Ģ (\u+0122) ĥ (\u+0125) --> Ĥ (\u+0124)
62-
' ħ (\u+0127) --> Ħ (\u+0126) ĩ (\u+0129) --> Ĩ (\u+0128)
63-
' ī (\u+012B) --> Ī (\u+012A) ĭ (\u+012D) --> Ĭ (\u+012C)
64-
' į (\u+012F) --> Į (\u+012E) ı (\u+0131) --> I (\u+0049)
65-
' ij (\u+0133) --> IJ (\u+0132) ĵ (\u+0135) --> Ĵ (\u+0134)
66-
' ķ (\u+0137) --> Ķ (\u+0136) ĺ (\u+013A) --> Ĺ (\u+0139)
67-
' ļ (\u+013C) --> Ļ (\u+013B) ľ (\u+013E) --> Ľ (\u+013D)
68-
' ŀ (\u+0140) --> Ŀ (\u+013F) ł (\u+0142) --> Ł (\u+0141)
69-
' ń (\u+0144) --> Ń (\u+0143) ņ (\u+0146) --> Ņ (\u+0145)
70-
' ň (\u+0148) --> Ň (\u+0147) ŋ (\u+014B) --> Ŋ (\u+014A)
71-
' ō (\u+014D) --> Ō (\u+014C) ŏ (\u+014F) --> Ŏ (\u+014E)
72-
' ő (\u+0151) --> Ő (\u+0150) œ (\u+0153) --> Œ (\u+0152)
73-
' ŕ (\u+0155) --> Ŕ (\u+0154) ŗ (\u+0157) --> Ŗ (\u+0156)
74-
' ř (\u+0159) --> Ř (\u+0158) ś (\u+015B) --> Ś (\u+015A)
75-
' ŝ (\u+015D) --> Ŝ (\u+015C) ş (\u+015F) --> Ş (\u+015E)
76-
' š (\u+0161) --> Š (\u+0160) ţ (\u+0163) --> Ţ (\u+0162)
77-
' ť (\u+0165) --> Ť (\u+0164) ŧ (\u+0167) --> Ŧ (\u+0166)
78-
' ũ (\u+0169) --> Ũ (\u+0168) ū (\u+016B) --> Ū (\u+016A)
79-
' ŭ (\u+016D) --> Ŭ (\u+016C) ů (\u+016F) --> Ů (\u+016E)
80-
' ű (\u+0171) --> Ű (\u+0170) ų (\u+0173) --> Ų (\u+0172)
81-
' ŵ (\u+0175) --> Ŵ (\u+0174) ŷ (\u+0177) --> Ŷ (\u+0176)
82-
' ź (\u+017A) --> Ź (\u+0179) ż (\u+017C) --> Ż (\u+017B)
83-
' ž (\u+017E) --> Ž (\u+017D)
84-
' </Snippet1>

‎snippets/visualbasic/System/String/ToUpper/toupper.vb‎

Lines changed: 33 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -1,39 +1,40 @@
11
Option Strict On
22
Option Infer On
33

4-
' <Snippet1>
54
Imports System.Globalization
65

7-
Public Module Example
8-
Public Sub Main()
9-
Dim str1 As String = "indigo"
10-
Dim str2, str3 As String
11-
12-
' str2 is an uppercase copy of str1, using English-United States culture.
13-
str2 = str1.ToUpper(New CultureInfo("en-US", False))
14-
15-
' str3 is an uppercase copy of str1, using Turkish-Turkey culture.
16-
str3 = str1.ToUpper(New CultureInfo("tr-TR", False))
17-
18-
' Compare the code points and compare the uppercase strings.
19-
ShowCodePoints("str1", str1)
20-
ShowCodePoints("str2", str2)
21-
ShowCodePoints("str3", str3)
22-
Console.WriteLine("str2 is {0} to str3.", _
6+
Public Module Example1
7+
' <Snippet1>
8+
Public Sub Main()
9+
Dim str1 As String = "indigo"
10+
Dim str2, str3 As String
11+
12+
' str2 is an uppercase copy of str1, using English-United States culture.
13+
str2 = str1.ToUpper(New CultureInfo("en-US", False))
14+
15+
' str3 is an uppercase copy of str1, using Turkish-Turkey culture.
16+
str3 = str1.ToUpper(New CultureInfo("tr-TR", False))
17+
18+
' Compare the code points and compare the uppercase strings.
19+
ShowCodePoints("str1", str1)
20+
ShowCodePoints("str2", str2)
21+
ShowCodePoints("str3", str3)
22+
Console.WriteLine("str2 is {0} to str3.",
2323
IIf(String.CompareOrdinal(str2, str3) = 0, "equal", "not equal"))
24-
End Sub
25-
26-
Public Sub ShowCodePoints(varName As String, s As String)
27-
Console.Write("{0} = {1}: ", varName, s)
28-
For Each c In s
29-
Console.Write("{0:X4} ", AscW(c))
30-
Next
31-
Console.WriteLine()
32-
End Sub
24+
End Sub
25+
26+
Public Sub ShowCodePoints(varName As String, s As String)
27+
Console.Write("{0} = {1}: ", varName, s)
28+
For Each c In s
29+
Console.Write("{0:X4} ", AscW(c))
30+
Next
31+
Console.WriteLine()
32+
End Sub
33+
34+
' The example displays the following output:
35+
' str1 = indigo: 0069 006E 0064 0069 0067 006F
36+
' str2 = INDIGO: 0049 004E 0044 0049 0047 004F
37+
' str3 = İNDİGO: 0130 004E 0044 0130 0047 004F
38+
' str2 is not equal to str3.
39+
' </Snippet1>
3340
End Module
34-
' The example displays the following output:
35-
' str1 = indigo: 0069 006E 0064 0069 0067 006F
36-
' str2 = INDIGO: 0049 004E 0044 0049 0047 004F
37-
' str3 = İNDİGO: 0130 004E 0044 0130 0047 004F
38-
' str2 is not equal to str3.
39-
' </Snippet1>

‎snippets/visualbasic/System/TimeSpan/Parse/parse1.vb‎

Lines changed: 47 additions & 46 deletions
Original file line numberDiff line numberDiff line change
@@ -1,54 +1,55 @@
11
' Visual Basic .NET Document
22
Option Strict On
33

4-
' <Snippet1>
54
Imports System.Globalization
65
Imports System.Threading
76

8-
Module Example
9-
Public Sub Main()
10-
Dim values() As String = { "6", "6:12", "6:12:14", "6:12:14:45",
11-
"6.12:14:45", "6:12:14:45.3448",
12-
"6:12:14:45,3448", "6:34:14:45" }
13-
Dim cultureNames() As String = { "hr-HR", "en-US"}
14-
15-
' Change the current culture.
16-
For Each cultureName As String In cultureNames
17-
Thread.CurrentThread.CurrentCulture = New CultureInfo(cultureName)
18-
Console.WriteLine("Current Culture: {0}",
7+
Module Example1
8+
Public Sub Main()
9+
' <Snippet1>
10+
Dim values() As String = {"6", "6:12", "6:12:14", "6:12:14:45",
11+
"6.12:14:45", "6:12:14:45.3448",
12+
"6:12:14:45,3448", "6:34:14:45"}
13+
Dim cultureNames() As String = {"hr-HR", "en-US"}
14+
15+
' Change the current culture.
16+
For Each cultureName As String In cultureNames
17+
Thread.CurrentThread.CurrentCulture = New CultureInfo(cultureName)
18+
Console.WriteLine("Current Culture: {0}",
1919
Thread.CurrentThread.CurrentCulture.Name)
20-
For Each value As String In values
21-
Try
22-
Dim ts As TimeSpan = TimeSpan.Parse(value)
23-
Console.WriteLine("{0} --> {1}", value, ts.ToString("c"))
24-
Catch e As FormatException
25-
Console.WriteLine("{0}: Bad Format", value)
26-
Catch e As OverflowException
27-
Console.WriteLine("{0}: Overflow", value)
28-
End Try
29-
Next
30-
Console.WriteLine()
31-
Next
32-
End Sub
20+
For Each value As String In values
21+
Try
22+
Dim ts As TimeSpan = TimeSpan.Parse(value)
23+
Console.WriteLine("{0} --> {1}", value, ts.ToString("c"))
24+
Catch e As FormatException
25+
Console.WriteLine("{0}: Bad Format", value)
26+
Catch e As OverflowException
27+
Console.WriteLine("{0}: Overflow", value)
28+
End Try
29+
Next
30+
Console.WriteLine()
31+
Next
32+
33+
' The example displays the following output:
34+
' Current Culture: hr-HR
35+
' 6 --> 6.00:00:00
36+
' 6:12 --> 06:12:00
37+
' 6:12:14 --> 06:12:14
38+
' 6:12:14:45 --> 6.12:14:45
39+
' 6.12:14:45 --> 6.12:14:45
40+
' 6:12:14:45.3448: Bad Format
41+
' 6:12:14:45,3448 --> 6.12:14:45.3448000
42+
' 6:34:14:45: Overflow
43+
'
44+
' Current Culture: en-US
45+
' 6 --> 6.00:00:00
46+
' 6:12 --> 06:12:00
47+
' 6:12:14 --> 06:12:14
48+
' 6:12:14:45 --> 6.12:14:45
49+
' 6.12:14:45 --> 6.12:14:45
50+
' 6:12:14:45.3448 --> 6.12:14:45.3448000
51+
' 6:12:14:45,3448: Bad Format
52+
' 6:34:14:45: Overflow
53+
' </Snippet1>
54+
End Sub
3355
End Module
34-
' The example displays the following output:
35-
' Current Culture: hr-HR
36-
' 6 --> 6.00:00:00
37-
' 6:12 --> 06:12:00
38-
' 6:12:14 --> 06:12:14
39-
' 6:12:14:45 --> 6.12:14:45
40-
' 6.12:14:45 --> 6.12:14:45
41-
' 6:12:14:45.3448: Bad Format
42-
' 6:12:14:45,3448 --> 6.12:14:45.3448000
43-
' 6:34:14:45: Overflow
44-
'
45-
' Current Culture: en-US
46-
' 6 --> 6.00:00:00
47-
' 6:12 --> 06:12:00
48-
' 6:12:14 --> 06:12:14
49-
' 6:12:14:45 --> 6.12:14:45
50-
' 6.12:14:45 --> 6.12:14:45
51-
' 6:12:14:45.3448 --> 6.12:14:45.3448000
52-
' 6:12:14:45,3448: Bad Format
53-
' 6:34:14:45: Overflow
54-
' </Snippet1>

0 commit comments

Comments
 (0)