記事一覧 - ほぼC#の話とそれ以外の話

F#メモ

少しずつメモを追加

■リンク
・F# ドキュメント
https://learn.microsoft.com/ja-jp/dotnet/fsharp/

・Try F# on WebAssembly!
https://tryfsharp.fsbolero.io/

投稿日時： 2025-05-23 12:24:23
更新日時： 2025-05-24 07:58:24

コメント数(0)

[C#8.0]Index演算子(^)と範囲演算子(..)

C#, C#8.0

配列の要素を指定する方法、後ろから何番目と指定するときに使用するのIndex演算子

一番最後の要素が1であることに注意

var data = new[] { "a", "b", "c", "d", "e" };

// a
Console.WriteLine(data[0]);
Console.WriteLine(data[^5]); // 最後から5番目の要素

// b
Console.WriteLine(data[1]);
Console.WriteLine(data[^4]); // 最後から4番目の要素

// c
Console.WriteLine(data[2]);
Console.WriteLine(data[^3]); // 最後から3番目の要素

// d
Console.WriteLine(data[3]);
Console.WriteLine(data[^2]); // 最後から2番目の要素

// e
Console.WriteLine(data[4]);
Console.WriteLine(data[^1]); // 最後の要素

.. は範囲演算子
範囲演算子の前に指定するのは含む要素
範囲演算子の後ろに指定するのは、含まない要素を指定


var data = new[] { "日", "月", "火", "水", "木", "金", "土" };

// 含む要素番号..含まない要素番号
Console.WriteLine("平日は、{0}", string.Join(",", data[1..6])); // 月,火,水,木

// 同じ結果 含む要素番号..後ろから１番目の要素の前まで取得
Console.WriteLine("平日は、{0}", string.Join(",", data[1..^1])); // 月,火,水,木

// 木,金,土を出力
Console.WriteLine(string.Join(",", data[4..]));
Console.WriteLine(string.Join(",", data[^3..])); // 範囲演算子の前は含む要素、後ろは指定した要素の一つ前まで取得


// 日,月,火を出力
Console.WriteLine(string.Join(",", data[..3]));
Console.WriteLine(string.Join(",", data[..^4])); // 範囲演算子の前は含む要素、後ろは指定した要素の一つ前まで取得

投稿日時： 2025-05-22 12:12:22
更新日時： 2025-05-22 12:26:22

コメント数(0)

セルのアドレス

C#, ClosedXML, EPPlus, ExcelVBA, ExcelDataReader, NPOI, Excel(COM)

ログを出力する際に、 "3行14列"というよりは、"N3" といった方がわかりやすいだろうから、
アドレスの取得方法について

ExcelVBA

Sub Sample()
    Dim BookObj         As Workbook
    Dim c               As Long
    Dim FilePath        As String
    Dim r               As Long
    Dim SheetObj        As Worksheet
        
    'ファイルパス作成
    FilePath = ThisWorkbook.Path & "\sample.xlsx"
    
    'ブックを開く
    Set BookObj = Workbooks.Open(FilePath)
    
    'シート取得
    Set SheetObj = BookObj.Sheets("Sheet1")
    
    '２行、３列の各セルのアドレスを出力
    For r = 1 To 2
        For c = 1 To 3
            Debug.Print r & "行" & c & "列 => " & SheetObj.Cells(r, c).Address
        Next
    Next
        
    '閉じる
    BookObj.Close
    
    Set BookObj = Nothing
    Set RangeData = Nothing
    Set SheetObj = Nothing
End Sub

Excel(COM)

using System.IO;
using System.Reflection;
using System.Runtime.InteropServices;
using System;
using Excel = Microsoft.Office.Interop.Excel;
using Microsoft.Office.Interop.Excel;

namespace SampleCode; // C#10～

internal class SampleExcel
{
    static void Main(string[] args)
    {
        Excel.Application? application = null;
        Excel.Workbooks? workbooks = null;
        Excel.Workbook? workbook = null;
        Excel.Sheets? worksheets = null;
        Excel.Worksheet? worksheet = null;
        Excel.Range? cellData = null;

        try
        {
            // 実行ファイルのあるフォルダパス取得
            var folderPath = Path.GetDirectoryName(Assembly.GetEntryAssembly()?.Location);
            if (folderPath == null) { return; }

            // Excelファイルパスを作成
            var filePath = Path.Combine(folderPath, "sample.xlsx");
            
            // Excelを開く
            application = new Excel.Application();
            application.Visible = true;

            // ブックを開く
            workbooks = application.Workbooks;
            workbook = workbooks.Open(filePath);

            // シートを取得
            worksheets = workbook.Sheets;
            worksheet = worksheets["Sheet1"];

            // ２行、３列の各セルのアドレスを出力
            for (var r = 1; r <= 2; r++)
            {
                for(var c = 1; c <= 3; c++)
                {
                    cellData = worksheet.Cells[r, c];
                    Console.WriteLine($"{r}行{c}列 => {cellData.Address}");

                    CleanUpComObject(ref cellData);
                }
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
        }
        finally
        {
            CleanUpComObject(ref cellData);
            CleanUpComObject(ref worksheet);
            CleanUpComObject(ref worksheets);
            CleanUpComObject(ref workbook);
            CleanUpComObject(ref workbooks);
            CleanUpComObject(ref application);
        }
    }

    static void CleanUpComObject<T>(ref T comObject, bool shouldClose = true, bool saveChanges = false)
    {
        // フラグによってWorkbookはClose / ApplicationはQuitする
        if (shouldClose && comObject != null)
        {
            // 型をチェックする
            if (comObject is Microsoft.Office.Interop.Excel.Workbook workbook)
            {
                // Workbookの場合
                workbook.Close(saveChanges);
            }
            else if (comObject is Microsoft.Office.Interop.Excel.Application application)
            {
                // Applicationの場合
                application.Quit();
            }
        }

        // Objectを解放
        if (comObject != null && Marshal.IsComObject(comObject))
        {
            Marshal.ReleaseComObject(comObject);
            comObject = default!;
        }
    }
}

補足：Microsoft.Office.Interop.Excel でオブジェクトの解放について

ClosedXML

using ClosedXML.Excel;
using System;
using System.IO;
using System.Reflection;

namespace SampleCode; // C#10～

internal class SampleClosedXML
{
    static void Main(string[] args)
    {
        try
        {
            // 実行ファイルのあるフォルダパス取得
            var folderPath = Path.GetDirectoryName(Assembly.GetEntryAssembly()?.Location);
            if (folderPath == null) { return; }

            // Excelファイルパスを作成
            var filePath = Path.Combine(folderPath, "sample.xlsx");
            
            // ブックを開く、読み書きモード、共有なし(排他)
            using (var stream = new FileStream(filePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None))
            using (var workbook = new XLWorkbook(stream))
            {
                IXLWorksheet? worksheet = null;

                if(!workbook.TryGetWorksheet("Sheet1", out worksheet))
                {
                    throw new Exception("Sheet1シートがありませんでした");
                }

                // ２行、３列の各セルのアドレスを出力
                for (var r = 1; r <= 2; r++)
                {
                    for (var c = 1; c <= 3; c++)
                    {
                        Console.WriteLine(worksheet.Cell(r, c).Address);
                    }
                }
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
        }
    }
}

EPPlus

using OfficeOpenXml;
using System;
using System.IO;
using System.IO.Pipes;
using System.Reflection;

namespace SampleCode; // C#10～

internal class SampleEPPlus
{
    static void Main(string[] args)
    {
        // Ver8.0のソースです
        // 非商用個人利用の場合　名前を設定
        ExcelPackage.License.SetNonCommercialPersonal("SampleTarou");

        try
        {
            // 実行ファイルのあるフォルダパス取得
            var folderPath = Path.GetDirectoryName(Assembly.GetEntryAssembly()?.Location);
            if (folderPath == null) { return; }

            // Excelファイルパスを作成
            var filePath = Path.Combine(folderPath, "sample.xlsx");
            
            using (var stream = new FileStream(filePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None))
            using (var package = new ExcelPackage(stream))
            {
                // シートを取得
                var worksheet = package.Workbook.Worksheets["Sheet1"];

                // ２行、３列の各セルのアドレスを出力
                for (var r = 1; r <= 2; r++)
                {
                    for (var c = 1; c <= 3; c++)
                    {
                        Console.WriteLine(worksheet.Cells[r, c].Address); // 行, 列
                    }
                }
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine($"エラー: {ex.Message}");
        }
    }
}

ExcelDataReader

※ライブラリ側にはアドレスを出力する方法はないので、自作する

using ExcelDataReader;
using System;
using System.Data;
using System.IO;
using System.Reflection;

namespace SampleCode; // C#10～

internal class SampleExcelDataReader
{
    static void Main(string[] args)
    {
        // デフォルトでは、エンコード(CP1252)がサポートされておらずエラーになるのでこれが必要
        System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance);

        try
        {
            // 実行ファイルのあるフォルダパス取得
            var folderPath = Path.GetDirectoryName(Assembly.GetEntryAssembly()?.Location);
            if (folderPath == null) { return; }

            // Excelファイルパスを作成
            var filePath = Path.Combine(folderPath, "sample.xlsx");
            
            // ファイル開く、読み書きモード、共有なし(排他)
            using (var fileStream = new FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read))
            using (var reader = ExcelReaderFactory.CreateReader(fileStream))
            {
                // DataSetに変換（シート情報を取得）
                var result = reader.AsDataSet();
                
                // シート取得
                var worksheet = result.Tables["Sheet1"];

                if(worksheet == null)
                {
                    throw new Exception("Sheet1シートは存在しません");
                }

                // アドレスを出すような仕組みはなし。
                // もしログにA1形式で出力したければ、自分で作ること

                // ２行、３列の各セルのアドレスを出力
                for (var r = 1; r <= 2; r++)
                {
                    for (var c = 1; c <= 3; c++)
                    {
                        var cellAddress = CellAddress(r, c);
                        Console.WriteLine($"{r}行{c}列 => {cellAddress}");
                    }
                }
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
        }
    }

    static string CellAddress(int row, int col)
    {
        string colStr = "";

        while (0 < col)
        {
            col--; // Aのアスキーコードに足すので１減らしておく
            int remainder = col % 26;
            colStr = (char)('A' + remainder) + colStr;
            col /= 26;
        }

        return $"{colStr}{row}";
    }
}

NPOI

※ライブラリ側にはアドレスを出力する方法はないので、自作する

xls

using NPOI.HSSF.UserModel;
using NPOI.SS.Formula.Functions;
using NPOI.SS.UserModel;
using NPOI.SS.Util;
using System;
using System.IO;
using System.Reflection;

namespace SampleCode; // C#10～

internal class SampleNPOI_xls
{
    static void Main(string[] args)
    {
        try
        {
            // 実行ファイルのあるフォルダパス取得
            var folderPath = Path.GetDirectoryName(Assembly.GetEntryAssembly()?.Location);
            if (folderPath == null) { return; }

            // Excelファイルパスを作成
            var filePath = Path.Combine(folderPath, "sample.xls");
            
            // ブックを開く、読み取りモード、共有なし(排他)
            using (var stRead = new FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.None))
            using (var workbook = new HSSFWorkbook(stRead))
            {
                // シートを取得
                var worksheet = workbook.GetSheet("Sheet1");

                // アドレスを出すような仕組みはなし。
                // もしログにA1形式で出力したければ、自分で作ること

                // ２行、３列の各セルのアドレスを出力
                for (var r = 1; r <= 2; r++)
                {
                    for (var c = 1; c <= 3; c++)
                    {
                        var cellAddress = CellAddress(r, c);
                        Console.WriteLine($"{r}行{c}列 => {cellAddress}");
                    }
                }
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
        }
    }

    static string CellAddress(int row, int col)
    {
        string colStr = "";

        while (0 < col)
        {
            col--; // Aのアスキーコードに足すので１減らしておく
            int remainder = col % 26;
            colStr = (char)('A' + remainder) + colStr;
            col /= 26;
        }

        return $"{colStr}{row}";
    }
}

xlsx

using NPOI.SS.Util;
using NPOI.XSSF.UserModel;
using System;
using System.IO;
using System.Reflection;

namespace SampleCode; // C#10～

internal class SampleNPOI_xlsx
{
    static void Main(string[] args)
    {
        try
        {
            // 実行ファイルのあるフォルダパス取得
            var folderPath = Path.GetDirectoryName(Assembly.GetEntryAssembly()?.Location);
            if (folderPath == null) { return; }

            // Excelファイルパスを作成
            var filePath = Path.Combine(folderPath, "sample.xlsx");
            
            // ブックを開く、読み取りモード、共有なし(排他)
            using (var stRead = new FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.None))
            using (var workbook = new XSSFWorkbook(stRead))
            {
                // シートを取得
                var worksheet = workbook.GetSheet("Sheet1");

                // アドレスを出すような仕組みはなし。
                // もしログにA1形式で出力したければ、自分で作ること

                // ２行、３列の各セルのアドレスを出力
                for (var r = 1; r <= 2; r++)
                {
                    for (var c = 1; c <= 3; c++)
                    {
                        var cellAddress = CellAddress(r, c);
                        Console.WriteLine($"{r}行{c}列 => {cellAddress}");
                    }
                }
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
        }
    }

    static string CellAddress(int row, int col)
    {
        string colStr = "";

        while (0 < col)
        {
            col--; // Aのアスキーコードに足すので１減らしておく
            int remainder = col % 26;
            colStr = (char)('A' + remainder) + colStr;
            col /= 26;
        }

        return $"{colStr}{row}";
    }
}

xls/xlsx対応版

Program.cs

using NPOI.SS.Util;
using System;
using System.IO;
using System.Reflection;

namespace SampleCode; // C#10～

internal class SampleNPOI
{
    static void Main(string[] args)
    {
        try
        {
            // 実行ファイルのあるフォルダパス取得
            var folderPath = Path.GetDirectoryName(Assembly.GetEntryAssembly()?.Location);
            if (folderPath == null) { return; }

            // Excelファイルパスを作成
            var filePath = Path.Combine(folderPath, "sample.xlsx");

            var extension = Path.GetExtension(filePath);

            using (var fileStream = new FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.None))
            using (var workbook = WorkbookFactory.Create(fileStream, extension))
            {
                // シートを取得
                var worksheet = workbook.GetSheet("Sheet1");

                // アドレスを出すような仕組みはなし。
                // もしログにA1形式で出力したければ、自分で作ること

                // ２行、３列の各セルのアドレスを出力
                for (var r = 1; r <= 2; r++)
                {
                    for (var c = 1; c <= 3; c++)
                    {
                        var cellAddress = CellAddress(r, c);
                        Console.WriteLine($"{r}行{c}列 => {cellAddress}");
                    }
                }
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
        }
    }

    static string CellAddress(int row, int col)
    {
        string colStr = "";

        while (0 < col)
        {
            col--; // Aのアスキーコードに足すので１減らしておく
            int remainder = col % 26;
            colStr = (char)('A' + remainder) + colStr;
            col /= 26;
        }

        return $"{colStr}{row}";
    }
}

WorkbookFactory.cs

using NPOI.HSSF.UserModel;
using NPOI.SS.UserModel;
using NPOI.XSSF.UserModel;
using System;
using System.IO;

namespace SampleCode; // C#10

public class WorkbookFactory
{
    public static IWorkbook Create(Stream stream, string extension)
    {
        extension = extension.ToLower();

        return extension switch
        {
            ".xls" => new HSSFWorkbook(stream),
            ".xlsx" => new XSSFWorkbook(stream),
            _ => throw new NotSupportedException("対象外の拡張子です")
        };
    }

    public static IWorkbook Create(string extension)
    {
        extension = extension.ToLower();

        return extension switch
        {
            ".xls" => new HSSFWorkbook(),
            ".xlsx" => new XSSFWorkbook(),
            _ => throw new NotSupportedException("対象外の拡張子です")
        };
    }
}

投稿日時： 2025-05-21 12:50:21
更新日時： 2025-05-21 12:57:21

コメント数(0)

F#メモ

[C#8.0]Index演算子(^)と範囲演算子(..)

セルのアドレス

ExcelVBA

Excel(COM)

ClosedXML

EPPlus

ExcelDataReader

NPOI

最近の投稿

最近のコメント

タグ

アーカイブ

その他