DOBON.NETプログラミング道掲示板

■ 「新規作成」から投稿できます。
■ マルチポストされた投稿を見つけたときは、その投稿に返信することによりご報告ください。その際は匿名で投稿し、マルチポストされている場所を併記してください。
■ スパム対策のため、メールアドレスの先頭に"_"という文字が付加されています。
RSS 2.0 RSS 2.0 | RSS 0.91 | 携帯電話用 | 自分専用のアイコンを使用するには | 掲示板への要望 | 管理人に連絡 | お気楽掲示板
■ 24時間以内に作成されたスレッドは New で表示されます。
■ 24時間以内に更新されたスレッドは UpDate で表示されます。

記事リスト ( )内の数字はレス数
NomalVB.NETでBluetoothデバイスの電池残量を取得する方法(3) | Nomalクリスタルレポート 明細部のサブレポート(0) | Nomal重なったPictureBox同士を透過する方法(7) | NomalWindowsフォームデザイナについて(3) | Nomalvb.netでExcelファイル操作(7) | NomalVB.NETからcmdでpingを実行した時の結果(5) | Nomalvb.netでのExcelファイルそうさ(2) | Nomalキーボード+バーコードでキーボード入力を無効にしたい(6) | NomalVB2022でクリスタルレポートが開けない(2) | Nomalファイルとして配置したマニフェストを優先したい(2) | NomalTabPageの背景色(5) | NomalC#でJpeg圧縮のTiffファイルを作成したい(4) | Nomalエクセルのみ監視ができない(2) | NomalDataGridViewのVirtualModeを有効した場合の実装方法(4) | NomalExcelの数値 -> 日付みたいな関数?(2) | Nomaljumbo icon(256x256)が存在するか知る方法(6) | NomalDrawstringでの透過文字作成(3) | NomalSpinWait()を使う理由(2) | Nomalantecedentってなんですか?(2) | Nomalワンタイムパスワードのサイトに自動ログインしてアクセストークンを得る(3) | Nomalstyle.displayだと効率悪いから違うやり方をしたいです。(5) | Nomalテーブルを順番通りに直すプログラムを外部で読み込めるようにしたいです。(4) | NomalJSONの複雑な入れ子内部の値を取りたい。(3) | Nomalグリッド表示レコードをJSONに変換(5) | Nomalシステム時計の設定(3) | NomalSeleniumで開いているページのTableを編集したい(5) | Nomalソケット通信入門 ひらがな(4) | NomalVisual Basicでエラーが出る(3) | Nomalインストーラにて、ローミングフォルダにファイルを配置したい(0) | NomalRGB値の所得(2) | Nomal時間変数(文字列)の扱い(4) | NomalVB.net からAccessDBへの接続(2) | Nomal画像のスクロール(6) | Nomalタイマーの一括処理(6) | NomalTreeViewとDataGridViewのスクロールを同期(シンクロ)させたい(4) | NomalTreeViewの現在位置とDataGridViewの現在位置を合わせたい(7) | NomalPictureBoxの画像を連続保存(11) | NomalDataGridViewの特定セルにボタンを配置する方法(5) | Nomalフォームのリサイズ時にDataGridViewが再描画されない(4) | NomalテキストボックスのValidatingイベントよりも先に発生するボタン発生イベントは何でしょう?(2) | NomalPDFをフォーム上で表示させる方法につきまして(4) | NomalDataGridViewの行ヘッダーに行番号を表示した時のエラー(4) | Nomal継承元フォームで各フォームのボタン動作を検知したい(3) | Nomalラジオボタンの一括設定(7) | NomalWindowsエクスプローラからのドラッグ&ドロップ(2) | NomalRichTextBoxのテキストをpictureBOXへ(12) | Nomalクリックイベントでexeを作成できるか(2) | Nomal作成した白黒画像をWordに貼り付けてから「図として保存」(8) | Nomalアセンブリ情報が載らない(1) | Nomal先頭に空白(スペース)があるファイルを読み込んでRichTextBoxへ書き出すとスペースが削除える(6) | Nomalc#で日付型の定義の仕方で質問があります。(2) | NomalExcel Com オブジェクトの増殖(13) | Nomal二次元マップから値の取得(1) | NomalアプリでHDMIへ出す解像度を変えたい(4) | Nomal列車の時間ごとの位置情報を表示したいです。(2) | Nomal画像の中心を基点に回転(4) | NomalDataGridViewのドロップダウンリストの表示と選択後の値を分けたい(1) | NomalVB.NetでVB6.0と同じFontを指定しても同様に印刷されない(9) | NomalタッチキーボードでIMEを自動で切替えたい(6) | NomalVSTOによるエクセルアドインのインストーラーでのアップデート(1) | NomalMP4動画を再生する方法について(5) | NomalUrlにアクセスするとダウンロードされるファイルを捕まえる(2) | NomalLableのカラー色を文字変数から変更したい(5) | NomalLabelで文字単位の背景色(7) | NomalTEXTBOXのプロパティを文字列に(7) | Nomalタブレット等でスワイプによるスクロールを実装(2) | NomalPDFをフォーム上で表示させる方法につきまして(6) | NomalChart X軸上の描画を切り替えたい(0) | NomalRichTextBoxへのドラッグ&ドロップしたExcelファイルの扱い(3) | Nomal特定のPCだけ発生する「パディングは無効なので削除できません」のエラーの原因(6) | NomalASP.NET WebApi内でXmlReader.Create(url)がタイムアウトする(4) | NomalDatagridViewでファンクションキーを止めたい(5) | Nomal表示動作が重くなる(3) | Nomalbitmapを複数スレッドで処理したい(2) | NomalLoadOptionのパラメータの意味(3) | Nomalフォーム背景のみを半透明にしたい(5) | Nomal読み出し元フォームの位置取得方法(2) | Nomalコンストラクターに続く{}の意味(2) | Nomal1行で書くことできますか?(3) | NomalCommandBuilderによって作られるCommandTextの内容(5) | Nomalvb.netで7zの圧縮・解凍をしたい。(2) | NomalC# NASでのプログレスバー有りのコピー(0) | Nomal正規表現で文字の繰り返しパターン(4) | NomalDataViewのFindRowsde(7) | NomalNPOIでのエクセル編集で期待通りに書き込めません(2) | NomalDataGridのSetDataBindingに代わるもの?(3) | NomalFormのサイズ変更で掴める辺を制限したい(2) | NomalVSTOとWebView2の共存って可能?(3) | Nomalビデオ圧縮のコーデック(2) | NomalWindowsMediaPlayerで次のURLを指定しても反映されない。(3) | Nomal"−"を縦書きにしたい(9) | Nomal.NET6.0 のWinFormにWPFのユーザーコントロールを配置したい(4) | NomalDataGridViewの列にコンボボックスを表示する(2) | Nomalデータグリッドビューの特定の列ヘッダの色(2) | NomalVB-Report10→11への移行(4) | Nomal入力値を元に描画させたい(2) | Nomalデフォルトプリンタの用紙向き変更(0) | NomalpictureBoxとlabelの重ね合わせ(2) | NomalASP.net デバッグ時の .js ファイルの変更が反映されない(1) | NomalVBで開いたExcelでのイベントを取得するには(4) |



