ファイル入門

タグの編集
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 11:12:47
ファイル勉強暦2日の緋竜です。
メモ鳥。ww
Option Strict On
Public Class Form1
    'VisualBasic2008 
    'ファイル入門 
    'このプログラムは製作者しか使用できません 
    '参照のみ 
    '習得情報 
    'VBヘルプ(H)⇒カテゴリから検索⇒VisualBasic言語の習得⇒フォルダー内のファイル名の取得~テキストファイルの削除までのレッスン。 
    'Option Strict Onの場合(selectedItem.Todtringを入れてください) 

    Dim FavoritePictures As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\FavoritePictures.txt"
    Private Sub LoadPictures_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles LoadPictures.Click
        Me.ListBox1.Items.Clear()
        Me.PictureBox1.ImageLocation = ""
        For Each foundImage As String In _
        My.Computer.FileSystem.GetFiles( _
        My.Computer.FileSystem.SpecialDirectories.MyPictures, _
            FileIO.SearchOption.SearchTopLevelOnly, "*.gif*""*.jpg*""*.png*")
            Me.ListBox1.Items.Add(foundImage)
        Next
        'ピクチャファルダにイメージがない場合は、ユーザーにMsgBoxを表示する 
        If Me.ListBox1.Items.Count < 1 Then
            MsgBox("JPG & GIF ファイルがフォルダにありません")
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As ObjectByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Me.PictureBox1.ImageLocation = Me.ListBox1.SelectedItem.ToString
    End Sub
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles FavoritesAdd.Click
        If PictureBox1.ImageLocation <> "" Then
            My.Computer.FileSystem.WriteAllText(FavoritePictures, Me.ListBox1.SelectedItem.ToString & ","True)
        End If
    End Sub

    Private Sub LoadFavorites_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles LoadFavorites.Click
        Me.ListBox1.Items.Clear()
        Me.PictureBox1.ImageLocation = ""
        If My.Computer.FileSystem.FileExists(FavoritePictures) Then
            Dim Myreder As Microsoft.VisualBasic.FileIO.TextFieldParser
            Myreder = My.Computer.FileSystem.OpenTextFieldParser(FavoritePictures)
            Myreder.SetDelimiters(",")
            Dim textFields As String() = Myreder.ReadFields()
            For Each currentField As String In textFields
                If My.Computer.FileSystem.FileExists(currentField) Then
                    Me.ListBox1.Items.Add(currentField)
                End If
            Next
            Myreder.Close()
        Else
            MsgBox("ファイルがありません")
        End If
    End Sub

    Private Sub DeleteFavorites_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles DeleteFavorites.Click
        If My.Computer.FileSystem.FileExists(FavoritePictures) Then
            If MsgBox("ファイルを削除します" & "消去", MsgBoxStyle.YesNo, "Delete Favorite Pictures") = MsgBoxResult.Yes Then
                Me.ListBox1.Items.Clear()
                Me.PictureBox1.ImageLocation = ""
                My.Computer.FileSystem.DeleteFile(FavoritePictures)
            End If
        Else
            MsgBox("キャンセル")
        End If
    End Sub
End Class

メモ。
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 11:18:38
ヘルプは古い。ニセ物?(VisualBasic)
(^^)
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 12:06:57
Option Strict On
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
        Using writer As New streamWriter("C:\Users\Reopopopopkpppopopop\Documents\Visual Studio 2008\Projects\WindowsApplication22\WindowsApplication22\TextFile1.txt")
            writer.Write("test")
        End Using
    End Sub
End Class

質問
ちょっと実験してるんだけど、
テキストをフォームに追加
このコードを実行すると
こんなメッセージが出るんですけど!!(^怒^)
「ソースエディター以外で変更されました」
これは、どおゆう事でしか?
わかる人が居たら説明をお願いします。
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 13:33:54
閑古化してます。ココ。
拡張子を >.CSVにしたら、メッセージが出なくなった。あはは。
いろいろアレな感じ。www
報告終わり。
投稿者   (社会人) 投稿日時 2008/11/5 15:44:45
> ヘルプが古い
もうちょっと具体的に書いていただかないと返答のしようがありません。
何処の、何についてのコードが、どう古いのか?

