"<%=date変数%>"を"<%=date18(←仮数字)%>"とHTML上で表示させたい
- <%=date変数%>をHTMLのvalue属性に入れたい際、どのように記述すれば良いかアドバイスしてください。
- ASPでプログラムを作成しており、<%= %>で囲まれた中に変数を入れる必要があります。具体的な方法についてご教示ください。
- 以下のソースコードには、問題の箇所を含んでいます。該当箇所の修正方法についてお知らせください。
- ベストアンサー
"<%=date変数%>" を "<%=date18(←仮数字)%>"とHTML上で表示させたい
いつもお世話になっております。 現在ASPでプログラムを作成していますが。 <%= %> で囲まれた中に更に変数(<%= %>)を入れることになりました。 どの様にすれば HTMLソースに value="<%=date変数%>"と表示出来ますか アドバイスお願いいたします。 以下ソースを記載します。 <!-- カレンダー設置関数 --> <% Function cal(num) Dim a Dim str %> <input type="text" name="date<%=num%>" id="date<%=num%>" onClick="cal<%=num%>.write(); <% a = 2 Do Until a > 26 if a <> num then %> cal<%=a%>.hide(); <% Else End if a = a + 1 Loop Response.Write str Response.Write " "" " %> onChange="ca<%=num%>.getFormValue(); cal<%=num%>.hide();" value="<%=date<%=num%>%>"【←問題の箇所です】> <br> <div id="caldiv<%=num%>"></div> <%End Function%>
- ohs40952
- お礼率13% (3/23)
- Microsoft ASP
- 回答数1
- ありがとう数9
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
実際に試したわけじゃないですけど、普通に <%=date変数%> で できませんか。 (実体参照)
関連するQ&A
- value="<%=date25(25は変数です)%>"値を変数にしてデータを受け取りたい
いつもお世話になっております。 ASPのプログラミングの最中、データの受け取りを関数で行おうとした所 ソースの記述が分からなくなったので質問した次第です。 お手数をおかけしますが、アドバイスお願いいたします ※質問概要 あらかじめ入力していたデータを value="<%=date値%>(値=1~26)で受け取り、内容をHTMLに表示しようと思っています。 値の変数は「num」 一件だけならば value="<%=date10%>" と入力して 「2008/08/29」日付を取得、HTMLに記述させられるのですが 関数で、複数件(26件)処理するとなると 変数名1~26の処理をnumに置き換えて 26個のテキストBOXにそれぞれのデータを出力したいのですが どの様に記述すればいいでしょうか? (value="<%=date<%=num%>%>"にしましたが、データの取得は出来ませんでした。 value="<%=date<%=num%>%>"も テキストBOXに<%=date1%>~26出力されて取得できませんでした) 説明不足の点がありましたら、即追加いたします。 以上、よろしくお願いいたします。 ソースを記載いたします <!-- カレンダー設置関数 --> <% Function cal(num) Dim a Dim str %> <input type="text" name="date<%=num%>" id="date<%=num%>" onClick="cal<%=num%>.write(); <% a = 2 Do Until a > 26 if a <> num then %> cal<%=a%>.hide(); <% Else End if a = a + 1 Loop Response.Write str Response.Write " "" " %> onChange="ca<%=num%>.getFormValue(); cal<%=num%>.hide();" value="<%=date<%=num%>%>"【問題の箇所です】> <br> <div id="caldiv<%=num%>"></div> <% End Function%>
- ベストアンサー
- Microsoft ASP
- 変数内容をHTML内で表示する方法
javascript初心者です(主にはperlを使っています)。 ajaxに手をだしたところ、perlとの変数の取り扱い方が基本的なところで違っていて戸惑っています。 例えばperlの場合、タグ内の変数(例えば$msg)は、ホームページで表示する際は、その内容が展開表示されるので、 javascriptでも、変数(例えばmsg)を、それと同様に扱ったところ、全く展開表示されずに困っています。 javascriptで変数(例えばmsg)の内容を、htmlタグ内で表示させるには、どうしたらよいのか教えて下さい。 (あれこれ検索してみましたが、何故か、その方法が見つかりませんでした) 具体的には、、、、、 (以下のソース参照) 「チェック」ボタンをクリックしたら、それをきっかけにして、外部プログラムが起動し そこからの返答として、javascriptの変数msgの中に 「exist」もしくは「noexist」が代入されて返ってきます。 それに基づき、javascriptの変数 resultの中に「有 msg」又は「無 msg」が代入され、 それが、<div id="note$id"></div>の部分に表示されます。 が、その際、変数msgの内容を表示させたいのですが、それができません。 例えば result = '有 document.write(msg);'; とやったのですが、それでも表示されません。 msgの内容をHTMLタグ内で表示させる方法を教えて下さい。 よろしくお願いします。 --------------------------------------------- 実際のソース(肝心な部分だけを抽出) --------------------------------------------- <header部分> <!-- JQuery --> <script type="text/javascript" src="jquery-1.7.2.min.js"></script> <script type="text/javascript"> <!-- // When DOM is ready $(document).ready(function(){ // ------- Form ------- $("input").click(function(){ id2= $(this).attr("class"); sharpform="#form"; sharpfields="#fields"; sharpnote="#note"; formid = sharpform + id2; fieldsid= sharpfields + id2; noteid= sharpnote + id2; $(formid).submit(function() { var str = $(this).serialize(); $.ajax({ type: "POST", url: "./外部ブログラム名.cgi", data: str, success: function(msg) { // Message Sent? Show the 'Thank You' message and hide the form if(msg == 'exist') { result = '有 msg'; $(fieldsid).hide(); } else if(msg == 'noexist') { result = "無 msg"; $(fieldsid).hide(); } else { result = msg; } $(noteid).html(result); } }); return false; }); }); }); --> </script> --------------------------------------------- <body部分> <div id="note$id"></div> <div id="fields$id"> <form id="form$id" method="post" action=""> <input type="hidden" name="method" value="post"> <input type="hidden" name="check" value="$check"> <input type="submit" value="チェック" class="$id"/> </form> </div> ※html表示時には、$idには、1や2等の数字が入って表示されます。 ---------------------------------------------
- ベストアンサー
- JavaScript
- 変数名を合成
a12=input,value というのを str="a" num="12" eval(ste+num)=input.value のように、2つ以上の文字列をくっつけた変数名を 使う方法はありませんか?
- ベストアンサー
- JavaScript
- グローバル変数などについて
Option Explicit Dim str1 As String '・・・(1) Sub テスト() Dim str2 As String '・・・(2) str1 = "テスト1" str2 = "テスト2" MsgBox str1 MsgBox str2 End Sub (1)はグローバル変数と言うとの事ですが (2)は何変数と言うのでしょうか? ローカル変数ですか? また、(1)がdimではなく、 Public str1 As String となった場合でも、 プロシージャーの外にあれば、グローバル変数と言うのでしょうか?
- ベストアンサー
- オフィス系ソフト
- ページング値渡しについて
sea_clear_sky8です。 [環境] OS 98SE PWS [質問内容] ページングの値渡しの際がうまくいきません。 忙しいところすいませんがよろしくお願いします。 次のページっていうのをボタンで作って、次の10件が表示させるように させたいのです。 下記ソースのvar frm = document.GetElemntById("myForm");の部分で オブジェクトでサポートされていないプロパティまたはメソッド ですとエラーがでます。 それからコンパイル後、SQLエラーと表示されます。 このSQLエラーというのは下記ソースのエラー処理で行っている SQLエラーというのが表示されています。 [ソース] [bunkatsu1.html] <html> <body> <form action="bunkatsu1.asp" method="post"> 名前:<input type="text" name="nm"> <input type="hidden" name="page_num" value="0"> <input type="submit" name="exec" value="検索"> </form> </body> </html> [bunkatsu1.asp] <html> <script type="text/javascript"> <!-- function myClick() { var frm = document.GetElemntById("myForm"); frm.action ="bunkatsu1.ASP"; frm.method= "get"; frm.submit(); } // --> </script> <body> <% On Error Resume Next Dim DB,CMD,RS,AllCnt '接続処理 Set DB = Server.CreateObject("ADODB.Connection") DB.Open "mysql" If Err.number <> 0 then Response.Write "接続エラー" Response.End End If ' LIMITを使ったSELECT文を実行 Set CMD = Server.CreateObject("ADODB.Command") CMD.ActiveConnection = DB CMD.CommandText = "select * from test_t " & _ "where name like '%" & Request("nm") & "%' " & _ "order by id " & _ "limit " & Request("page_num")*10 & ",10" Set RS = CMD.Execute If Err.number <> 0 then Response.Write "SQL実行エラー" Response.End End If ' 結果出力 Response.Write "<table border=1>" Response.Write "<tr><td>id</td><td>name</td></tr>" Do Until RS.EOF Response.Write "<tr>" Response.Write "<td>" & RS("id") & "</td>" Response.Write "<td>" & RS("name") & "</td>" Response.Write "</tr>" RS.MoveNext If Err.number <> 0 then Response.Write "次データ取得エラー" Response.End End If Loop Response.Write "</table>" ' 検索条件に該当する全データの件数取得 CMD.CommandText = "select count(*) from test_t " & _ "where name like '%" & Request("nm") & "%' " Set RS = CMD.Execute If Err.number <> 0 then Response.Write "SQL実行エラー" Response.End End If AllCnt=RS(0) ' ページ数表示 if AllCnt>10 then Response.Write Abs(Int(-1*(AllCnt/10))) & "ページ中の" Response.Write Request("page_num")+1 & "ページ目を表示<br>" end if ' 前の10件 if Request("page_num")<>0 then end if ' 次の10件 if ((Request("page_num")+1)*10) < AllCnt then response.write "<form id=""myForm"" method=""post"">" response.write "<input type=""Submit"" value=""次の10件>"" onclick=""myClick();"">" response.write "<input type=""HIDDEN"" name=""num"" value=""&request(""num"")&"">" このTEXTボックスはHIDDENのNUMに何が入っているか確認するための ものです。 response.write "<input type=""text"" name=""test"" value=""&=request(""num"")&"">" response.write "<input type=""HIDDEN"" name=""page_num"" value=""&request(page_num)+1&"">" このTEXTボックスはHIDDENのPAGE_NUMに何が入っているか確認するための ものです。 response.write "<input type=""text"" name=""test1"" value=""request(page_num)+1&"">" response.write "<input type=""submit"" value=""更新"">" response.write "</form>" end if ' レコードセット解放 RS.Close ' 切断 DB.Close ' オブジェクト解放 Set CMD=Nothing Set RS=Nothing Set DB=Nothing %> </body> </html> 忙しいところすいませんが、ご教授願います。 よろしくお願いします。
- ベストアンサー
- Microsoft ASP
- エクセルのマクロで改行挿入(Excel2002)
セルの文字列に全角10文字(半角20文字)ごとに Chr(10) で改行を入れたいです。 全角10文字を越えてはダメ。 選択したセルに動作する物です。 - - - - - Sub 半角20改行_Click() Dim Tmp As Range, Cha As Long, Num As Long Dim STR As String, MdTmp As Variant, flg As Boolean For Each Tmp In Selection For Cha = 1 To Len(Tmp.Value) MdTmp = Mid(Tmp.Value, Cha, 1) If MdTmp = vbLf Then If flg = False Then STR = STR & MdTmp Num = 0 GoTo NextRow End If If LenB(StrConv(MdTmp, 128)) = 1 Then Num = Num + 1 Else Num = Num + 2 End If ' この↓(20)で改行文字数変更 If Num >= 20 - 1 Then STR = STR & MdTmp & vbLf flg = True Num = 0 Else STR = STR & MdTmp flg = False End If NextRow: Next Tmp.Value = STR STR = "" Num = 0 Next For Each Tmp In Selection If Right(Tmp, 1) = Chr(10) Then Tmp.Value = LeftB(Tmp, LenB(Tmp) - 2) End If Next End Sub - - - - - - これだと あいうえおかきくけこさしすせそ ↓↓ あいうえおかきくけこ ←全角10改行 さしすせそ <成功!> あいうえお(かきくけこさし)すせそ ↓↓ あいうえお(かきくけ ←全角9.5改行 こさし)すせそ <成功!> あいうえお(かきくけ)こさしすせそ ↓↓ あいうえお(かきくけ ←全角9.5改行 )こさしすせそ <失敗!!> こうなってほしい↓。 あいうえお(かきくけ) ←全角10改行 こさしすせそ 改行の狭間に全角文字が来た場合は全角9.5文字ごとに改行。 それ以外は全角10文字ごとに改行。 このようにする物を教えてください。
- ベストアンサー
- オフィス系ソフト
- 変数について
質問1:-0.0685274635この数値を扱うのは(計算したりIFで判断するには)どの変数を使えば良いですか? '変数 Variant Double=倍精度浮動 Currency=通貨型 Integer=整数型 Float=浮動小数点型 Long=長整数型 Dim CAL_DA As Integer Range("A1")="-0.0685274635" CAL_DA =Range("a1") 質問2:CAL_DAが-6.85274..になってしまいます。 ただし、必要とするのは-0.068の桁でよいのですが 質問3:CAL_DA =Mid(Range("a1"),1,6)いけますか? 以上ですよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAの変数をエクセルで表示
VBAで Dim num as Integer num = 1 のプログラムがあるとします。 このnumの変数をエクセルのセルで表示させたいのですが可能でしょうか? (例) セル(A,1)に変数numの値を表示させたいのですが、 数式バーに =num と入力してもうまく表示されません。 無理なのでしょうか?
- ベストアンサー
- Visual Basic
- vb.net変数に入れた文字列でメソッドを実行する
こんにちわ!! Vb.netで文字列を格納した変数を使ってメソッドを呼び出したいのですが、可能でしょうか? サンプル 'メインルーチン public sub test() Dim aaa as string ="testfunction" Dim num as integer=0 '↓の様にメソッドを呼び出したい Dim bbb = aaa(num) Msgbox(bbb ,vbinformation) aaa="testfunction2" bbb=aaa(num) Msgbox(bbb,vbinformation) Endsub 'メソッド1 Private function testfunction1(num) Return num+1 End function 'メソッド2 Private function testfunction2(num) Return num+2 End function 上記はあくまでサンプルです。 実際はメソッド数が多く、aaaにいれる名前も別で取得するので、stringになります。 ですので、bbb=aaaはforで回します。 このようなことは可能でしょうか? やりかたもしくは解決方法があればお願いします。
- ベストアンサー
- Microsoft ASP
- Excel : 正規表現を利用して2文字の全角数字を半角数字に変換するには?
アクティブセルの文字を、正規表現を利用して文字の変換をしたいと考えています。 2文字の全角数字を半角数字に変換します。 かつ、3文字以上の全角数字は変換しません。 下記のようにコードを書いたのですが、希望通りに動作してくれません。 どこが悪いのでしょうか? ご指摘いただければ幸いです。 よろしくお願いいたします。 ※参照可能なライブラリファイルにて、「Microosft VBScript Regular Expressions 5.5」に チェックは入れています。 Sub sample() Dim str Dim strPattern As String Dim strReplacement As String str = ActiveCell.Value str = myRegExp(str, "([^0123456789])([0123456789]{2})([^0123456789])", "$1$2$3") ActiveCell.Value = str End Sub Private Function myRegExp(str, strPattern, strReplacement) Dim objRegExp As RegExp Dim test As String Set objRegExp = New RegExp With objRegExp .Pattern = strPattern .IgnoreCase = False .Global = True myRegExp = .Replace(str, "$1" & StrConv("$2", vbNarrow) & "$3") End With Set objRegExp = Nothing End Function
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。 value="<%=date<%=num%>%>"> と記述したら、テキストBOXにはちゃんと<%date2(変数の値)%>と表示されました。 ありがとうございました。