[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]

[機能] HttpWebRequestで、WebページにPOST処理を行う関数。 [ソース] Imports System.IO ----------------------------- Function MyPOST(ByVal url As String, ByVal postdata As String, ByVal str_encode As String) As String On Error GoTo Label_err If url.Length
vb2008スクリプトメモ | 2010.02.09 Tue 11:18
[機能] HttpWebRequestで、Webページの内容を読み込む。 [ソース] Imports System.IO ---------------------------- Function myGET(ByVal url As String, ByVal str_encode As String, ByVal timewaite As Long) As String On Error GoTo Label_err If url.Length
vb2008スクリプトメモ | 2010.02.09 Tue 11:09
[機能] CountやMaxやSumなどのサマリー関数を使ったクエリー [ソース] conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbpath & ";" conn.Open() cmd = conn.CreateCommand cmd.CommandTimeout = 15 SQL = "SELECT subword, Count(subword) AS cnt FROM myresult GROUP BY subword ORDER BY Count(subword) DESC;" cmd.CommandText = SQL reader = cmd.ExecuteReader() While reader.Read() xlsheet.Cells(i, 1).value = CStr(reader("subword")) xlsheet.Cells(i, 2)....
vb2008スクリプトメモ | 2010.02.09 Tue 11:02
[機能] ディレクトリ中のファイル一覧の取得してDataGridViewに表示するサンプルスクリプト [ソース] Imports System.IO --------------------------------------------------------------- 'mdbファイルの一覧を生成表示 Dim mypath As String = System.IO.Directory.GetCurrentDirectory() Dim mdblist As String() mdblist = System.IO.Directory.GetFiles(mypath, "*.mdb") For i = 0 To mdblist.Length - 1 Me.DataGridView1.Rows.Add() Me.DataGridView1(1, i + 1).Value = mdblist(i) Me.Data...
vb2008スクリプトメモ | 2010.02.09 Tue 10:55
[機能] パスからディレクトリ名だけを取り出す [ソース] Function ディレクトリ名(ByVal temp As String) As String Dim i As Integer i = InStrRev(temp, "¥") If i > 0 Then Return Microsoft.VisualBasic.Left(temp, i) Else Return "" End If End Function Function ファイル名(ByVal temp As String) As VariantType Dim i As Integer i = InStrRev(temp, "¥") If i > 0 Then Return Microsoft.VisualBasic.Right(temp, Len(temp) - i) Else ...
vb2008スクリプトメモ | 2010.02.09 Tue 10:44
[機能] multilineのテキストボックスの内容をリストに取り込むサンプルスクリプト [ソース] Public keylist As String() ---------------------------------------------- Dim tempstring As String = Form1.textboxキーワードリスト.Text If tempstring.Length 0 Then rc = rc + 1 Next [メモ] 複数行入力できるテキストボックスに入れた文字列を1つ1つ読み込んで処理を行いたかったので こういうコードを書いた。改行の判定がちょっといやらしくて、上記のようにSplitには、vbcrを指定して、 余分な...
vb2008スクリプトメモ | 2010.02.09 Tue 10:37
[機能] DataGridViewで、現在選択されている行を削除するスクリプト [ソース] Private Sub 行削除ToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 行削除ToolStripMenuItem.Click Me.DataGridView1.Rows.RemoveAt(Me.DataGridView1.CurrentCell.RowIndex) End Sub [メモ] DataGridView1に、ToolStripMenuを割り当てて、DataGridView上で右クリックしたときに 上記メニューが表示されて、クリックされたら、その行を削除するように組んだもの。 Ex...
vb2008スクリプトメモ | 2010.02.09 Tue 10:29
[機能] vb2008で文字列が等しいか比較する方法 [ソース] Private Sub DataGridView1_CellEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter Dim dgv As DataGridView = CType(sender, DataGridView) Dim Header As String = dgv.Columns(e.ColumnIndex).HeaderText If "検索ワード".Equals(Header) Then DataGridView1.ImeMode = Windows.Forms.ImeMode.Hiragana Else DataGridView1.ImeMode = Window...
vb2008スクリプトメモ | 2010.02.09 Tue 10:25
[機能] 現在時刻を取得して、文字列として活用するサンプルスクリプト [ソース] Msgbox(Now().ToString("yyyy/M/d HH:mm:ss")) [メモ] Now()で現在時刻を取得してToStringメソッドに、書式を指定するだけ。 シンプル^^; JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 10:18
[機能] vb2008における文字列の連結方法 [ソース] temp3 = temp1 + temp2 temp3 = temp1 & temp2 temp3 = temp1 + CStr(temp2) temp3 = temp1 + temp2.ToString [メモ] vb2008での文字列連結の演算子は、+でも&でもOK。 +のときは型変換エラーが出る場合があるので、Cstr関数なり、ToStringメソッドなりで、文字列にキャストしてあげること。 PHPでは.(ドット)で、Javascriptでは+で、VBAでは&で、・・・とごっちゃに使っているとこんがらがってくるので、念のためメモ^^; JUGEM...
vb2008スクリプトメモ | 2010.02.09 Tue 10:14
全1000件中 991 - 1000 件表示 (100/100 ページ)