>ソースエディター以外で変更されました。
メッセージのまんまです。
緋竜さんのプログラムでファイルを書き換えてますよね?
それは、Visual Studioからみたら知らない間に書き変わったということになるので、再読み込みするかどうかを聞いてるだけです。

もうちょっと質問するなら具体的にして頂かないと、ただの緋竜さんの雑記帳になります。
そういう内容でしたらBlogを開設して、そちらに書くほうがメモとしても使いやすいものになると思います。
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 16:04:55
まぁ、そんな話より、逮捕されないようにな。
投稿者 うたひこ  (社会人) 投稿日時 2008/11/5 18:25:06
こんにちは。



>まぁ、そんな話より、逮捕されないようにな。

自分に都合の悪いことがあると、
「詐欺だ」
「警察だ」
とかいって
なんでも他人のせいにするね、君は。

全部、君のせいだよ。

「なんでも他人のせいにする人」を一般的に「クズ」って呼ぶ。
なんでも他人のせいにするのはよくないからやめなさい。



「そんな話」をしなきゃならないから
周りの人間は「そんな話」をしてるんだよ。



君は「自分の都合しか考えられないクズ」。

「他人の都合」「他人の気持ち」も少しは考えなさい。

言われるのがいやだったら
言われないように行動しなさい。
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 21:15:18
うた>知ったふうなことを書くなよ。
マイクロソフト刑事版をみてみろ。
10万人の初心者が居るのに、発言者は少ない。
質問も2005とかv6。w
日本の人工は何人ですか?100人の村ですか?www
コードは、サービス & 信頼度Upのために書いてるんだよ。
馬の発言では、誰も信用しないからな。
では。
投稿者 うたひこ  (社会人) 投稿日時 2008/11/5 21:22:12
>うた>知ったふうなことを書くなよ。
>マイクロソフト刑事版をみてみろ。
>10万人の初心者が居るのに、発言者は少ない。
>質問も2005とかv6。w
>日本の人工は何人ですか?100人の村ですか?www
>コードは、サービス & 信頼度Upのために書いてるんだよ。
>馬の発言では、誰も信用しないからな。
>では。

要は
「自分は悪くない、社会が悪いんだ!
 お前が悪いんだ!」
ってことでしょ。

それがクズの思考なんだよ。
「負け犬の思考回路」なんだよ。
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 21:26:29
クズとゆう表現自体が、道徳0の証拠だろう。
うた>詐欺団に関与してるんじゃないのか?
隆司(53才)とか、サラリーマン●氏みたいになるぞ。
最近、サクサク逮捕されてるからな、せいぜい注意しとけ。
投稿者 nightmare  (社会人) 投稿日時 2008/11/5 21:33:41
レス失礼します。
とても言いたくなったので・・・


 桜さんも言っていますが、ここは緋竜さんの雑記帳ではないので、
ブログを立ち上げるなどしてそういう文句やソースを書いて回答して
もらったほうがよろしいのではないのでしょうか。
なんだか私(初心者)から見てもただ初心者を混乱させているようにしか見えません。
ご自分(緋竜さん)のソースが「完成しているものです。」(前のものでしたか)
と宣言しているのにかかわらず途中で「未完製品です。」と言い換え
そのコードは「初心者にどうぞ」などかかれていてはどちらが正しいのかがわかりませんでした。
結局、最終がどうなったのかコードも書かれていませんし・・・(たしか)


 他人から見ると緋竜さんは荒らしにしか見えません。ここで誰かが
