ab.com コミュニティ

'ファイルハンドルから１行読込みます。 '１行の終端はＣＲ+ＬＦまたはＣＲまたはＬＦまたはＥＯＦ。カンマやタブやスペｰスは行の終端としません。 '読込み開始ポインタｰが行の先頭であるかはチェックしません。処理開始時のポインタｰから取得を開始します。 '読込み後のポインタｰは次行の先頭に移動します。 '旧ＢＡＳＩＣでの LineInput# と同等な感じのルｰチンです。 '他に方法があるかも知れませんが、探せなかったので作りました。 '多少は見やすくなったと思いますが、、、自分のスタイルもありますのでこれくらいで勘弁してくださいまし。 'ポインタｰの微妙なズレを補正しました。 'zFihInpL...

ＬＯＦの戻値が、、、
いろんなオープン＆クローズのパターンを調べましたが、
このパターンの戻値が -1 なのはなぜ？

バイト指定を不要にしました。
最終行のＣＲ無しやＬＦ無しやＥＯＦもチェックできてます。
http://www.activebasic.com/forum/viewto ... 9f334cf4e1

ZHDLハンドルからＣＲまたはＬＦまたはＣＲ＋ＬＦを終端とする１行を読込みます｡ カンマやタブやスペｰスは行の終端としません｡ 旧ＢＡＳＩＣでの 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_...

オンライン状態のチェックのプロシージャなんですが、、、 下のコードで一応使えてるんですが、どうしても無茶な使いかたのような気がするので、アドバイスなどありましたらお願い致します。 こちらのネット環境はISDNです（いまだADSL開通せず）。 ''''' OnlineCheck オンライン･チェック Function ZONLCHK() as long Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags as long, dwReserved as long) as Lon...

色を変更するロジックを簡略化してみました。（まだ理解度６８％ですが） .pj を新規作成し、スタティックテキストを１つ作成した状態から :::::::::: の行を追加すると再現できます。スタティックテキストのプロパティの『通知』はチェック有り（&H50000100）にしてください。 InvalidateRect は、既に表示されているものを変更する際に使うようですが、ここでは、色を指定してから表示する手順にしてあります。たぶん、必要処理の後に色を標準（ZRGB=RGB(0,0,0)など）に戻しておいたほうがいいでしょう クリックイベント MainWnd_Static1_Click を...

返信ありがとうございます 日付値から日付文字列を取得する このトピックの本旨を叶えるのは、返信のかたのコードのほうがいいと思います。自作（まっ）は初心者に加え、かすかな記憶をたぐって検証も数年しかしてませんでした。ごめんなさい。 標準で関数が無かった（見つけられなかった）のでプラス１歩で役に立てば、と思った次第です。 プロシージャ　ZSTRRGT　（StringRight 文字列･右） 元々ＵＰしたかったプロシージャ ZDTEVS6 で使ってたので付け加えたのですが、変数の使い方が汚なかったので整理したら ZLEN が重複してました。ごめんなさい。 Right$関数と同等なので、わざわざの必要...

サイトさんよりも、閲覧者やメンバｰに、って事になるかもしれませｎが、 私も細かいアイデアを少しＵＰしましたが、どういうレベルの人が見てるかと思うと、とてもハズかしくて躊躇しながらのＵＰでした。 私も含めて、とっても底辺のところで困ってる（困るかもしれない）人は、たぶん少なくないと思うので、『実践コードモジュール』への投稿は細切れでももっともっとあっていいんじゃないのかなぁ、、、と思います。 検索ができるので、件数が増える事の負担はそんなでもないと思うんですが、、、 件数が増えれば、自分に持ってないアイデアやロジックが発見できるかもしれないし、質問も減るかもしれません。 って訳で、個人的には、ど...

例によって、だからなんなの？かもしれないシリーズです。恐縮です。 旧ＢＡＳＩＣでの LineInput# と同等な感じのルーチンです。探せば他に方法があるかも知れませんが、私は探し切れなかったので自作で普段使用してるものです。 カンマやタブで読込み終了せず、CR , LF , CR+LF までを一行として読み込みます。 ''''' FileInputLineByte ファイル･読込み･一行･最大バイト指定 Function ZFILILB(ZHDL as long, ZBYT as long) as string Dim ZLIN as string , ZCNT as long , ZEOG...

返信ありがとうございました。 はぁぁぁぁぁ～。ようやく。。。 ようやく解決しました。ホントにありがとうございました。 それにしても、最初は簡単に考えてましたが、この１つの事にこんなに日を取られるとは思ってもいませんでした。他に回避方法がなかったので、返信がなかったら、と思うとただただ感謝です。 以下は、同じ問題を抱えている、または抱えるかもしれない人に向けて。です。 pj を新規作成した状態から、:::::::: の行を追加したら、色が変更できました。 :::::::: の文字はあってもなくてもいいと思いますが、消したほうが確かです。 Callback.wbp は勝手に再構築される、という事に...

このトピックも既に確認してました。
が、あえて、というかそれでも、の質問です。
すいませんが、よろしくお汲み取りくださいませ。

スタティックテキストの文字色 質問やその返信やヘルプや検索や、、、色々見ましたが、どうにも、、、 はずかしいのですが、怒らずに教えてくださいまし。 以下は、新規で pj を作って、Static1 を１つ貼り付けただけの状態です。 標準の黒文字 Text1 を、例えば、赤に変えるために必要な最低限の追加コードを教えていただけると助かります。その後のイタズラはまた自分で調べてみます。 EXE呼出し直後やイベントで変えるのではなく、できれば MainWnd.sbp の１つの sub（またはFunction）内で変えたいのですが。。。 test7.wnd -----------------------...

''''' ExeBack ＥＸＥ･バック実行 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 にた...

返信ありがとうございました

GWL_STYLE が変更されているのは、
GetWindowLong で確認しました。

が、？？？
よくわからないのですが、
依然、表示されないのですが。。。

''''' EucJis ＥＵＣ･ＳＪＩＳ変換 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...