■記事リスト / ▼下のスレッド
■35093 / 親記事)  vb.netで7zの圧縮・解凍をしたい。
□投稿者/ かい 一般人(1回)-(2022/07/01(Fri) 10:08:11)
  • アイコン環境/言語:[VB.NET] 
    分類:[.NET] 

    vb.netプロジェクトに7zでファイル圧縮、解凍する機能を追加したいと思っております。
    7-ZIP32.DLLを使いたいと思ったのですがC#でのサンプルしか見つけられません。
    DotNetZipのように使えるものはあるのでしょうか?
違反を報告
引用返信

▽[全レス2件(ResNo.1-2 表示)]
■35094 / ResNo.1)  Re[1]: vb.netで7zの圧縮・解凍をしたい。
□投稿者/ KOZ 一般人(1回)-(2022/07/01(Fri) 15:20:48)
  • アイコンNo35093に返信(かいさんの記事)
    > 7-ZIP32.DLLを使いたいと思ったのですがC#でのサンプルしか見つけられません。

    C# のサンプルがあるなら
    https://converter.telerik.com/
    で VB.NET に変換してみてはいかがでしょう
違反を報告
引用返信
■35096 / ResNo.2)  Re[1]: vb.netで7zの圧縮・解凍をしたい。
□投稿者/ kiku 一般人(1回)-(2022/07/06(Wed) 16:31:39)
  • アイコンNo35093に返信(かいさんの記事)
    > vb.netプロジェクトに7zでファイル圧縮、解凍する機能を追加したいと思っております。
    > 7-ZIP32.DLLを使いたいと思ったのですがC#でのサンプルしか見つけられません。
    > DotNetZipのように使えるものはあるのでしょうか?

    だいぶ古い記事ですが、下記が参考になりそう。
    https://www.petitmonte.com/bbs/answers?question_id=28055
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-2]



■記事リスト / ▼下のスレッド / ▲上のスレッド
■35087 / 親記事)  C# NASでのプログレスバー有りのコピー
□投稿者/ しゃーしょ 一般人(1回)-(2022/06/24(Fri) 11:57:02)
  • アイコン環境/言語:[WIN11 C# .NET Framework 4.8.4515.0] 
    分類:[.NET] 

    WIN11 vs2022 C# フォームアプリ
    
    c#初心者です。
    ファイルをコピーし、進捗をプログレスバーで表わすコードを勉強しています。
    
    下記コードでは、パソコン内蔵HDDやUSB外付けHDDでは期待通り動きますが、NASネットワーク ハードディスクだとコピーできません。
    プログレスバーを貼ったフォームが表示された状態で、ブログレスバーが動くこともなく止まってしまいます。
    
    formProgress.Show();をコメントアウトすればコピーできます。
    
    どうすればNASでも動くようになるのでしょうか?
    NASは初心者向け家庭用のIO-DATA製hdl2-taです。
    
    フォーム1
    public partial class Form1 : Form
        {   
            private void Form1_Load(object sender, EventArgs e)
            {
                var task = Task.Run(() =>
                {
                    Backup();
                });
            }
    
            void Backup()
            {
                FormProg formProgress = new FormProg();
                formProgress.Show();
    
                string path = @"t:\test1\test.txt";
                string destFilePath = @"t:\test2\test.txt";
    
                File.Copy(path, destFilePath);
    
                formProgress.progressBar1.Maximum = 2;
    
                formProgress.progressBar1.Value = 1;
            }
        }
    
    
    プログレスバーを貼り付けたフォーム
    public partial class FormProg : Form
        {        
            new public void Show()
            {
                Task.Run(() =>
                {
                    ShowDialog();
                });
            }
        }

違反を報告
引用返信



■記事リスト / ▼下のスレッド / ▲上のスレッド
■35074 / 親記事)  正規表現で文字の繰り返しパターン
□投稿者/ ポポ 一般人(1回)-(2022/06/13(Mon) 10:30:35)
  • アイコン環境/言語:[Windows10 64bit VS2019 VB.NET .NET4.8.04084] 
    分類:[.NET] 

    はじめてお世話になります。

    正規表現で文字の置き換えについて教えて下さい。

    文字が繰り返されてしまっているデータを含んだテキストファイルがあります。
    例)”ああああいいいいううううええええおおおお 御中”
    上記例は”あいうえお”の部分5文字が各4回ずつの繰り返してしまっており、
    その後の” 御中”は繰り返していません。
    これを正しい”あいうえお”に置き換えをしたいです。

    文字数も繰り返し回数も不定です。ただし繰返し回数(例では4)は全文字同じ
    回数になります。

    正規表現で"(.)\1"として"$1"で1文字に置き換えはできたのですが、
    当然、2文字連続文字は全て置き換わります。(例えば2001年の00部分)
    (.)\1+(.)\2+", "$1$2"で2回の繰り返しの場合のみ置き換えで対応したのですが、
    3回以上の繰り返しを置き換えるのに、パターンを全て記述することになり困っております。

    同じ文字の繰り返しパターンが2回以上連続する場合に各1文字に置き換える
    表現が可能か、ご教授頂ければと存じます。
    よろしくお願いします。
