• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：コードを、改行しても働くようにしたい）

コード改行：VB.Netでコードを途中で改行しても働くようにする方法

このQ&Aのポイント
  • VB.Netでコードを途中で改行しても働くようにする方法を探しています。授業で減点対象になるため、コードが途中で改行しても正しく動作する方法を知っている方がいらっしゃれば教えてください。
  • VB.Netを使用していますが、コードを途中で改行すると、プリントアウト時にコードが途中で改行されてしまいます。この問題を解決するためにはどのような方法がありますか？授業で減点されるのを回避するためにも、改行しても正しく動作する方法を知りたいです。
  • VB.Netのコードを途中で改行しても正しく動作する方法について教えてください。授業で減点対象になってしまうため、コードが途中で改行しても問題なく動作する方法を知りたいです。どなたか知識をお持ちの方がいらっしゃれば教えていただけると助かります。
  • new-b
  • お礼率47% (410/866)

質問者が選んだベストアンサー

  • ベストアンサー
  • todo36
  • ベストアンサー率58% (728/1234)
回答No.1

_

new-b
質問者

お礼

いままで _　をやってみたのですができませんでした。 ですが、パソコンを再起動したあと、 _ をつける前に１度スペースを空けることで機能しました。 有り難うございました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • C#でFontStyleの列挙体に値を追加したい

    通常、フォントに太字やイタリック体を指定する場合、 new Font("Arial", 10, FontStyle.Bold|FontStyle.Italic) のように「|」で区切った形で指定すると有りますが、 FontStyleの部分を変数を使って指定したいと考えています。 FontStyle styles = new FontStyle(); styles.Add(FontStyle.Bold); // 実際にはできません styles.Add(FontStyle.Italic); new Font("Arial", 10, styles); スタイルの情報は配列「bold, italic, underline, strikeout」のように保存されていて、 配列にboldが含まれていれば「FontStyle.Bold」を加えるといった流れが目的です。 Listを変換できないものかと試したりもしてみましたが例外が発生してしまいます。 List<Enum> styleList = new List<Enum>(); styleList.Add(FontStyle.Bold); styleList.Add(FontStyle.Italic); FontStyle styles = (FontStyle)Enum.ToObject(typeof(FontStyle), styleList); Font font = new Font("Arial", 12, styles); どのように解決すればいいのでしょうか？ よろしくお願いします。

  • 改行について

    EXCEL VBAでの質問です。初心者です・・・ if文を書いていて、条件が3つ程あったのでOR条件でわけて記述した所 コードが長くなり改行しようと考えたのですがそのまま改行するとエラーになります・・・ コードを改行する場合は "," ではダメなのでしょうか？ 省略ですがこのようなプログラムで途中で改行したいのです。 If Range("A21").Value = 1　or Range("A21").Value = 12 ・・・Then 初歩的ではございますが、よろしくお願いいたします

  • 改行コード検索

    VB6.0について質問です。 ある文字列のデータの中にある改行コードをみつけ それを取り除いた文字データだけを取得したいのですがうまくいきません＞＜ 現在実行しているコードは以下の通りです。 For ixA = 1 To Len(ds.Fields(tmp1).Value) If Mid(ds.Fields(tmp1).Value, ixA, 2) = vbCrLf Then MOJI = MOJI & Mid(ds.Fields(tmp1).Value, ixA, ixA - 1) & Mid(ds.Fields(tmp1).Value, ixA + 1, ixA) End If Next ixA 文字列を結合するところでわけがわからなくなりました＞＜； 正しいコードか他のやり方をご存知の方ご回答よろしくお願いします！

  • VB.NET2003とVB.NET2005の処理速度について

    お世話になります。VB.NET2003,2005の処理速度・処理方法について分かる方がいましたら、教えていただきたく質問します。 もともとVB.NET2003で作成されていたプログラムをVB.NET2005に変換して実行した所、ある処理が元の10倍ぐらい遅くなってしまいました。 コードはRadioボタンを動的に作成してPanelにAddして表示する簡単な物です。 以下にコードを乗せます。 For i as integer = 0 to 99 Dim redio As New System.Window.Forms.RadioButton redio.Size = New System.Drawing.Size(120, 40) redio.Top = 8 + (57 * x) redio.Left = 8 + (137 * y) redio.Appearance = Appearance.Button redio.AutoCheck = False 'フォント関連の設定 redio.TextAlign = ContentAlignment.MiddleCenter redio.Font = New System.Drawing.Font(redio.Font.FontFamily, 17.25!, FontStyle.Bold) redio.BackColor = System.Drawing.SystemColors.Control redio.Name = "Check-" & i redio.Text = i.ToString() redio.Visible = True AddHandler redio.Click, AddressOf RadioButton_Click ’※※↓の処理が遅くなった Me.PanelRackControl.Controls.Add(redio) redio = Nothing If y = 4 Then x += 1 y = 0 Else y += 1 End If Next 2003から2005で遅くなるものなのか、処理が悪いのか分かる方がいらっしゃいましたらご教授下さい。 宜しくお願いします。

  • 改行コードの変換と削除

    改行コード変換メソッドで$dataには配列形式のデータが入ります。 public function v_line($val, $arr = false) { $line = ''; if(is_array($val)){ return array_map(array($this, 'v_line'), $val); } return str_replace(array("\r", "\n"), $line, $val); } //メソッド実行 $this->v_line($data); この結果全ての改行コードが削除されます。これを特定のキーのみ削除ではなく"\n"に 統一させるように変換したいのですがどのようにすればできますでしょうか？ //改行コード削除しないキー配列 $arr = array('comment01', 'comment02'); //$arrのキーのみ改行コードを変換しその他は改行コード削除 $this->v_line($data, $arr);

    • ベストアンサー
    • PHP
  • macroコードを短縮できるでしょうか。

    下記のコードで、実行できます。大部分はマクロを記憶し、同じ処理を重ねただけのものです。 目的は、ワードで選択した文字列の中から数字を削除します。 ただし、下記のような場合は削除しません。 【請求項１】、項２、ないし３、いずれか１、【００１９】、第３の、 この処理を行うために、差別化しました。 まず、数字を赤字で太字にしました。 次に、上記の、削除しては具合が悪い数字については、明朝で標準に戻すようにしてから、赤字で太字の数字を削除しました。 ２０００文字を超えるので、途中大幅にカットしました。 以下は、コードです。 ~~~~~~~~~~~~~~~~~~~~~~~~ Private Sub 符号削除() Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "第１" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "第２" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "又は２" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With ↓以下、２０まで繰り返し Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "乃至２０" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "１" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll ↓以下、９，０まで繰り返し Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "９" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "０" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub ~~同じ繰返しを短くする部分の正規表現の使い方やloopを指南していただけたら幸甚です。

  • VBSにて改行コードの検出・置換

    VBSに馴染みがなく何方か教えて頂ければ… ------------------------ 11111AAA[0D0A]AAA[0A] 22222CCCCCC[0A] 上記データ、[0D0A]の改行コードを捜しだし、""に置換 111111AAAAAA　左記レコードの様にしたい。 -------------------------- Do Until objin.AtEndOfStream strLine = objin.Readline If InStr(strLine,VbCrLf) <> 0 Then strLineA = Replace(strLine,vbCrLf,"") objout.Write(strLineA) Else objout.Write(strLineA & VbLf) End If Loop ※InStr関数で改行コードが見つからない。 （objin.Readlineで改行まで読み込んでない） 　Replace関数のみ行うと置換されるが[0A]まで ""となってしまう。 　[0D0A]のみ検知し置換したいのですが。 何方か良い方法を知っている方、よろしく御願い致します。

  • １行ごとに取得して、その改行文字が何か知る方法

    CR,LF,CRLFが混在しているテキストで難儀しております。 VB.NETでReadLine()を使えば、どんな改行コードでも削除した文字列を取得できますが、同じ内容を書き込む場合にどのような改行コードわからないと同じファイルができません。 安直にNewLineやWriteLine()を使うと、どんな改行コードでWindowsの場合はCRLFになります。 ReadLine()で取得した文字列＋改行コードがわかる方法がありますか？ 以下、例です。 dim s as String Dim sr As New System.IO.StreamReader("yomu", "ISO-2022-JP") Dim sw As New System.IO.StreamWriter("kaku", false, "ISO-2022-JP") While sr.Peek() > -1 s = sr.ReadLine() '改行文字を取り除いた文字列 sw.Write(s) '書き込む end While sr.close() sw.close()

  • リッチテキストの SelectionFont プロパティ(VB.NET)

    リッチテキストで選択された範囲を太字や斜体等に変換させたく RichTextBox1.SelectionFont = _ New Font(RichTextBox1.SelectionFont, RichTextBox1.SelectionFont.Style Or FontStyle.Bold) このようにした場合、選択文字に複数のフォント？が含まれてると System.NullReferenceException はハンドルされませんでした。 オブジェクト参照がオブジェクト インスタンスに設定されていません。 となってしまいます。 SelectionFont プロパティが Nothing を返してくるようで… 仕方なく以下のようにして１文字づつ変換しているのですが With RichTextBox1 For i As Integer = .SelectionStart To .SelectionStart + .SelectionLength - 1 .SelectionStart = i .SelectionLength = 1 .SelectionFont = New Font(.SelectionFont, .SelectionFont.Style Or FontStyle.Bold) Next End With 他にうまく変換させる方法はないでしょうか？

  • Adodbの改行コードについて

    お世話になります。 クライアントにAccessが無いのでAccessモドキを作るのが目的で CSVを読み込み編集しCSVを書き出すhtaを作成しているのですがAdodbで躓いてしまいました。 読み込んだCSVの仕様に準拠して書き出すのですが、 どうしても改行コードが上手く出力出来ず悪戦苦闘中です。 WriteTextで行区切り文字を指定していますが 指定していないとLFが出力されており、 現在の指定でもCRLFの後にLFが吐き出されています。 LFが邪魔で仕方ないのですが必ず出力されてしまうものなのでしょうか？ 回答お待ちしております。 CSVの仕様 ・UTF-8 ・セル内改行コード：LF ・行区切り：CRLF ・全セル「"」括り 書き込みデータ ・配列：textArray (「"」括り、「,」区切り済み、1要素1レコード) /* * @param file : ファイルフルパス * @param textArray : 書き込み配列 * return boolean : 成功判定(失敗時エラーコード) */ function adodbLineout(file, textArray){ try{ var adbStrm = new ActiveXObject("ADODB.Stream"); adbStrm.Charset = 'UTF-8'; adbStrm.lineSeparator = -1; for(i=0;i<textArray.length;i++){ if(textArray[i] == ""){continue;} adbStrm.WriteText(textArray[i], 1); } adbStrm.SaveToFile(file); adbStrm.Close(); return false; }catch(e){ return e; } } 因みに疑似システムはマクロで既に組み上げていたりするので 「Excelで作れ」など別システムの推奨はご遠慮下さいませ。 (読み込みファイルはそのExcelで作成しています。)

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する