■■■

2016年4月23日土曜日

WebBrowserコントロールでエクセルを表示する方法(Windows7/8/8.1)



WebBrowserでExcelを表示する方法(Windows7/8/8.1)
Windows Internet Explorer 7 または Internet Explorer 8 で、Microsoft Office 2010 または Office 2007 ドキュメントを開こうとすると、Internet Explorer の同じウィンドウで開かない場合があります。代わりに、新しい Word 2010 アプリケーション ウィンドウ、新しい Excel 2010 アプリケーション ウィンドウ、または PowerPoint 2010 の新しいアプリケーション ウィンドウで、ドキュメントが開きます。
この現象は BrowserFlags DWORD 値がレジストリに追加された場合に発生します。
この現象は BrowserFlags DWORD 値がレジストリに追加された場合に発生します。BrowserFlags DWORD 値の詳細については、次の文書番号をクリックしマイクロソフト サポート技術情報を参照します。
解決方法
重要: このセクション、方法、タスクには、レジストリを変更する方法の手順が含まれています。ただし、レジストリが正しく変更されないと、深刻な問題が発生することがあります。そのため、次の手順に慎重に従ってください。また、念のため、レジストリを変更する前に、レジストリをバックアップしておいてください。そうすることで、問題が発生した場合にレジストリを復元できます。レジストリをバックアップおよび復元する方法についての詳細は、次の文書番号をクリックして、マイクロソフト サポート技術資料を参照してください。
322756 Windows のレジストリをバックアップおよび復元する方法

この問題を解決するには、次の手順を実行します。
メモ帳を起動します。
コピーし、メモ帳に次のテキストを貼り付けます。
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.8]
"BrowserFlags"=dword:80000024

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.RTF.8]
"BrowserFlags"=dword:80000024

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.12]
"BrowserFlags"=dword:80000024

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.DocumentMacroEnabled.12]
"BrowserFlags"=dword:80000024

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.8]
"BrowserFlags"=dword:80000A00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.12]
"BrowserFlags"=dword:80000A00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.SheetMacroEnabled.12]
"BrowserFlags"=dword:80000A00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.SheetBinaryMacroEnabled.12]
"BrowserFlags"=dword:80000A00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.Show.8]
"BrowserFlags"=dword:800000A0

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.Show.12]
"BrowserFlags"=dword:800000A0

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.ShowMacroEnabled.12]
"BrowserFlags"=dword:800000A0

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.SlideShow.8]
"BrowserFlags"=dword:800000A0

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.SlideShow.12]
"BrowserFlags"=dword:800000A0

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.SlideShowMacroEnabled.12]
"BrowserFlags"=dword:800000A0
ファイル名としてファイルを保存します登録。
このレジストリ スクリプトを実行するファイル名.reg をダブルクリックします。
Internet Explorer 7 を起動します。

2016年4月19日火曜日

LinQ:並び替えと選択



LinQ:並び替えと選択

VB.NET


        ' 並び替えと選択
        Dim query = From fruit In New String() {"apple", "orange", "pear", "banana", "strawberry", "blueberry"} _
                             Where fruit.Length >= 5 _
                             Select A = fruit.ToUpper(), B = fruit.ToLower() _

                             Order By A



C#


            // 並び替えと選択
            var query = from fruit in strArray
                        where fruit.Length >= 5
                        orderby fruit.ToUpper()

                        select new { A = fruit.ToUpper(), B = fruit.ToLower() };


LinQ:配列で重複を排除する方法Distinct()



LinQ:配列で重複を排除する方法Distinct()

VB.NET


        ' 配列データ作成
        Dim strArray As String() = New String() {"apple", "orange", "pear", "banana", "banana"}
        ' 配列から文字長でソートして取得
        Dim query1 = From fruit In strArray.Distinct() _
                            Order By fruit.Length _

                            Select fruit.ToUpper(), fruit.ToLower()



C#


            // 配列データ作成
            string[] strArray = { "apple", "orange", "pear", "banana", "banana" };
            // 配列から文字長でソートして取得
            var query1 = from fruit in strArray.Distinct()
                         orderby fruit.Length

                         select new { STRUP = fruit.ToUpper(), STRLOW = fruit.ToLower() };


LinQ:配列をソート並び替える方法



LinQ:配列をソート並び替える方法

VB.NET


        ' 配列データ作成
        Dim strArray As String() = New String() {"apple", "orange", "pear", "banana"}
        ' 配列から文字長でソートして取得
        Dim query1 = From fruit In strArray _
                            Order By fruit.Length _

                            Select fruit.ToUpper(), fruit.ToLower()



C#


            // 配列データ作成
            string[] strArray = { "apple", "orange", "pear", "banana" };
            // 配列から文字長でソートして取得
            var query1 = from fruit in strArray
                         orderby fruit.Length

                         select new { STRUP = fruit.ToUpper(), STRLOW = fruit.ToLower() };


2016年4月17日日曜日

アプリケーションのバージョン情報を取得する方法



アプリケーションのバージョン情報を取得する方法

VB.NET


        'バージョン情報を取得する方法
        Dim vrsInfo As System.Diagnostics.FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(System.Reflection.Assembly.GetExecutingAssembly().Location)
        '結果を表示

        Console.WriteLine(vrsInfo)



C#


            //バージョン情報を取得する方法
            System.Diagnostics.FileVersionInfo vrsInfo =
                System.Diagnostics.FileVersionInfo.GetVersionInfo(
                System.Reflection.Assembly.GetExecutingAssembly().Location);
            //結果を表示

            Console.WriteLine(vrsInfo);


2016年4月16日土曜日

簡易的なCSV読込み方法



簡易的なCSV読込み方法

VB.NET


    ''' <summary>
    ''' 簡易的なCSV読込方法
    ''' </summary>
    ''' <param name="fileName"></param>
    ''' <returns></returns>
    Public Function ReadCSV(fileName As String) As List(Of String())
        ' CSVリスト
        Dim lstCSV As New List(Of String())()
        ' CSV1行分の配列データ
        Dim list As String() = Nothing
        ' CSV1行分の文字データ
        Dim line As String = String.Empty

        ' CSVファイル読込み
        Dim reader As New System.IO.StreamReader(fileName, System.Text.Encoding.[Default])

        ' 最終行までループ
        While (InlineAssignHelper(line, reader.ReadLine())) IsNot Nothing
            ' 分解する
            list = line.Split(","c)
            lstCSV.Add(list)
        End While

        reader.Close()
        ' 返却
        Return lstCSV

    End Function



C#


        /// <summary>
        /// 簡易的なCSV読込方法
        /// </summary>
        /// <param name="fileName"></param>
        /// <returns></returns>
        public List< string[]> ReadCSV(string fileName)
        {
            // CSVリスト
            List<string[]> lstCSV = new List<string[]>();
            // CSV1行分の配列データ
            string[] list = null;
            // CSV1行分の文字データ
            string line = string.Empty;

            // CSVファイル読込み
            System.IO.StreamReader reader = new System.IO.StreamReader(fileName, System.Text.Encoding.Default);

            // 最終行までループ
            while ((line = reader.ReadLine()) != null)
            {
                // 分解する
                list = line.Split(',');
                lstCSV.Add(list);
            }

            reader.Close();
            // 返却
            return lstCSV;
        }




■■■