Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commitb6aa49d

Browse files
authored
add missing project file (#11500)
1 parent63425e8 commitb6aa49d

File tree

4 files changed

+72
-59
lines changed

4 files changed

+72
-59
lines changed
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
PublicModuleProgram
2+
3+
PublicSubMain()
4+
CountCulturesExample.RunIt()
5+
Module1.RunIt()
6+
EndSub
7+
8+
EndModule
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
<ProjectSdk="Microsoft.NET.Sdk">
2+
3+
<PropertyGroup>
4+
<OutputType>Exe</OutputType>
5+
<TargetFramework>net9.0</TargetFramework>
6+
</PropertyGroup>
7+
8+
</Project>
Lines changed: 37 additions & 41 deletions
Original file line numberDiff line numberDiff line change
@@ -1,46 +1,42 @@
1-
' The following code example displays several properties of the neutral cultures.
2-
3-
' <snippet1>
4-
ImportsSystem.Globalization
1+
ImportsSystem.Globalization
52

63
ModuleModule1
74

8-
PublicSubMain()
9-
10-
' Displays several properties of the neutral cultures.
11-
Console.WriteLine("CULTURE ISO ISO WIN DISPLAYNAME ENGLISHNAME")
12-
DimciAsCultureInfo
13-
ForEachciInCultureInfo.GetCultures(CultureTypes.NeutralCultures)
14-
Console.Write("{0,-7}",ci.Name)
15-
Console.Write("{0,-3}",ci.TwoLetterISOLanguageName)
16-
Console.Write(" {0,-3}",ci.ThreeLetterISOLanguageName)
17-
Console.Write(" {0,-3}",ci.ThreeLetterWindowsLanguageName)
18-
Console.Write(" {0,-40}",ci.DisplayName)
19-
Console.WriteLine(" {0,-40}",ci.EnglishName)
20-
Nextci
21-
22-
EndSub
23-
24-
25-
26-
'This code produces the following output. This output has been cropped for brevity.
27-
'
28-
'CULTURE ISO ISO WIN DISPLAYNAMEENGLISHNAME
29-
'arar ara ARA ArabicArabic
30-
'bgbg bul BGR BulgarianBulgarian
31-
'caca cat CAT CatalanCatalan
32-
'cscs ces CSY CzechCzech
33-
'dada dan DAN DanishDanish
34-
'dede deu DEU GermanGerman
35-
'elel ell ELL GreekGreek
36-
'enen eng ENU EnglishEnglish
37-
'eses spa ESP Spanish Spanish
38-
'fifi fin FIN Finnish Finnish
39-
'zhzh zho CHS Chinese Chinese
40-
'zh-Hans zh zho CHS Chinese (Simplified) Chinese (Simplified)
41-
'zh-Hant zh zho ZHH Chinese (Traditional) Chinese (Traditional)
42-
'
43-
'Note: zh-Hant returns ZHH when using ICU (default). When NLS mode is enabled, it returns CHT.
5+
PublicSubRunIt()
6+
' <snippet1>
7+
8+
' Displays several properties of the neutral cultures.
9+
Console.WriteLine("CULTURE ISO ISO WIN DISPLAYNAME ENGLISHNAME")
10+
DimciAsCultureInfo
11+
ForEachciInCultureInfo.GetCultures(CultureTypes.NeutralCultures)
12+
Console.Write("{0,-7}",ci.Name)
13+
Console.Write(" {0,-3}",ci.TwoLetterISOLanguageName)
14+
Console.Write(" {0,-3}",ci.ThreeLetterISOLanguageName)
15+
Console.Write(" {0,-3}",ci.ThreeLetterWindowsLanguageName)
16+
Console.Write(" {0,-40}",ci.DisplayName)
17+
Console.WriteLine(" {0,-40}",ci.EnglishName)
18+
Nextci
19+
20+
'This code produces the following output. This output has been cropped for brevity.
21+
'
22+
'CULTURE ISO ISO WIN DISPLAYNAME ENGLISHNAME
23+
'ar ar ara ARA Arabic Arabic
24+
'bg bg bul BGR Bulgarian Bulgarian
25+
'ca ca cat CAT Catalan Catalan
26+
'cscs ces CSY CzechCzech
27+
'dada dan DAN DanishDanish
28+
'dede deu DEU GermanGerman
29+
'elel ell ELL GreekGreek
30+
'enen eng ENU EnglishEnglish
31+
'eses spa ESP SpanishSpanish
32+
'fifi fin FIN FinnishFinnish
33+
'zhzh zho CHS ChineseChinese
34+
'zh-Hans zh zho CHS Chinese (Simplified)Chinese (Simplified)
35+
'zh-Hant zh zho ZHH Chinese (Traditional)Chinese (Traditional)
36+
'
37+
'Note: zh-Hant returns ZHH when using ICU (default). When NLS mode is enabled, it returns CHT.
38+
39+
' </snippet1>
40+
EndSub
4441

4542
EndModule
46-
' </snippet1>

‎snippets/visualbasic/VS_Snippets_CLR_System/system.Globalization.CultureInfo.GetCultures/VB/getcultures3.vb

Lines changed: 19 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -1,21 +1,22 @@
1-
' <Snippet2>
2-
ImportsSystem.Globalization
1+
ImportsSystem.Globalization
32

4-
ModuleExample
5-
SubMain()
6-
Dimcultures()AsCultureInfo=CultureInfo.GetCultures(CultureTypes.UserCustomCultureOr
3+
ModuleCountCulturesExample
4+
SubRunIt()
5+
' <Snippet2>
6+
Dimcultures()AsCultureInfo=CultureInfo.GetCultures(CultureTypes.UserCustomCultureOr
77
CultureTypes.SpecificCultures)
8-
DimctrAsInteger=0
9-
ForEachcultureIncultures
10-
If(culture.CultureTypesAndCultureTypes.UserCustomCulture)=CultureTypes.UserCustomCultureThen
11-
ctr+=1
12-
EndIf
13-
Next
14-
Console.WriteLine("Number of Specific Custom Cultures: {0}",ctr)
15-
EndSub
8+
DimctrAsInteger=0
9+
ForEachcultureIncultures
10+
If(culture.CultureTypesAndCultureTypes.UserCustomCulture)=CultureTypes.UserCustomCultureThen
11+
ctr+=1
12+
EndIf
13+
Next
14+
Console.WriteLine("Number of Specific Custom Cultures: {0}",ctr)
15+
16+
' If run under Windows 8, the example displays output like the following:
17+
' Number of Specific Custom Cultures: 6
18+
' If run under Windows 10, the example displays output like the following:
19+
' Number of Specific Custom Cultures: 279
20+
' </Snippet2>
21+
EndSub
1622
EndModule
17-
' If run under Windows 8, the example displays output like the following:
18-
' Number of Specific Custom Cultures: 6
19-
' If run under Windows 10, the example displays output like the following:
20-
' Number of Specific Custom Cultures: 279
21-
' </Snippet2>

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp