

PHPコードをエクセルに張り付けると検索ボックスがでてくる!
プログラムのマニュアル書を作成しています。
エディタでもいいのですがエクセルが検索機能が充実しているので
エクセルやっています。
しかし!
以下のプログラムの個々のコードですが!
エクセルに以下のプログラム張り付けると なぜか?
ホームページみたいに検索ボックスがでてきてしまいます。
プログラムのコード自体が出てきません?
この場合メモ帳のようにプログラムコード事態を表示するにはにどう
したらできますか?
よろしくお願いいたします。
<?php
/*************** データベース情報等の読み込み ***************/
require_once("data/db_info.php");
/*************** データベースへ接続、データベース選択 ***************/
$s=new PDO("mysql:host=$SERV;dbname=$DBNM",$USER,$PASS);
/*************** タイトル等の表示 ***************/
print <<<eot1
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>SQLカフェ 検索のページ</title>
</head>
<body style="background-color:aqua">
<hr>
<div style="font-size:18pt">(検索結果はこちらに)</div>
eot1;
/*************** 検索文字列を取得してタグを削除 ***************/
$se_d=isset($_GET["se"])?htmlspecialchars($_GET["se"]):null;
/*************** 検索文字列($se_d)にデータがあれば検索処理 ***************/
if($se_d<>""){
/*************** 検索のSQL文 テーブルtbj1にtbj0を結合 ***************/
$str=<<<eot2
SELECT tbj1.bang,tbj1.nama,tbj1.mess,tbj0.sure
FROM tbj1
JOIN tbj0
ON
tbj1.guru=tbj0.guru
WHERE tbj1.mess LIKE "%$se_d%"
eot2;
/*************** 検索クエリを実行 ***************/
$re=$s->query($str);
while($kekka=$re->fetch()){
print " $kekka[0] : $kekka[1] : $kekka[2] ( $kekka[3] )";
print "<br><br>";
}
}
/*************** 検索文字列入力用表示、トップへのリンク ***************/
print <<<eot3
<hr>
<div>メッセージに含まれる文字を入力してください!</div>
<form method="GET" action="keizi_search.php">
検索する文字列
<input type="text" name="se">
<div>
<input type="submit" value="検索">
</div>
</form>
<br>
<a href="keizi_top.php">スレッド一覧に戻る</a>
</body>
</html>
eot3;
?>
No.2ベストアンサー
- 回答日時:
質問文のコードだと行頭のスペース(インデント)が消去されてますが、
実際のコード(Excelに貼り付ける前)だとインデントがあるのでは?
この場合、HTMLソースなどでも同じですがExcelが勝手にHTML形式に
変換してしまいます。Excelの仕様なので、ひと手間が必要です。
対処法その1
[テキストファイルウィザード]を使用する。
テキストファイルとして用意されているのなら、それをインポート。
https://hamachan.info/win10-excel-text/
ファイルとして用意されていないのなら、コピーをして貼り付け後に
貼り付けオプションで[テキストファイルウィザード]を指定。
https://hamachan.info/win7/office/harituke.html
これなら、インデントを維持したまま取り込めます。
対処法その2
Wordに貼り付け後に貼り付けたものをコピーしてExcelに貼り付け。
この場合には、行頭のインデントが半角スペースでされていると一つの
列ごとに半角スペースがある状態でセルに貼り付けされます。
その1のようなインデントが隣の列になるのとは違います。
対処法その3
質問文にあるコードをコピーして貼り付けすると、一つの列にテキスト
として貼り付けることができていると思います。これを利用することで
対応します。
テキストエディターなどで行頭のインデントを(正規表現などで)削除。
行頭インデントをなくすことでExcelが勝手に変換しなくなるようです。
対処法その4
No.1の回答者さんへのお礼にあるように個別に貼り付けする。
コードが多い場合に作業的に多くなるので手間が増えるので非推奨。
その他として、コードにある<を別記号などに変換して貼り付けする
などの対応もあります。個人的には、その1がお勧め。
ご回答下さいましてありがとうございます。
ご紹介してくだいました。
助かりました^^
https://hamachan.info/win10-excel-text/
の
参考Excel2019では、Power Query(パワークエリ)が起動するようになっていますが、設定によって[テキストファイルウィザード]で取り込むことも可能です。
で 完全な 一行単位 で貼り付けが簡単にできました。
一度 ファイルを txt の拡張子に戻してから
作業したほうがいいと思います。
No.3
- 回答日時:
こんにちは。
> あんまりよろしくありませんでしたので!
#1の方法で上手くいかないですか、、
ご質問文のソースについて、当方は問題なく貼り付けできてます。
どう上手くいかないのでしょう?
ワークシート貼付け時に Excel が HTML を解釈してしまうお節介機能は、私の知る限りオフにできません。
セルへ展開したいとのことなので、VBA による解決案を提示します。
Public Sub Paste_PlainText()
Dim source As String: source = GetTextFromClipboard()
If Len(source) Then
Dim buf As Variant: buf = Split(source, vbCrLf)
ActiveCell.Resize(UBound(buf) + 1).Value = WorksheetFunction.Transpose(buf)
End If
End Sub
' クリップボードからテキストを取得する
' 要参照設定: Microsoft Forms 2.0 Object Library
'
Private Function GetTextFromClipboard() As String
With CreateObject("Forms.TextBox.1")
.MultiLine = True
If .CanPaste Then
.Paste
GetTextFromClipboard = .Text
End If
End With
End Function
' 参考URL
' 初心者備忘録 [[VBA]DataObjectを使ったクリップボード操作が上手くいかない場合の対処法]
' https://www.ka-net.org/blog/?p=7537
ご回答下さいましてありがとうございます。
VBですね!
これは 試す価値はあると思います。
機会があれば 試したいと思います。
今後ともよろしくお願いいたします。
ありがとうございます。
貼り付けオプションですね^^
[貼り付け先の書式に合わせるアイコンを選択する。]
では
あんまりよろしくありませんでしたので!
いまのところ
セルを5行にして分割して貼り付けたらOKです。
検索もそれなりにできます。
他 何かいいやり方がありましたら
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
- PHP php ログイン 1 2022/11/01 00:24
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- PHP PHP MySql 画像を取得 1 2022/06/04 14:05
- PHP php テーブルが作成できない 1 2022/11/17 23:41
- MySQL php テーブルを作れない 2 2022/11/17 18:22
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 偶数月の15日(土日祝...
-
Excelの数式について教えてくだ...
-
Excelのメニューについて
-
VLOOKUP FALSEのこと
-
エクセル内に読み込んが画像の...
-
【マクロ】1回目の実行後、2...
-
勤務外時間を出す表が作りたい
-
Excelで作成した出欠表から日付...
-
エクセルの数式について教えて...
-
【マクロ】参照渡しとモジュー...
-
Excelの条件付書式について教え...
-
【マクロ】シート追加時に同じ...
-
マクロを実行すると、セル範囲...
-
【マクロ】参照渡しについて。...
-
Excel 日付の表示が直せません...
-
エクセルで、数字の下4桁の0を...
-
【マクロ】Call関数で呼び出し...
-
別のシートの指定列の最終行を...
-
Excelのデーターバーについて
-
Excelでの文字入力について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】重複する同じ行を、...
-
Excelの条件付き書式のコピーと...
-
vba 印刷設定でのカラー印刷と...
-
VBA の単語の意味を教えて下さい。
-
Excel 日付の表示が直せません...
-
エクセル 同じ行の隣り合う数字...
-
エクセル条件付き書式について。
-
エクセルの数式につきまして
-
ファイル名の変更
-
エクセル 数字のみ抽出につて
-
Excelの開始ブックを固定したい...
-
エクセルの数式について教えて...
-
エクセルのセルをクリックする...
-
=INDIRECT(RIGHT(CELL("filenam...
-
エクスプローラーで見ることは...
-
Excelの関数で質問です
-
至急お願いいたします 屋上の備...
-
エクセルでセルに入力する前は...
-
関数を教えて下さい
-
Excel 関数での質問です
おすすめ情報
いまのところ
図形に張り付けて閲覧しています。
直に張り付けたいですね
皆様ご回答下さいましてありがとうございます。
手が空き次第試みます。
しばらくお待ちください。