Skip to content

Commit 93804c0

Browse files
albert-dualbert-du
authored
UriBuilder F# snippets (#8057)
1 parent d99fa81 commit 93804c0

File tree

10 files changed

+90
-0
lines changed

10 files changed

+90
-0
lines changed

‎snippets/fsharp/System/UriBuilder/.ctor/fs.fsproj‎

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
<Project Sdk="Microsoft.NET.Sdk">
2+
<PropertyGroup>
3+
<OutputType>Exe</OutputType>
4+
<TargetFramework>net6.0</TargetFramework>
5+
</PropertyGroup>
6+
7+
<ItemGroup>
8+
<Compile Include="source.fs" />
9+
<Compile Include="source1.fs" />
10+
<Compile Include="source2.fs" />
11+
<Compile Include="source3.fs" />
12+
</ItemGroup>
13+
</Project>

‎snippets/fsharp/System/UriBuilder/.ctor/source.fs‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
module source
2+
3+
open System
4+
5+
// <Snippet1>
6+
let myUri = UriBuilder "http","www.contoso.com"
7+
// </Snippet1>

‎snippets/fsharp/System/UriBuilder/.ctor/source1.fs‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
module source1
2+
3+
open System
4+
5+
// <Snippet1>
6+
let myUri = UriBuilder("http","www.contoso.com", 8080)
7+
// </Snippet1>

‎snippets/fsharp/System/UriBuilder/.ctor/source2.fs‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
module source2
2+
3+
open System
4+
5+
// <Snippet1>
6+
let myUri = UriBuilder("http","www.contoso.com", 8080, "index.htm")
7+
// </Snippet1>

‎snippets/fsharp/System/UriBuilder/.ctor/source3.fs‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
module source3
2+
3+
open System
4+
5+
// <Snippet1>
6+
let myUri = UriBuilder("http","www.contoso.com", 8080, "index.htm", "#top")
7+
// </Snippet1>

‎snippets/fsharp/System/UriBuilder/Fragment/fs.fsproj‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
<Project Sdk="Microsoft.NET.Sdk">
2+
<PropertyGroup>
3+
<OutputType>Exe</OutputType>
4+
<TargetFramework>net6.0</TargetFramework>
5+
</PropertyGroup>
6+
7+
<ItemGroup>
8+
<Compile Include="source.fs" />
9+
</ItemGroup>
10+
</Project>

‎snippets/fsharp/System/UriBuilder/Fragment/source.fs‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
// <Snippet1>
2+
open System
3+
4+
let uBuild = UriBuilder "http://www.contoso.com/"
5+
uBuild.Path <- "index.htm"
6+
uBuild.Fragment <- "main"
7+
8+
let myUri = uBuild.Uri
9+
// </Snippet1>

‎snippets/fsharp/System/UriBuilder/Query/fs.fsproj‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
<Project Sdk="Microsoft.NET.Sdk">
2+
<PropertyGroup>
3+
<OutputType>Exe</OutputType>
4+
<TargetFramework>net6.0</TargetFramework>
5+
</PropertyGroup>
6+
7+
<ItemGroup>
8+
<Compile Include="main.fs" />
9+
</ItemGroup>
10+
</Project>

‎snippets/fsharp/System/UriBuilder/Query/main.fs‎

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
// <snippet1>
2+
open System
3+
4+
let baseUri = UriBuilder "http://www.contoso.com/default.aspx?Param1=7890"
5+
let queryToAppend = "param2=1234"
6+
7+
baseUri.Query <-
8+
if baseUri.Query <> null && baseUri.Query.Length > 1 then
9+
// Note: In .NET Core and .NET 5+, you can simplify by removing
10+
// the call to Substring(), which removes the leading "?" character.
11+
baseUri.Query.Substring 1 + "&" + queryToAppend
12+
else
13+
queryToAppend
14+
// </snippet1>

‎xml/System/UriBuilder.xml‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -310,6 +310,7 @@ Note: In <see href="/previous-versions/br230232(v=vs.110)">.NET for Windows Stor
310310
311311
:::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder3 Example/CPP/source.cpp" id="Snippet1":::
312312
:::code language="csharp" source="~/snippets/csharp/System/UriBuilder/.ctor/source.cs" id="Snippet1":::
313+
:::code language="fsharp" source="~/snippets/fsharp/System/UriBuilder/.ctor/source.fs" id="Snippet1":::
313314
:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder3 Example/VB/source.vb" id="Snippet1":::
314315
315316
]]></format>
@@ -375,6 +376,7 @@ Note: In <see href="/previous-versions/br230232(v=vs.110)">.NET for Windows Stor
375376
376377
:::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder4 Example/CPP/source.cpp" id="Snippet1":::
377378
:::code language="csharp" source="~/snippets/csharp/System/UriBuilder/.ctor/source1.cs" id="Snippet1":::
379+
:::code language="fsharp" source="~/snippets/fsharp/System/UriBuilder/.ctor/source1.fs" id="Snippet1":::
378380
:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder4 Example/VB/source.vb" id="Snippet1":::
379381
380382
]]></format>
@@ -444,6 +446,7 @@ Note: In <see href="/previous-versions/br230232(v=vs.110)">.NET for Windows Stor
444446
445447
:::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder5 Example/CPP/source.cpp" id="Snippet1":::
446448
:::code language="csharp" source="~/snippets/csharp/System/UriBuilder/.ctor/source2.cs" id="Snippet1":::
449+
:::code language="fsharp" source="~/snippets/fsharp/System/UriBuilder/.ctor/source2.fs" id="Snippet1":::
447450
:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder5 Example/VB/source.vb" id="Snippet1":::
448451
449452
]]></format>
@@ -515,6 +518,7 @@ Note: In <see href="/previous-versions/br230232(v=vs.110)">.NET for Windows Stor
515518
516519
:::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder6 Example/CPP/source.cpp" id="Snippet1":::
517520
:::code language="csharp" source="~/snippets/csharp/System/UriBuilder/.ctor/source3.cs" id="Snippet1":::
521+
:::code language="fsharp" source="~/snippets/fsharp/System/UriBuilder/.ctor/source3.fs" id="Snippet1":::
518522
:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Remoting/Classic UriBuilder.UriBuilder6 Example/VB/source.vb" id="Snippet1":::
519523
520524
]]></format>
@@ -654,6 +658,7 @@ The <xref:System.UriBuilder.Fragment> property contains any text following a fra
654658
655659
:::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/Classic UriBuilder.Fragment Example/CPP/source.cpp" id="Snippet1":::
656660
:::code language="csharp" source="~/snippets/csharp/System/UriBuilder/Fragment/source.cs" id="Snippet1":::
661+
:::code language="fsharp" source="~/snippets/fsharp/System/UriBuilder/Fragment/source.fs" id="Snippet1":::
657662
:::code language="vb" source="~/snippets/visualbasic/VS_Snippets_Remoting/Classic UriBuilder.Fragment Example/VB/source.vb" id="Snippet1":::
658663
659664
]]></format>
@@ -1010,6 +1015,7 @@ The following example sets the <xref:System.UriBuilder.Query> property.
10101015
10111016
:::code language="cpp" source="~/snippets/cpp/VS_Snippets_Remoting/UriBuilderSample/cpp/main.cpp" id="Snippet1":::
10121017
:::code language="csharp" source="~/snippets/csharp/System/UriBuilder/Query/main.cs" id="Snippet1":::
1018+
:::code language="fsharp" source="~/snippets/fsharp/System/UriBuilder/Query/main.fs" id="Snippet1":::
10131019
10141020
]]></format>
10151021
</remarks>

0 commit comments

Comments
 (0)