違反を報告
引用返信

▽[全レス4件(ResNo.1-4 表示)]
■35082 / ResNo.1)  Re[1]: 正規表現で文字の繰り返しパターン
□投稿者/ shu 大御所(498回)-(2022/06/16(Thu) 08:46:43)
  • アイコンNo35074に返信(ポポさんの記事)

    全部同じ繰り返し回数というのが条件でしょうか?
    ああああいいいうううううえええ

    だとしたらどのように変換するのがただしいのでしょうか?
違反を報告
引用返信
■35083 / ResNo.2)  Re[2]: 正規表現で文字の繰り返しパターン
□投稿者/ shu 大御所(499回)-(2022/06/16(Thu) 10:00:29)
  • アイコン
    サンプルです。
    a:元の文字列
    b:連続した文字を1文字に変換
    c:連続数の一番少ない文字に合わせて変換
    
            Dim a = "ああああいいいいううううえええお"
            Dim reg1 As New Regex("(?<c>.)\k<c>+")
    
            Dim b = reg1.Replace(a, Function(m) m.Groups("c").Value)
    
            Dim min = a.Length
            reg1.Replace(a, Function(m)
                                Dim l = m.Value.Length
                                If l < min Then
                                    min = l
                                End If
                                Return ""
                            End Function
                         )
    
            Dim c = reg1.Replace(a, Function(m)
                                        Dim l = m.Value.Length
                                        Dim c1 = m.Groups("c").Value
                                        Dim nm = l - min + 1
                                        Return New String(c1, nm)
                                    End Function
                         )
    

違反を報告
引用返信
■35085 / ResNo.3)  Re[2]: 正規表現で文字の繰り返しパターン
□投稿者/ ポポ 一般人(2回)-(2022/06/18(Sat) 15:54:42)
  • アイコンNo35082に返信(shuさんの記事)
    > ■No35074に返信(ポポさんの記事)
    >
    > 全部同じ繰り返し回数というのが条件でしょうか?
    > ああああいいいうううううえええ
    >
    > だとしたらどのように変換するのがただしいのでしょうか?
    全て同じ文字数の繰り返しが条件ですので、
    4文字、3文字、4文字、3文字パターンの場合は変換しません。
違反を報告
引用返信
■35086 / ResNo.4)  Re[3]: 正規表現で文字の繰り返しパターン
□投稿者/ ポポ 一般人(3回)-(2022/06/18(Sat) 16:01:18)
  • アイコンNo35083に返信(shuさんの記事)
    ありがとうございます。
    やはり正規表現のみで対応はできないのですね。

    iTextSharpでpdfファイルからテキスト抽出した際、
    同じ文字数の繰り返し文字列が返ってきてしまう場合があり、
    これの対処をしておりました。
    正規表現1行でできないかと格闘していた次第です。

    上記参考にさせてお頂きます。
    ありがとうございました。

違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-4]



■記事リスト / ▼下のスレッド / ▲上のスレッド
■35075 / 親記事)  DataViewのFindRowsde
□投稿者/ Wan 付き人(62回)-(2022/06/15(Wed) 17:49:25)
  • アイコン環境/言語:[VisualBasic2019 Windows10 Basic Framework4.7.2] 
    分類:[.NET] 

    DataViewについて勉強しています。
    https://docs.microsoft.com/ja-jp/dotnet/api/system.data.dataview.find?view=net-6.0#system-data-dataview-find(system-object())
    のページに次のコードがかかれています。
    Private Sub FindValueInDataView(table As DataTable)
        Dim view As New DataView(table)
        view.Sort = "Customers"
        Dim vals(1) As Object
        vals(0)= "John"
        vals(1) = "Smith"
        Dim i As Integer = view.Find(vals)
        Console.WriteLine(view(i))
    End Sub
    これを参考に次のコードを作成しました。
    Dim myTable As New DataTable
    Dim myColumn As DataColumn
    myColumn = New DataColumn("FirstName")
    myTable.Columns.Add(myColumn)
    myColumn = New DataColumn("LastName")
    myTable.Columns.Add(myColumn)
    Dim myRow As DataRow
    myRow = myTable.NewRow
    myRow.ItemArray = New Object() {"佐々木", "渉"}
    myTable.Rows.Add(myRow)
    myRow = myTable.NewRow
    myRow.ItemArray = New Object() {"山本", "健司"}
    myTable.Rows.Add(myRow)
    myRow = myTable.NewRow
    myRow.ItemArray = New Object() {"山本", "弘子"}
    myTable.Rows.Add(myRow)
    myRow = myTable.NewRow
    myRow.ItemArray = New Object() {"森本", "武"}
    myTable.Rows.Add(myRow)
    Dim myDataView As New DataView(myTable)
    myDataView.Sort = "FirstName"
    Dim test = myDataView.FindRows(New Object() {"山本", "健司"}) '@
    'Dim test = myDataView.FindRows("山本") 'A
    'DataGridView1.DataSource = test 'A
    を作成しました。
    実行してみると、「System.ArgumentException: 'インデックスを付加するキーには 1 値が必要ですが、2 値を取得しました。'」の例外が発生します。
    サンプルコードとどこが違うのでしょうか?
    サンプルのコードが正しく動いた場合は、一つの列の値の中で、二つのKYのどちらかがマッチした場合の行が返されると考えて宜しいのでしょうか?
    
    また、@をコメントアウトして、Aをコメントを外すと例外は発生しませんが、
    DataGridViewに期待する内容が表示されません。
    DataRowView[]をDataGridViewに表示するには、どのようにすれば良いのでしょうか?
    どなたか詳しい方教えてください。
    宜しくお願い致します。
    
    
    
    

違反を報告
引用返信

▽[全レス7件(ResNo.3-7 表示)]
■35078 / ResNo.3)  Re[1]: DataViewのFindRowsde
□投稿者/ 魔界の仮面弁士 大御所(1429回)-(2022/06/15(Wed) 20:27:22)
  • アイコンNo35075に返信(Wanさんの記事)
    > 一つの列の値の中で、二つのKYのどちらかがマッチした場合の行が返されると考えて宜しいのでしょうか?

    FindRows メソッドでの検索は AND 条件です。
    OR 条件で抽出したい場合は、LINQ を使うことができます。

    Dim rowViews = (From r As DataRowView In myDataView Where r("FirstName") = "山本" OrElse r("LastName") = "健司").ToArray()
違反を報告
引用返信
■35079 / ResNo.4)  Re[2]: DataViewのFindRowsde
□投稿者/ Wan 付き人(63回)-(2022/06/16(Thu) 07:57:57)
  • アイコンHongliangさん
    魔界の仮面弁士さん

    いつもご指導ありがとうございます。
    サンプルでも間違えていることがあるんですね?
    色々やってみましたが、上手く行かず途方に暮れていました。
    助かりました。

    DataViewにLINQを使う時に、私ならつい
    From r As DataRowView In myDataView.Rows
    とRowsをつけてしまいそうですが、LINQ to DataSetの仕様という事でしょうか?
    また、r("FirstName")とColumn名が使えるのもLINQ to DataSetの仕様でしょうか?


    最後の質問である。
    DataRowView[]をDataGridViewに表示するには、どのようにすれば良いのでしょうか?
    は、どのようにすれば宜しいのでしょうか?
    追加で、ご指導頂ければ助かります。

違反を報告
引用返信
■35080 / ResNo.5)  Re[3]: DataViewのFindRowsde
□投稿者/ Wan 付き人(64回)-(2022/06/16(Thu) 08:05:30)
  • アイコン
    魔界の仮面弁士さんのコードに.ToArrayをつけて
    DataSouceに入れると図のようになってしまいます。
    
     Dim myDataView As New DataView(myTable) With {.Sort = "FirstName"}
     Dim test = myDataView.FindRows("山本").ToArray 'A
     DataGridView1.DataSource = test 'A
    
    宜しくお願い致します。
    