緋竜さんが勝手に掲示板をブログみたいに使っている。私もやっていいのかな?
と解釈される方もいらしゃるかもしれません。また緋竜さんが
荒らしで掲示板を雑記長のように使っている。こんなこと許されるの?
と管理人さん通報されれば、緋竜さんの投稿されたものが消される+
ここに通えなくなりますよ(ここではないとは思いますが)。
「ここで僕は小学生だから。」とか「どこの馬の骨(私)ともわからんやつのことなんて無視。」
とか「逮捕されないように。」とか言われるとそれはそれで文句がつくでしょうし・・・(私が一番に文句いいそうだな(笑))
小学生だからやっていいとは通じません。ここは間違ってもネットの中。
ネットでなくても、常識あることをしなくてはいけませんが・・・


長くなりましたが、言いたいことを最後に並べると

・ご自分でブログ立ち上げたら
・「小学生だから」とか言い訳するのは見苦しい(だから何って感じですし)
・ネチケット・常識を勉強してから投稿しろよ
・逮捕とかwわかっていってるのかw

ですね。言葉遣いが悪い & 失礼があると思いますが、これは私がずっと
ここで見ていて思ったことですから謝りません。
ここはやさしい方ばかりですから、緋竜さんに付き合っていますが違う掲示板だと投稿を消されているか
規制されます。やさしく言っている間はかわいらしい方だと思って下さい。
少しでも理解ある方であってほしいです。。
投稿者 うたひこ  (社会人) 投稿日時 2008/11/5 21:34:29
>クズとゆう表現自体が、道徳0の証拠だろう。
>うた>詐欺団に関与してるんじゃないのか?
>隆司(53才)とか、サラリーマン●氏みたいになるぞ。
>最近、サクサク逮捕されてるからな、せいぜい注意しとけ。

ほらまたおれのせいにした。



成長しないな、君は。

そこまでの人間、その程度の人間、それで終わりの人間。
それが君の限界。

きみはよくがんばった。
投稿者   (社会人) 投稿日時 2008/11/5 22:01:18
雑記帳でも何でも良いが。その辺は管理人が判断することだし。



ただ、貶し合いは他所でやれ。
投稿者 一応  (社会人) 投稿日時 2008/11/5 22:12:17
一応、連絡しておきましょう。
ここで、ぼく、れお、reo、現在は緋竜となのっている投稿者は大帝というらしい
有名な荒らしでMSのサイトを始めとして、よその板では、荒らしと認定されて、
ログを管理者から頻繁に消されていたようですよ。
今はここがターゲットになっているようです。
荒らしの書き込みは無視するのが一番!
投稿者 うたひこ  (社会人) 投稿日時 2008/11/5 22:20:12
>ただ、貶し合いは他所でやれ。

けなしあいと見られてしまいますか。

どうすればいいのか…。

言語能力が低い(自覚すらある)緋竜くんへの配慮のつもりなんですが、
正直、ぼくにはどうすりゃいいかわからないです。

(彼がここに来たとき
「すぐに荒らしと決め付けるのはどうか?」
と言い出し、ここにとどまらせるよう皆さんに投げかけた責任に対しての
「どうすればいいか?」です)

「荒らし書き込みは消す」がこの掲示板の掟。
消されてないことが、
「荒らしではない」という無言のメッセージでしょう。

投稿者 通りすがり  (小学生) 投稿日時 2008/11/5 22:34:50
>うたひこ

るきお氏(管理人)は、書き込みをスルー(無視・放置)して下さいと前に書いてたと思うけど?
それがここの掲示板のルールになったと思いますが?

だからこそるきお氏は何も書かないんでしょ。

勝手に自分の都合のいいように掻い摘まない様に。
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 23:02:10
詐欺団の集まりか?www
隆司(逮捕済み)とか、藤本(逮捕済み)
とか、森田教授(逮捕済み)とか、小室(詐欺逮捕済み)
こうゆう連中の悪口は1言もないよな。
隆司の仲間か?
兵庫県警に郵送しといてやるよ。
投稿者 nightmare  (社会人) 投稿日時 2008/11/5 23:09:02
レス失礼します。

>貶し合いは他所でやれ。
nさんが言われている通りですね。失礼しました。
これは私も悪いですね。

>荒らしの書き込みは無視するのが一番!
一応さんが言われている通り、無視が一番なんですが
どうも気になってしまい。すいませんでした。

マナーをどうとか言っている自分が一番マナー違反でしたね(苦笑)
それにこの表題をかけ離れた言い文でした。

あらためてすいませんでした。
投稿者 緋竜  (小学生) 投稿日時 2008/11/5 23:30:35
まぁ、無関係なら、関係ない話だ。
郵送内容
詐欺内容
VB2005 & 2008 のレプリカ製品の販売
オンライン詐欺
google偽者検索バー
ヤフー偽サイト運営
関与者
隆司の仲間
{わんくま同盟サギ団}
顔写真等を同封する。
無罪なら、気にすることはない。
以上。
投稿者 うたひこ  (社会人) 投稿日時 2008/11/6 05:32:04
>顔写真等を同封する。

お疲れ。



>通りすがりさん

>>うたひこ

あなたに呼び捨てにされる筋合いはございませんが。

ともあれ

>るきお氏(管理人)は、書き込みをスルー(無視・放置)して下さいと前
に書いてたと思うけど?

は事実ですので僕に非がありますね、失礼しました。
しかし、

>だからこそるきお氏は何も書かないんでしょ。

それは勝手なご自身の都合のいい解釈でしょう。



その解釈がまかり通るとすれば、
「荒らし」に対しての管理人様の無視の理由が
ルールに則るものであったとしても、
そうでない者のやり取りに対して一切関知しないことをもが
「他の全ての書き込みも荒らし」
との管理人様のご判断に相当するということです。

全てが荒らしであるなら、全ての人は全ての書き込みをスルーしなければなりません。
だとすれば、それは掲示板として成立しません。

その解釈が適切だとは考えにくいですよね。



ま、呼び捨てにされるとか、
そういった侮辱を受けて黙ってられる性質ではないので言い返したまで。
なので、ルールについての話をこれ以上継続する意思はないです。

では失礼します。
投稿者 おばま  (社会人) 投稿日時 2008/11/6 05:44:24
緋竜くんは、上記のようなレスを見て楽しんでるんだよ。みんなは緋竜くんの思うつぼ
にはまっていいるんじゃないのか?緋竜くんは「寂びしんぼう」なんですよ。
無人島では絶対に一人では生きていけないね。
だから、みんなでスルーしまようね。
投稿者 緋竜  (小学生) 投稿日時 2008/11/6 05:47:40
ぷっ、サギに関しては、うたは無関係のようだな。(苦笑)
管理を放棄?
前に書いたろ、
韓国の掲示板だ。
言論の自由を重んじる国
と書いたろ。
削除できないじゃないのかい?
日本とは、根本的に法律(考え方)が違うからな。
まぁ、こんな役に立たんところを利用するまでもない。
自力でOK。桶www
投稿者 緋竜  (小学生) 投稿日時 2008/11/6 06:40:07
追加
おばま>せいぜい、刑務所でコミュニケーションしてろ。(堀のなか)
投稿者   (社会人) 投稿日時 2008/11/7 05:18:54
緋竜のアホはひっこめ。
投稿者 緋竜M  (小学生) 投稿日時 2008/11/7 05:25:23
みなさん私が悪うございました。お許し下さい。
投稿者   (社会人) 投稿日時 2008/11/7 06:01:17
緋竜はたらけ、働いて働いて、苦しいだとか、嫌だとか思ったら、そのときは
○ね。おまえを○ショ暮らしさせるために母ちゃんはお前を育てたんじゃねえ。
人様のためになるソフトをいっぺいつくって母ちゃんを喜ばせてくれ
投稿者 緋竜  (小学生) 投稿日時 2008/11/7 16:11:31
確かに緋竜は馬ですねwww
掲示板をすりかえたか?
まぁ、隆司(逮捕済み)の仲間だろう。

皇帝 屁 以下でもやってろwww