以下の内容をVBの掲示板に書き込みました。
できたら、VBのページに書き込みしてください。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=107235

*****ここから*****
田吾作7です。

僕の書き込みはよく削除されています。
その削除される内容は、サンプルを自分のホームページアリアにアップして、参考URLにそのアドレスを記したものです。それは削除されるべきなのでしょうか?

ホームページのアドレスのトップを参考URLに載せているわけではなく、VBやVBAのサンプル集のアドレスを載せているのです。そこにはTOPページのアドレスを記しておりません。
gooに質問をしてくる人のほとんどは、経験の少ない人たちです。たぶん、VB専門の掲示板に書き込みをしたら、いろいろうるさく言われたりもするでしょう。
でもその人たちは質問をしたいのです。そして、より参考になる答えが欲しいのではないでしょうか?
ぼくはVBを多くのサンプル集で学びました。たくさんのコードを見るのは一番の勉強方だと思っています。ただ、コードを抜粋されて記入されても、初期段階では全然理解できなかったと思います。ましてやここの掲示板は、スペース文字を詰めてしまって、コードを書いても、非常に見づらい!
プログラムの部分的な質問ならまだしも、「こんなことがしたい」という質問なら、全体的な流れ、そしてイメージが必要になります。

もう一度言います。
サンプルを自分のホームページアリアにアップしたものです。それは削除されるべきなのでしょうか?
参考URLが他人のHPならOKで、自分のHPならダメなのですか?

たぶんこの書き込みも削除されるとは思いますが、何のためにこのカテゴリがあるのか、みなさんにも意見を聞きたい!
(賛成・反対・うざい 何でもOK・・・どうせ削除されるし・・・)
*****ここまで*****

このQ&Aに関連する最新のQ&A

A 回答 (1件)

管理者より:


同等の質問があるのでそちらをご参照下さい

参考URL:http://www.okweb.ne.jp/kotaeru.php3?q=107235
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QVBで簡単なOpenGLのサンプルはありますか?

VB6を使って100行以内で円錐を描くプログラムを作りたいのですが
OpenGLは良くわかっていないので、簡単なサンプル等を探しています。
フレームワークとソリッドモデルの両方が表示できるものが欲しいです。

Aベストアンサー

Programming OpenGL with Visual Basic
というページですかね(参考URL)。
英語のページですが,サンプルとしては何の問題もないと思います。
円錐は auxSolidCone とか auxWireCone,
glut ライブラリを使えば glutSolidCone とか glutWireCone
としてやればできるはずです。

参考URL:http://home.pacific.net.hk/~edx/

QTIFF(G4)ファイルの参考URL

TIFFの画像をコードで回転を掛けて保存したいんですが
画像内部(Tag)を詳しく説明されているサイトをご存知ないでしょうか?
サイズ,解像度等のTagの読み取りはできるんですが
画像データの読み取りがまったく解りません。
TIFFのG4限定でどなたかお願いします。

Aベストアンサー

やっぱりlibtiffあたりから始めるのがいいんじゃないでしょうか。

参考URL:http://www.libtiff.org/

QVB.NETの環境と参考書について

普遍的な言語を使ったことのないほぼ初心者です。
(ある会社が作った特定の言語しか使えません・・・。)

VB.NETを勉強するように言われたのですが、VB自体の経験も全くなく、「VB.NET」=「Visual Basic .NET」ということしか分かりません。

まず、環境として何らかのバージョンのVBをインストールする必要があるのでしょうか?
それとも、全く別の代物がいるのでしょうか?
また、「.NET Framework」もインストールしなければいけないのでしょうか?「.NET Framework」にVB.NETのコンパイラも付属しているありましたが、よく分かりません。

あと、VB.NETを勉強するのに、良い参考書があれば教えてください。(オブジェクト指向などもあまり分かってません。)

本当に何も分からないので、とぼけた質問かと思いますが、どうぞよろしくお願い致します。

Aベストアンサー

こんにちは、じゃんぬねっと です。

まず、当たり前ですが、VB.NET をインストールしなければなりません。
この時、.NET Framework もインストールされます。
また、VB も知らないから VB.NET ができないというとそうでもないです。
Java や C++ などのオブジェクト指向言語を知っている方の方が、
ただの、VB プログラマ (※ただし、質が悪い人を指します) よりは遥かに移行しやすいです。

書籍についてですが、いつもこういう質問に対して私が出す答えはいつも同じです。
 「自分の足で書店に行きましょう」
 「色々立ち読みして、自分に合った本を購入しましょう」
