Back to Top

ぷろぐらむノート

Monthly Archives: 10月 2016

VB.NET 指定回数繰り返した文字・文字列を取得する

指定回数 繰り返した文字または、文字列を取得する方法を記載します。

 

Stringコンストラクタを使用する方法

'"あ"を１０回繰り返した文字列を取得する
Dim str As New String("あ"c, 10)

 

String.StrDup メソッドを使用する方法

'"あ"を１０回繰り返した文字列を取得する
Dim str As String = StrDup(10, "あ"c)

 

String.ConcatとEnumerable.Repeatを使用する方法

String.Concatメソッドは、文字列を連結し、

Enumerable.Repeatメソッドは、生成された値を指定回数繰り返します。

'"あい"を１０回繰り返した文字列を取得する
Dim str As String = String.Concat(Enumerable.Repeat("あい", 10).ToArray())

'.NET 4.0からは、ToArrayを省略できる
Dim str As String = String.Concat(Enumerable.Repeat("あい", 10))

 

StringBuilder.Insertメソッドを使用する方法

'"あい"を１０回繰り返した文字列を取得する
Dim str As String = (New System.Text.StringBuilder().Insert(0, "あい", 10).ToString())

 

Stringで繰り返した文字を指定の文字列に置き換える方法

Stringのコンストラクタで、”*” 文字列を生成し、Replaceメソッドで指定文字列に置き換える

'"あい"を１０回繰り返した文字列を取得する
Dim str As String = (New String("*"c, 10)).Replace("*", "あい")

 

VB.NET EPPlusのインストールおよび使い方

EPPlusは、Excelのデータの xlsx形式を作成するライブラリです。

データを直接内部で作成するので、Excelのインストールが必要ありません。

EPPlusのインストール

EPPlusは、 NuGet を使ってパッケージをインストール出来ます。

Visual Studio の[ツール]-[Nuget パッケージ マネージャー]にて

「EPPlus」で検索してインストールします。

 

基本サンプル

Imports System.IO
Imports OfficeOpenXml
Imports OfficeOpenXml.Style

を追加します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '出力ファイルの準備
    Dim newFile As FileInfo = New FileInfo("c:\work\Sample05.xlsx")

    'Excelファイルを作成
    Using package As ExcelPackage = New ExcelPackage(newFile)
        'ワークシートを作成
        Dim sheet As ExcelWorksheet = package.Workbook.Worksheets.Add("Sheet1")

        'A1セルに書き込み
        sheet.Cells("A1").Value = "Hello World"
        
        'ファイルの保存
        package.Save()
    End Using
End Sub