検索結果 18 件
- 2009年2月13日(金) 21:50
- フォーラム: 実践コードモジュール
- トピック: ファイル・ハンドル・読込み・行
- 返信数: 2
- 閲覧数: 18051
再UPです。
'ファイルハンドルから1行読込みます。 '1行の終端はCR+LFまたはCRまたはLFまたはEOF。カンマやタブやスペースは行の終端としません。 '読込み開始ポインターが行の先頭であるかはチェックしません。処理開始時のポインターから取得を開始します。 '読込み後のポインターは次行の先頭に移動します。 '旧BASICでの LineInput# と同等な感じのルーチンです。 '他に方法があるかも知れませんが、探せなかったので作りました。 '多少は見やすくなったと思いますが、、、自分のスタイルもありますのでこれくらいで勘弁してくださいまし。 'ポインターの微妙なズレを補正しました。 'zFihInpL...
- 2008年4月25日(金) 00:19
- フォーラム: プログラミング質問板
- トピック: LOFの戻値 (LOF,Lof,lof)
- 返信数: 1
- 閲覧数: 2414
LOFの戻値 (LOF,Lof,lof)
LOFの戻値が、、、
いろんなオープン&クローズのパターンを調べましたが、
このパターンの戻値が -1 なのはなぜ?
いろんなオープン&クローズのパターンを調べましたが、
このパターンの戻値が -1 なのはなぜ?
コード: 全て選択
#N88BASIC
Open "test1" for output as #1
Close #1
Open "test1" for input as #1
Print Lof(1)
'Close
'End
- 2008年4月11日(金) 14:14
- フォーラム: 実践コードモジュール
- トピック: ファイル・読込み・一行・最大バイト指定
- 返信数: 1
- 閲覧数: 14562
- 2008年4月11日(金) 14:02
- フォーラム: 実践コードモジュール
- トピック: ファイル・ハンドル・読込み・行
- 返信数: 2
- 閲覧数: 18051
ファイル・ハンドル・読込み・行
ZHDLハンドルからCRまたはLFまたはCR+LFを終端とする1行を読込みます。 カンマやタブやスペースは行の終端としません。 旧BASICでの LineInput# と同等な感じのルーチンです。 ''''' FileHandleInputLine ファイル・ハンドル・読込み・行 Function ZFIHILL(ZHDL as Long) as String Dim ZADD as String , ZBBB[1] as Byte , ZGET as Dword , ZRET as Long , Z1 as Long ZHDL=ZHDL-1 : SetFilePointer(_System_...
- 2008年3月11日(火) 16:47
- フォーラム: プログラミング質問板
- トピック: オンライン状態のチェック
- 返信数: 1
- 閲覧数: 2117
オンライン状態のチェック
オンライン状態のチェックのプロシージャなんですが、、、 下のコードで一応使えてるんですが、どうしても無茶な使いかたのような気がするので、アドバイスなどありましたらお願い致します。 こちらのネット環境はISDNです(いまだADSL開通せず)。 ''''' OnlineCheck オンライン・チェック Function ZONLCHK() as long Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags as long, dwReserved as long) as Lon...
- 2008年3月09日(日) 16:44
- フォーラム: プログラミング質問板
- トピック: スタティックテキストの文字色
- 返信数: 6
- 閲覧数: 4981
色を変更するロジックを簡略化してみました
色を変更するロジックを簡略化してみました。(まだ理解度68%ですが) .pj を新規作成し、スタティックテキストを1つ作成した状態から :::::::::: の行を追加すると再現できます。スタティックテキストのプロパティの『通知』はチェック有り(&H50000100)にしてください。 InvalidateRect は、既に表示されているものを変更する際に使うようですが、ここでは、色を指定してから表示する手順にしてあります。たぶん、必要処理の後に色を標準(ZRGB=RGB(0,0,0)など)に戻しておいたほうがいいでしょう クリックイベント MainWnd_Static1_Click を...
- 2008年3月05日(水) 21:19
- フォーラム: 実践コードモジュール
- トピック: 日付・日付値・日付文字列取得・6桁
- 返信数: 2
- 閲覧数: 15350
返信のかたのコードのほうがいいと思います
返信ありがとうございます 日付値から日付文字列を取得する このトピックの本旨を叶えるのは、返信のかたのコードのほうがいいと思います。自作(まっ)は初心者に加え、かすかな記憶をたぐって検証も数年しかしてませんでした。ごめんなさい。 標準で関数が無かった(見つけられなかった)のでプラス1歩で役に立てば、と思った次第です。 プロシージャ ZSTRRGT (StringRight 文字列・右) 元々UPしたかったプロシージャ ZDTEVS6 で使ってたので付け加えたのですが、変数の使い方が汚なかったので整理したら ZLEN が重複してました。ごめんなさい。 Right$関数と同等なので、わざわざの必要...
- 2008年2月28日(木) 22:29
- フォーラム: 仕様提案
- トピック: もっともっと投稿 実践コードモジュール
- 返信数: 1
- 閲覧数: 12562
もっともっと投稿 実践コードモジュール
サイトさんよりも、閲覧者やメンバーに、って事になるかもしれませnが、 私も細かいアイデアを少しUPしましたが、どういうレベルの人が見てるかと思うと、とてもハズかしくて躊躇しながらのUPでした。 私も含めて、とっても底辺のところで困ってる(困るかもしれない)人は、たぶん少なくないと思うので、『実践コードモジュール』への投稿は細切れでももっともっとあっていいんじゃないのかなぁ、、、と思います。 検索ができるので、件数が増える事の負担はそんなでもないと思うんですが、、、 件数が増えれば、自分に持ってないアイデアやロジックが発見できるかもしれないし、質問も減るかもしれません。 って訳で、個人的には、ど...
- 2008年2月26日(火) 03:09
- フォーラム: 実践コードモジュール
- トピック: ファイル・読込み・一行・最大バイト指定
- 返信数: 1
- 閲覧数: 14562
ファイル・読込み・一行・最大バイト指定
例によって、だからなんなの?かもしれないシリーズです。恐縮です。 旧BASICでの LineInput# と同等な感じのルーチンです。探せば他に方法があるかも知れませんが、私は探し切れなかったので自作で普段使用してるものです。 カンマやタブで読込み終了せず、CR , LF , CR+LF までを一行として読み込みます。 ''''' FileInputLineByte ファイル・読込み・一行・最大バイト指定 Function ZFILILB(ZHDL as long, ZBYT as long) as string Dim ZLIN as string , ZCNT as long , ZEOG...
- 2008年2月24日(日) 00:24
- フォーラム: プログラミング質問板
- トピック: スタティックテキストの文字色
- 返信数: 6
- 閲覧数: 4981
ありがとうございました
返信ありがとうございました。 はぁぁぁぁぁ~。ようやく。。。 ようやく解決しました。ホントにありがとうございました。 それにしても、最初は簡単に考えてましたが、この1つの事にこんなに日を取られるとは思ってもいませんでした。他に回避方法がなかったので、返信がなかったら、と思うとただただ感謝です。 以下は、同じ問題を抱えている、または抱えるかもしれない人に向けて。です。 pj を新規作成した状態から、:::::::: の行を追加したら、色が変更できました。 :::::::: の文字はあってもなくてもいいと思いますが、消したほうが確かです。 Callback.wbp は勝手に再構築される、という事に...
- 2008年2月20日(水) 21:20
- フォーラム: プログラミング質問板
- トピック: スタティックテキストの文字色
- 返信数: 6
- 閲覧数: 4981
確認してましたが
このトピックも既に確認してました。
が、あえて、というかそれでも、の質問です。
すいませんが、よろしくお汲み取りくださいませ。
が、あえて、というかそれでも、の質問です。
すいませんが、よろしくお汲み取りくださいませ。
- 2008年2月20日(水) 19:40
- フォーラム: プログラミング質問板
- トピック: スタティックテキストの文字色
- 返信数: 6
- 閲覧数: 4981
スタティックテキストの文字色
スタティックテキストの文字色 質問やその返信やヘルプや検索や、、、色々見ましたが、どうにも、、、 はずかしいのですが、怒らずに教えてくださいまし。 以下は、新規で pj を作って、Static1 を1つ貼り付けただけの状態です。 標準の黒文字 Text1 を、例えば、赤に変えるために必要な最低限の追加コードを教えていただけると助かります。その後のイタズラはまた自分で調べてみます。 EXE呼出し直後やイベントで変えるのではなく、できれば MainWnd.sbp の1つの sub(またはFunction)内で変えたいのですが。。。 test7.wnd -----------------------...
- 2008年2月19日(火) 06:20
- フォーラム: 実践コードモジュール
- トピック: EXE・バック実行
- 返信数: 1
- 閲覧数: 14368
EXE・バック実行
''''' ExeBack EXE・バック実行 Sub ZEXEBAK(ZEXE as string, ZPAR as string) ShellExecute(0,"open",ZEXE,ZPAR,0,SW_HIDE) End Sub 外部プログラムをウィンドウ非表示で実行 引数 ZEXE 外部プログラム名 パス環境変数の有効無効は確認していません。心配ならフルパスで。 引数 ZPAR 外部プログラムに渡すパラメータ。無い場合はNULLでもいいんじゃない。 だから何? と思う人が多いと思いますが、Exec はすぐ判っても、ShellExecute や SW_HIDE にた...
- 2008年2月18日(月) 15:59
- フォーラム: プログラミング質問板
- トピック: スタティックテキストの右詰めの可視
- 返信数: 2
- 閲覧数: 3279
返信ありがとうございました
返信ありがとうございました
GWL_STYLE が変更されているのは、
GetWindowLong で確認しました。
が、???
よくわからないのですが、
依然、表示されないのですが。。。
GWL_STYLE が変更されているのは、
GetWindowLong で確認しました。
が、???
よくわからないのですが、
依然、表示されないのですが。。。
- 2008年2月18日(月) 02:24
- フォーラム: 実践コードモジュール
- トピック: EUC・SJIS変換
- 返信数: 0
- 閲覧数: 15175
EUC・SJIS変換
''''' EucJis EUC・SJIS変換 Function ZEUCJIS(ZSTR as string) as string Dim ZLEN as long , ZCNT as long , ZCHR as string , ZEUC as long , ZHLF as long , ZMOD as long ZEUCJIS="" : ZLEN=Len(ZSTR) For ZCNT=1 to ZLEN : ZCHR=ZSTRMID(ZSTR,ZCNT,1) : ZEUC=Asc(ZCHR) Do : If ZEUC=142 then Exit Do else If...