それだけでしょう。
お勧めなんてものは人それぞれなので、責任を持ってお勧めすることができません。

オブジェクト指向についてですが、これもいつも思うんですが、
ここで、さらっと書けてしまうような概念ではありません。
が、日常生活に置き換えて、どうすれば使いやすくなるのか、
どうすれば "必要な機能だけ" 表に出すことができるか、
などを常に意識することから始めた方が良いでしょう。
たいてい、オブジェクト指向うんぬんの前に構造化言語すらまともにできない人が多い世の中ですから。

こんにちは、じゃんぬねっと です。

まず、当たり前ですが、VB.NET をインストールしなければなりません。
この時、.NET Framework もインストールされます。
また、VB も知らないから VB.NET ができないというとそうでもないです。
Java や C++ などのオブジェクト指向言語を知っている方の方が、
ただの、VB プログラマ (※ただし、質が悪い人を指します) よりは遥かに移行しやすいです。

書籍についてですが、いつもこういう質問に対して私が出す答えはいつも同じです。
 「自分の足で書店に行きま...続きを読む

Q秀丸で正規表現を使ってテストコードを削除

途中に挟んだ、trace文を全部、削除しようと思ったんですが、
うまく削除できません。
以下のようなものを削除したい場合、
どういう風に記述すればいいのでしょうか?

trace ("てすと")
trace ("scrnMcList[0]="+scrnMcList[0])

たとえば、trace (*)とやった場合、
|の前後に文字が無いか、または+*?の直前に文字がありません、
というエラーメッセージがでてしまいます。

Aベストアンサー

"trace"という文字列で始まるステートメント("trace"の前には、タブか空白のみを許す)を、行ごと削除したいのであれば、以下で良いです。

^[\t ]*trace.*\n

ポイントは、"*"の直前に、繰り返し対象の1文字を指定する必要があるということです。
".*"とすることで、「任意の文字(要するに何でもOK)の0個以上の繰り返し」を表現できます。

Qvbsで最後の行を削除する

csvファイル(test.csv)からフラグが1のものを抽出するのですが
最終行に改行がはってしまうので、最終行を削除してcsvファイルを保存したいのですが、
うまくいきません。ご教授ください。

Dim objADO
Dim i
Dim wsql
Dim rs
Dim wHeader
Dim wData
Dim objFSO
Dim objFile

Set objADO = CreateObject('ADODb.connection')

objADO.Open "Driver={Microsoft Text Driver (*.txt;*csv)};"&_
"DBQ=C:\test;"&_
"ReadOnly=1"
'抽出条件
wsql="select * from test.csv where フラグ='1'"

Set rs =objADO.Execute(Wsql)

'ヘッダ部
wHeader='ID,商品名,商品番号,フラグ"

'データ部
wData=""
Do While rs.EOF=False
For i = 0 to rs.fields.count - 1
if i = (rs.fields.count -1) then
wData = wData & chr(34) & rs.Fields.ltem(i) & chr(34) & chr(13)
else
wData = wData & chr(34) & rs.Fields.ltem(i) & chr(34) & ","

end if
next
rs.MoveNext
loop

'最終改行削除?
rs = Left(wData,Len(wData) - Len(chr(13)))

'ファイル出力
set objFSO = createObject("Scripting.FileSystemObject")
set objFile = objFSO.OpentextFile("c:\test\test.csv",2, true)

if err.Number = 0 then
objFile.WriteLine(wHeader)
objFile.WriteLine(wData)
objFile.close
end if

set objFile = Nothing
set objFSO = Nothing
set objADO = Nothing

******************************************
ID,商品名,商品番号,フラグ
100,パソコン,100-12,1
200,ペン,200-11,1
***ここの改行を削除する*****
〔EOF〕

csvファイル(test.csv)からフラグが1のものを抽出するのですが
最終行に改行がはってしまうので、最終行を削除してcsvファイルを保存したいのですが、
うまくいきません。ご教授ください。

Dim objADO
Dim i
Dim wsql
Dim rs
Dim wHeader
Dim wData
Dim objFSO
Dim objFile

Set objADO = CreateObject('ADODb.connection')

objADO.Open "Driver={Microsoft Text Driver (*.txt;*csv)};"&_
"DBQ=C:\test;"&_
"ReadOnly=1"
'抽出条件
wsql="select * fr...続きを読む

Aベストアンサー

'最終改行削除?
wData = Left(wData,Len(wData) - 1)

ではないかな?


人気Q&Aランキング

おすすめ情報