442×275 => 250×155
イメージ
dobon.jpg
/11KB
違反を報告
引用返信
■35081 / ResNo.6)  Re[4]: DataViewのFindRowsde
□投稿者/ Wan 付き人(65回)-(2022/06/16(Thu) 08:22:40)
  • アイコン.ToListならでました。
    根本的に?何を理解していないのか?
    わかりません?
違反を報告
引用返信
■35084 / ResNo.7)  Re[5]: DataViewのFindRowsde
□投稿者/ wan 一般人(5回)-(2022/06/16(Thu) 22:42:43)
  • アイコン解決しました
解決み!
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-7]



■記事リスト / ▲上のスレッド
■35070 / 親記事)  NPOIでのエクセル編集で期待通りに書き込めません
□投稿者/ Miya 一般人(1回)-(2022/06/10(Fri) 11:22:23)
  • アイコン環境/言語:[Win10 VB.net2010] 
    分類:[.NET] 

    VB.net2010 NOPI.2.1.3.1でのエクセル編集についてご教示下さい。


    既存のエクセルを開いて指定のセルに値を書込みたいのですが、
    下記の内容で実行すると
    Row(0)の書式がクリアされ、"Hello1"を書き込み、
    Row(0)の書式がクリアされ、"Hello2"を書き込んでいる様でした。

    Row(0)の書式がクリアされず、"Hello1"と"Hello2"を書き込むには
    どうすれば良いでしょうか?


    ---------------------------------------------------------
    Dim File_Name As String = "C:\xxxx\Book1.xls"
    Dim rfs As FileStream = File.OpenRead(File_Name)
    Dim book As IWorkbook = New HSSFWorkbook(rfs)
    rfs.Close()

    '番号指定でシートを取得する(最初のシート)
    Dim sheet As ISheet = book.GetSheetAt(0)

    sheet.CreateRow(0).CreateCell(0).SetCellValue("Hello1")
    sheet.CreateRow(0).CreateCell(2).SetCellValue("Hello2")

    'ファイルを更新する
    Using wfs = File.Create(File_Name)
    book.Write(wfs)
    End Using
    ---------------------------------------------------------
630×304 => 250×120
イメージ
1654827743.png
/7KB
違反を報告
引用返信

▽[全レス2件(ResNo.1-2 表示)]
■35071 / ResNo.1)  Re[1]: NPOIでのエクセル編集で期待通りに書き込めません
□投稿者/ Hongliang 大御所(628回)-(2022/06/10(Fri) 12:13:10)
  • アイコンコードを見ただけの感想ですが、

    > sheet.CreateRow(0).CreateCell(0).SetCellValue("Hello1")
    > sheet.CreateRow(0).CreateCell(2).SetCellValue("Hello2")

    CreateRow/CreateCellしてるから新しい行/セルが作られてるんじゃないでしょうか。
    GetRowとかそういう感じのを使用されてみては。
違反を報告
引用返信
■35073 / ResNo.2)  Re[2]: NPOIでのエクセル編集で期待通りに書き込めません
□投稿者/ Miya 一般人(3回)-(2022/06/10(Fri) 13:44:39)
  • アイコンHongliang様

    教えて頂き、有難う御座います。
    Getはテータ取得のみと思っていました。

    下記の様にして、書込める事確認できました。

    ---------------------------------------------------------
    '列名設定
    Dim xRow As IRow
    'セル設定
    Dim xCell As ICell

    xRow = sheet.GetRow(3)
    xCell = xRow.GetCell(1)
    xCell.SetCellValue("Hello1")
    ---------------------------------------------------------



    No35071に返信(Hongliangさんの記事)
    > コードを見ただけの感想ですが、
    >
    >>sheet.CreateRow(0).CreateCell(0).SetCellValue("Hello1")
    >>sheet.CreateRow(0).CreateCell(2).SetCellValue("Hello2")
    >
    > CreateRow/CreateCellしてるから新しい行/セルが作られてるんじゃないでしょうか。
    > GetRowとかそういう感じのを使用されてみては。
解決み!
違反を報告
引用返信

■記事リスト / レス記事表示 → [親記事-2]






Mode/  Pass/


- Child Tree -

2023/10/01(Sun) 01:51:00 に作成されたキャッシュを表示しています。
生のデータを表示する | キャッシュを最新にする