「東雲 忠太郎」の平凡な日常のできごと

「東雲 忠太郎」の平凡な日常のできごと

2024.02.26
XML
カテゴリ: VB.NET


Imports System.Net.Http

Imports System.Text

Imports System.Threading.Tasks


Module Module1


    Sub Main()

        Dim siteUrl As String = "https://your-sharepoint-site-url"

        Dim username As String = "your-username"

        Dim password As String = "your-password"

        Dim listName As String = "YourListName"

        Dim itemId As Integer = 10

        Dim newTitle As String = "New Title"


        UpdateItemTitle(siteUrl, username, password, listName, itemId, newTitle).Wait()

    End Sub


    Async Function UpdateItemTitle(siteUrl As String, username As String, password As String, listName As String, itemId As Integer, newTitle As String) As Task

        Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes($"{username}:{password}"))


        Using client As New HttpClient()

            client.DefaultRequestHeaders.Authorization = New System.Net.Http.Headers.AuthenticationHeaderValue("Basic", credentials)

            client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json"))


            Dim endpointUrl As String = $"{siteUrl}/_api/web/lists/getbytitle('{listName}')/items({itemId})"


            Dim metadata As String = $"{{'__metadata': {{'type': 'SP.ListItem'}},'Title': '{newTitle}'}}"


            Dim content As New StringContent(metadata, Encoding.UTF8, "application/json")


            Dim response As HttpResponseMessage = Await client.PostAsync(endpointUrl, content)


            If response.IsSuccessStatusCode Then

                Console.WriteLine($"Item with ID {itemId} updated successfully. New title: {newTitle}")

            Else

                Console.WriteLine($"Failed to update item. StatusCode: {response.StatusCode}")

            End If

        End Using

    End Function

End Module







お気に入りの記事を「いいね!」で応援しよう

Last updated  2024.02.26 02:42:59


【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! -- / --
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x

© Rakuten Group, Inc.
Create a Mobile Website
スマートフォン版を閲覧 | PC版を閲覧
Share by: