約 2,468,640 件
https://w.atwiki.jp/fns1556/pages/41.html
Network関連 1.1 インターフェースの設定 簡単ネットワーク設定コマンド(なぜかDNSの設定が反映されない・・・？) root@pc ~# system-config-[[network]] 以下を編集 root@pc ~# vim /etc/sysconfig/network-scripts/ifcfg-eth0 DEVICE=eth0 BOOTPROTO=static ONBOOT=yes IPADDR=192.168.1.1 NETMASK=255.255.255.0 GATEWAY=192.168.1.254 DNS1=192.168.1.254 1.2 DNSの設定 設定ファイル：/etc/resolv.conf のファイルはネットワークサービス起動時に自動で上書きされるので、このファイルからは設定しない。 参考 1.3 デフォルトゲートウェイの設定（上記のGATEWAYで設定しない場合） root@pc ~# vim /etc/sysconfig/network GATEWAY=192.168.1.254 root@pc ~# service network restart 1.4 ホスト名の設定 1.4.1 CentOS6以前 root@pc ~# vim /etc/sysconfig/network HOSTNAME=centos6.linux root@pc ~# reboot 1.4.2 CentOS7以前 root@pc ~# vim /etc/hostname HOSTNAME=centos7.linux root@pc ~# halt --reboot ファイル関連 2.1 データの16進数ダンプ表示 例 text.txtを10バイト分16進数表示 root@pc ~# hexdump text.txt -n 10 -C 2.2 ブロックデバイスのUUID表示 root@pc ~# blkid 認証関連 3.1 ユーザーのroot昇格権制限 例 user1のroot昇格を制限する 設定ファイルの場所：/etc/group, /etc/pam.d root@pc ~# vi /etc/group wheel x 10 root,user1 root@pc ~# vi /etc/pam.d/su 以下のコメントアウトをはずす auth required pam_wheel.so use_uid コンソール関連 4.1 CUI使用時の画面サイズ変更 GUIを利用せず、CUIのみで使用する場合、初期状態ではPCの画面サイズに一致していない。 そのため、適切なサイズを選択する。 例）1280×800のノートPCでCentOSをCUI運用する場合。 設定ファイル：/etc/grub.conf (シンボリックリンク) - /boot/grub/grub.conf 対象の起動メニューに該当する「kernel /vmlinuz-......」の行の最後に「 vga=ask」を追加し、再起動する。 再起動時に以下の様な利用可能な画面コード一覧が表示される。 使用する液晶に該当するサイズ（1280 × 800）は36Aとなることを確認し、36Aを入力して起動する。 起動後に画面サイズに問題なければ、この設定を再度grub.confに「vga=0x36A」（16進数0xに注意！）として変更することで、次回からこの解像度になる。 フリーズ時にSysRqを使った安全なシステム再起動 うちのLinuxが時々フリーズするので、そんな時のために便利な再起動方法 ことわざの頭文字で覚えると便利 ゾウを育てるって、もうとっても退屈 Raising Elephants Is So Utterly Boring BUSIERの逆 Alt+SysRqを押した状態で6つのキーを順番に押す！（少し時間は空けること） root@pc ~# Alt + SysRq + R root@pc ~# Alt + SysRq + E root@pc ~# Alt + SysRq + I root@pc ~# Alt + SysRq + S root@pc ~# Alt + SysRq + U root@pc ~# Alt + SysRq + B LinuxMania キーボードショートカット集(Fedora,Ubuntu,CentOS)
https://w.atwiki.jp/ddr_dp/pages/5281.html
New Nostalgy(楽) 曲名 アーティスト フォルダ 難易度 BPM NOTES/FA(SA) その他 New Nostalgy CHUBAY WORLD 楽5 160 163 / 7 楽譜面(5) / 踊譜面(10) / 激譜面(15) 属性 譜面 https //livedoor.blogimg.jp/yanmar195/imgs/b/b/bb42bf4a.png 譜面動画 https //www.youtube.com/watch?v=xfcgjV3GFJs (x2.95, NOTE) 解説 2026/7/30追加。無条件解禁。「DanceDanceRevolution WORLD 1周年記念！楽曲クリエイターオーディション」採用楽曲。 名前 コメント コメント(私的なことや感想はこちら) 名前 コメント
https://w.atwiki.jp/ddr_dp/pages/5282.html
New Nostalgy(踊) 曲名 アーティスト フォルダ 難易度 BPM NOTES/FA(SA) その他 New Nostalgy CHUBAY WORLD 踊10 160 302 / 18 楽譜面(5) / 踊譜面(10) / 激譜面(15) 属性 譜面 https //livedoor.blogimg.jp/yanmar195/imgs/2/5/2572a2e7.png 譜面動画 https //www.youtube.com/watch?v=S2dgPooFCZY (x2.95, NOTE) 解説 2026/7/30追加。無条件解禁。「DanceDanceRevolution WORLD 1周年記念！楽曲クリエイターオーディション」採用楽曲。 名前 コメント コメント(私的なことや感想はこちら) 名前 コメント
https://w.atwiki.jp/ddr_dp/pages/5283.html
New Nostalgy(激) 曲名 アーティスト フォルダ 難易度 BPM NOTES/FA(SA) その他 New Nostalgy CHUBAY WORLD 激15 160 556 / 15 楽譜面(5) / 踊譜面(10) / 激譜面(15) 属性 譜面 https //livedoor.blogimg.jp/yanmar195/imgs/7/d/7d91b226.png 譜面動画 https //www.youtube.com/watch?v=HvqlJIQJ01w (x3.0, NOTE) 解説 2026/7/30追加。無条件解禁。「DanceDanceRevolution WORLD 1周年記念！楽曲クリエイターオーディション」採用楽曲。 名前 コメント コメント(私的なことや感想はこちら) 名前 コメント
https://w.atwiki.jp/bemanilyrics/pages/26.html
[RECKLESS RAVE] GOLD RUSHDJ YOSHITAKA-G feat. Michael a la mode Wow, yeah come on! I m Michael A La Mode. Let s do the moneymaking as me. Are you ready? IIDX GOLD! (Make it! Make money!) Let s drink all night tonight. (Make it! Make money!) Money is something to live for. (Make it! Make money!) Money makes the mare to go. (Make it! Make money!) Let s do the moneymaking. (Make it! Make money!) Take the bath of a bundle of bills. (Make it! Make money!) Many money is heavier than lives. (Make it! Make money!) I m interested only in money. (Make it! Make money!) Yeah! Yeah! I become a millionaire! First style. SubStream. Second style. Third style. Fourth style. Fifth style. Sixth style. Seventh style. Eighth style. Ninth style. Tenth style. IIDX RED. Happy sky. DistorteD. IIDX GOLD! (Make it! Make money!) Let s drink all night tonight. (Make it! Make money!) Money is something to live for. (Make it! Make money!) Money makes the mare to go. (Make it! Make money!) Let s do the moneymaking. (Make it! Make money!) Take the bath of a bundle of bills. (Make it! Make money!) Many money is heavier than lives. (Make it! Make money!) I m interested only in money. (Make it! Make money!) Yeah! Yeah! It s my treating!
https://w.atwiki.jp/mieyanman/pages/23.html
myfolder? [sqlplus_desc] clsDesc.vb Public Class clsDesc Public Property c0Name As String = "" Public Property c1Null As String = "" Public Property c2Type As String = "" End Class frmTabFile.Designer.vb Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() _ Partial Class frmTabFile Inherits System.Windows.Forms.Form フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 System.Diagnostics.DebuggerNonUserCode() _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub Windows フォーム デザイナーで必要です。 Private components As System.ComponentModel.IContainer メモ 以下のプロシージャは Windows フォーム デザイナーで必要です。 Windows フォーム デザイナーを使用して変更できます。 コード エディターを使って変更しないでください。 System.Diagnostics.DebuggerStepThrough() _ Private Sub InitializeComponent() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.TxtConnect = New System.Windows.Forms.TextBox() Me.TxtTableName = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.TxtWorkFolder = New System.Windows.Forms.TextBox() Me.DataGridView1 = New System.Windows.Forms.DataGridView() Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.TxtTxtFile = New System.Windows.Forms.TextBox() Me.TxtSqlFile = New System.Windows.Forms.TextBox() Me.TxtBatFile = New System.Windows.Forms.TextBox() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.ChkDelWorkFile = New System.Windows.Forms.CheckBox() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() Label1 Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(47, 12) Me.Label1.TabIndex = 0 Me.Label1.Text = "Connect" Label2 Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(12, 35) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(62, 12) Me.Label2.TabIndex = 1 Me.Label2.Text = "TableName" TxtConnect Me.TxtConnect.Location = New System.Drawing.Point(81, 6) Me.TxtConnect.Name = "TxtConnect" Me.TxtConnect.Size = New System.Drawing.Size(100, 19) Me.TxtConnect.TabIndex = 2 TxtTableName Me.TxtTableName.Location = New System.Drawing.Point(81, 31) Me.TxtTableName.Name = "TxtTableName" Me.TxtTableName.Size = New System.Drawing.Size(100, 19) Me.TxtTableName.TabIndex = 3 Button1 Me.Button1.Location = New System.Drawing.Point(435, 2) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 4 Me.Button1.Text = "tab作成" Me.Button1.UseVisualStyleBackColor = True Label3 Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(12, 59) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(62, 12) Me.Label3.TabIndex = 5 Me.Label3.Text = "WorkFolder" TxtWorkFolder Me.TxtWorkFolder.Location = New System.Drawing.Point(81, 56) Me.TxtWorkFolder.Name = "TxtWorkFolder" Me.TxtWorkFolder.Size = New System.Drawing.Size(100, 19) Me.TxtWorkFolder.TabIndex = 6 Me.TxtWorkFolder.Text = "C \Temp" DataGridView1 Me.DataGridView1.AllowUserToAddRows = False Me.DataGridView1.AllowUserToDeleteRows = False Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3}) Me.DataGridView1.Location = New System.Drawing.Point(14, 81) Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.ReadOnly = True Me.DataGridView1.RowTemplate.Height = 21 Me.DataGridView1.Size = New System.Drawing.Size(744, 385) Me.DataGridView1.TabIndex = 7 Column1 Me.Column1.HeaderText = "名前" Me.Column1.Name = "Column1" Me.Column1.ReadOnly = True Column2 Me.Column2.HeaderText = "NULL?" Me.Column2.Name = "Column2" Me.Column2.ReadOnly = True Column3 Me.Column3.HeaderText = "型" Me.Column3.Name = "Column3" Me.Column3.ReadOnly = True Label4 Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(234, 9) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(38, 12) Me.Label4.TabIndex = 8 Me.Label4.Text = "txtFile" Label5 Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(234, 35) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(39, 12) Me.Label5.TabIndex = 9 Me.Label5.Text = "sqlFile" Label6 Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(234, 59) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(40, 12) Me.Label6.TabIndex = 10 Me.Label6.Text = "batFile" TxtTxtFile Me.TxtTxtFile.Location = New System.Drawing.Point(280, 6) Me.TxtTxtFile.Name = "TxtTxtFile" Me.TxtTxtFile.Size = New System.Drawing.Size(100, 19) Me.TxtTxtFile.TabIndex = 11 Me.TxtTxtFile.Text = "desc.txt" TxtSqlFile Me.TxtSqlFile.Location = New System.Drawing.Point(280, 31) Me.TxtSqlFile.Name = "TxtSqlFile" Me.TxtSqlFile.Size = New System.Drawing.Size(100, 19) Me.TxtSqlFile.TabIndex = 12 Me.TxtSqlFile.Text = "desc.sql" TxtBatFile Me.TxtBatFile.Location = New System.Drawing.Point(280, 56) Me.TxtBatFile.Name = "TxtBatFile" Me.TxtBatFile.Size = New System.Drawing.Size(100, 19) Me.TxtBatFile.TabIndex = 13 Me.TxtBatFile.Text = "desc.bat" Button2 Me.Button2.Location = New System.Drawing.Point(435, 27) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(75, 23) Me.Button2.TabIndex = 14 Me.Button2.Text = "tab開く" Me.Button2.UseVisualStyleBackColor = True Button3 Me.Button3.Location = New System.Drawing.Point(435, 52) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(75, 23) Me.Button3.TabIndex = 15 Me.Button3.Text = "フォルダ開く" Me.Button3.UseVisualStyleBackColor = True ChkDelWorkFile Me.ChkDelWorkFile.AutoSize = True Me.ChkDelWorkFile.Checked = True Me.ChkDelWorkFile.CheckState = System.Windows.Forms.CheckState.Checked Me.ChkDelWorkFile.Location = New System.Drawing.Point(551, 5) Me.ChkDelWorkFile.Name = "ChkDelWorkFile" Me.ChkDelWorkFile.Size = New System.Drawing.Size(85, 16) Me.ChkDelWorkFile.TabIndex = 16 Me.ChkDelWorkFile.Text = "DelWorkFile" Me.ChkDelWorkFile.UseVisualStyleBackColor = True Form1 Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(770, 478) Me.Controls.Add(Me.ChkDelWorkFile) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.TxtBatFile) Me.Controls.Add(Me.TxtSqlFile) Me.Controls.Add(Me.TxtTxtFile) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.DataGridView1) Me.Controls.Add(Me.TxtWorkFolder) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TxtTableName) Me.Controls.Add(Me.TxtConnect) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Name = "Form1" Me.Text = "TableNameを基にtabファイルを作成" CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TxtConnect As System.Windows.Forms.TextBox Friend WithEvents TxtTableName As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TxtWorkFolder As System.Windows.Forms.TextBox Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Column3 As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TxtTxtFile As System.Windows.Forms.TextBox Friend WithEvents TxtSqlFile As System.Windows.Forms.TextBox Friend WithEvents TxtBatFile As System.Windows.Forms.TextBox Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents ChkDelWorkFile As System.Windows.Forms.CheckBox End Class frmTabFile.vb Imports System.Text.RegularExpressions Public Class frmTabFile Private Enum me_Col c0Name c1Null c2Type End Enum Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.TxtConnect.Text = pf_GetIni("", "DESC", "Connect", "ユーザ名/パスワード@ネットサービス名") Me.TxtTableName.Text = pf_GetIni("", "DESC", "TableName", "DUAL") Me.TxtWorkFolder.Text = pf_GetIni("", "DESC", "WorkFolder", "C \Temp") Me.TxtTxtFile.Text = pf_GetIni("", "DESC", "txtFile", "desc.txt") Me.TxtSqlFile.Text = pf_GetIni("", "DESC", "sqlFile", "desc.sql") Me.TxtBatFile.Text = pf_GetIni("", "DESC", "batFile", "desc.bat") End Sub Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Call ps_PutIni("", "DESC", "Connect", Me.TxtConnect.Text) Call ps_PutIni("", "DESC", "TableName", Me.TxtTableName.Text) Call ps_PutIni("", "DESC", "WorkFolder", Me.TxtWorkFolder.Text) Call ps_PutIni("", "DESC", "txtFile", Me.TxtTxtFile.Text) Call ps_PutIni("", "DESC", "sqlFile", Me.TxtSqlFile.Text) Call ps_PutIni("", "DESC", "batFile", Me.TxtBatFile.Text) If Me.ChkDelWorkFile.Checked Then Dim w_TxtFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtTxtFile.Text) Dim w_SqlFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtSqlFile.Text) Dim w_BatFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtBatFile.Text) Call ms_DelFile(w_BatFile) Call ms_DelFile(w_SqlFile) Call ms_DelFile(w_TxtFile) End If End Sub Private Sub DataGridView1_CellPainting(sender As Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting If e.ColumnIndex 0 AndAlso e.RowIndex = 0 Then Call e.Paint(e.ClipBounds, DataGridViewPaintParts.All) Dim rect As Rectangle = e.CellBounds Call rect.Inflate(-2, -2) Call TextRenderer.DrawText(e.Graphics, (e.RowIndex + 1).ToString(), e.CellStyle.Font, rect, e.CellStyle.ForeColor, TextFormatFlags.Right Or TextFormatFlags.VerticalCenter) e.Handled = True End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim w_TxtFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtTxtFile.Text) Dim w_TableName As String = Me.TxtTableName.Text.ToUpper Dim w_Desc As String = mf_Desc(w_TxtFile, w_TableName, Me.TxtConnect.Text) Dim w_SqlFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtSqlFile.Text) Call ms_StreamWriter(w_SqlFile, w_Desc) Dim w_BatCommand As String = String.Format("SQLPLUS {0} @{1}", Me.TxtConnect.Text, w_SqlFile) Dim w_BatFile As String = String.Format("{0}\{1}", Me.TxtWorkFolder.Text, Me.TxtBatFile.Text) Call ms_StreamWriter(w_BatFile, w_BatCommand) Call ms_StartProcessWaitForExit(w_BatFile) Dim w_FileText As String = mf_GetFileText(w_TxtFile) Dim w_StringList As List(Of String) = mf_FileTextToStringList(w_FileText) Dim w_DescList As List(Of clsDesc) = mf_StringListToDescList(w_StringList) Me.DataGridView1.Rows.Clear() If w_DescList.Count 0 Then Me.DataGridView1.Rows.Add(w_DescList.Count) For i As Integer = 0 To w_DescList.Count - 1 Me.DataGridView1.Rows(i).Cells(me_Col.c0Name).Value = w_DescList(i).c0Name Me.DataGridView1.Rows(i).Cells(me_Col.c1Null).Value = w_DescList(i).c1Null Me.DataGridView1.Rows(i).Cells(me_Col.c2Type).Value = w_DescList(i).c2Type Next Me.DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells) Dim sb As New sb() For i As Integer = 0 To Me.DataGridView1.Rows.Count - 1 Dim w_c0Name As String = mf_ObjectToString(Me.DataGridView1.Rows(i).Cells(me_Col.c0Name).Value) Dim w_c1Null As String = mf_ObjectToString(Me.DataGridView1.Rows(i).Cells(me_Col.c1Null).Value) Dim w_c2Type As String = mf_ObjectToString(Me.DataGridView1.Rows(i).Cells(me_Col.c2Type).Value) sb.Add("{1}{0}{2}{0}{3}", vbTab, w_c0Name, w_c1Null, w_c2Type) Next Dim w_tabFile As String = String.Format("{0}\{1}.tab", Me.TxtWorkFolder.Text, Me.TxtTableName.Text) Call ms_StreamWriter(w_tabFile, sb.ToString) Select Case MsgBox("tabファイルを開きますか。", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.SystemModal, "確認") Case MsgBoxResult.Yes Call ms_StartProcess(w_tabFile) Case Else End Select End If End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim w_tabFile As String = String.Format("{0}\{1}.tab", Me.TxtWorkFolder.Text, Me.TxtTableName.Text) Call ms_StartProcess(w_tabFile) End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Dim w_WorkFolder As String = Me.TxtWorkFolder.Text Call ms_StartProcess(w_WorkFolder) End Sub Private Function mf_Desc(wp_TxtFile As String, wp_TableName As String, wp_Connect As String) As String Dim sb As New sb() sb.Add("connect {0}", wp_Connect) sb.Add("set echo off") sb.Add("set heading off") sb.Add("set pagesize 0") sb.Add("set feedback off") sb.Add("set linesize 80") sb.Add("set trimspool on") sb.Add("spool {0}", wp_TxtFile) sb.Add("desc {0}", wp_TableName) sb.Add("spool off") sb.Add("set linesize 80") sb.Add("clear") sb.Add("exit") Return sb.ToString End Function Private Sub ms_StreamWriter(wp_File As String, wp_Text As String) Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim sw As New System.IO.StreamWriter(wp_File, False, enc) sw.Write(wp_Text) sw.Close() End Sub Private Sub ms_StartProcessWaitForExit(wp_BatFile As String) Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(wp_BatFile) p.WaitForExit() p.Close() p.Dispose() End Sub Private Sub ms_StartProcess(wp_File As String) Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(wp_File) End Sub Private Function mf_GetFileText(wp_TxtFile As String) As String Dim ret As String = "" Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim sr As New System.IO.StreamReader(wp_TxtFile, enc) ret = sr.ReadToEnd() sr.Close() Return ret End Function Private Function mf_FileTextToStringList(wp_FileText As String) As List(Of String) Dim ret As New List(Of String) Dim a As String() = Split(wp_FileText, vbCrLf, -1, CompareMethod.Text) For i As Integer = 0 To a.Count - 1 Dim w As String = a(i).Trim If w "" Then If Not mf_Header(w) Then If Not mf_Separator(w) Then ret.Add(w) End If End If End If Next Return ret End Function Private Function mf_Header(wp_String As String) As Boolean Dim ret As Boolean = False Dim w As String = wp_String.Replace(" ", "") If w.Trim = "名前NULL?型" Then ret = True End If Return ret End Function Private Function mf_Separator(wp_String As String) As Boolean Dim ret As Boolean = False Dim w As String = wp_String.Replace("-", "") If w.Trim = "" Then ret = True End If Return ret End Function Private Function mf_StringListToDescList(wp_StringList As List(Of String)) As List(Of clsDesc) Dim ret As New List(Of clsDesc) For i As Integer = 0 To wp_StringList.Count - 1 Dim w_input As String = wp_StringList(i) Dim w_pattern As String = " +" Dim w_replacement As String = vbTab Dim w As String = Regex.Replace(w_input, w_pattern, w_replacement, RegexOptions.Multiline Or RegexOptions.IgnoreCase) Dim a As String() = Split(w, vbTab, -1, CompareMethod.Text) Select Case a.Count Case 2 Dim w_Desc As New clsDesc() w_Desc.c0Name = a(0) w_Desc.c2Type = a(1) ret.Add(w_Desc) Case 3 Dim w_Desc As New clsDesc() w_Desc.c0Name = a(0) w_Desc.c1Null = a(1) w_Desc.c2Type = a(2) ret.Add(w_Desc) Case Else End Select Next Return ret End Function Private Function mf_ObjectToString(wp_Object As Object) As String Dim ret As String = "" If Not wp_Object Is Nothing Then ret = wp_Object.ToString End If Return ret End Function Private Sub ms_DelFile(wp_File As String) System.IO.File.Delete(wp_File) End Sub End Class mdlInit.vb Imports System.Runtime.InteropServices Module mdlInit DllImport("KERNEL32.DLL", CharSet =CharSet.Auto) _ Public Function GetPrivateProfileString( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As System.Text.StringBuilder, _ ByVal nSize As Integer, _ ByVal lpFileName As String) As Integer End Function DllImport("KERNEL32.DLL") _ Public Function WritePrivateProfileString( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpString As String, _ ByVal lpFileName As String) As Integer End Function Public Function pf_GetIni(ByVal wp_path As String, ByVal wp_section As String, ByVal wp_key As String, ByVal wp_Default As String) As String Dim ret As String = wp_Default Dim sb As New System.Text.StringBuilder sb.Capacity = 256 Dim i As Integer = GetPrivateProfileString(wp_section, wp_key, wp_Default, sb, sb.Capacity, mf_path(wp_path)) ret = sb.ToString Return ret End Function Public Sub ps_PutIni(ByVal wp_path As String, ByVal wp_section As String, ByVal wp_key As String, ByVal wp_value As String) Dim i As Integer = WritePrivateProfileString(wp_section, wp_key, wp_value, mf_path(wp_path)) End Sub Private Function mf_path(ByVal wp_path As String) As String Dim ret As String = wp_path If ret = "" Then Dim w_path As String = Application.StartupPath If w_path.EndsWith("\") = False Then w_path = w_path "\" End If ret = String.Format("{0}{1}.ini", w_path, My.Application.Info.AssemblyName) End If Return ret End Function End Module sb.vb Public Class sb Private m_sb As System.Text.StringBuilder Public Sub New() m_sb = New System.Text.StringBuilder() End Sub Public Overrides Function ToString() As String Return m_sb.ToString() End Function Public Function Add(ByVal wp_String As String, ByVal ParamArray wp_Args() As Object) m_sb.AppendFormat(wp_String, wp_Args) m_sb.Append(ControlChars.CrLf) Return m_sb End Function Public Function ToStringRemoveLastCrLf() As String Dim ret As String = m_sb.ToString If ret.Length = vbCrLf.Length Then Dim i As Integer = ret.Length - vbCrLf.Length Dim w As String = ret.Substring(i) If w = vbCrLf Then ret = ret.Substring(0, i) End If End If Return ret End Function Public Sub cb() Clipboard.SetText(m_sb.ToString()) End Sub End Class
https://w.atwiki.jp/wmakura/pages/5.html
Surf-Bee.Com ■サインアップボーナス $6 ■１日報酬 3% ■アップグレード：1ユニット$6 ■アップグレード期間：60日 ■サーフ数 30サイト ■払い出し：$20〜 ■支払日：毎月1日と15日 ■支払いプロセッサ：e-gold、AlertPay htmlプラグインエラー このプラグインを使うにはこのページの編集権限を「管理者のみ」に設定してください。 Autosurf Monitorリンク
https://w.atwiki.jp/newosu/
このサイトは無料のリズムアクションゲーム「osu!」の非公式情報Wikiです。誰でも自由に編集出来ます。 osu!公式サイト 旧サイト https //old.ppy.sh/ 新サイト https //osu.ppy.sh/ osu!について ここは、osu!の非公式Wikiです。 このWikiは誰でも編集、追記、修正が可能です。編集したいページの上部メニュー「編集」から編集が可能です。 (現状サイト未完成段階のため編集できません。完成までしばらくお待ちください) Wikiの使い方がよく分からない人はヘルプを参考にしてください。 皆さんのご協力をお待ちしております。 要望、質問等があればこちらまでどうぞ。 ※当サイトは日本におけるosu!初心者への解説を目的とするサイトですので、本目的のためのリンクは自由とします。 まずはこちらをご覧ください。 @wikiの基本操作 編集モード・構文一覧表 @wikiの設定・管理 分からないことは？ @wiki ご利用ガイド よくある質問 @wiki更新情報 @wikiへのお問合せフォーム 等をご活用ください アットウィキモードでの編集方法 文字入力 画像入力 表組み ワープロモードでの編集方法 文字入力 画像入力 表組み その他にもいろいろな機能満載！！ @wikiプラグイン一覧 @wikiかんたんプラグイン入力サポート バグ・不具合を見つけたら？ 要望がある場合は？ お手数ですが、お問合せフォームからご連絡ください。
https://w.atwiki.jp/illustguildop/pages/31.html
Date Name Holden Skill [[]] Other ]], [[ 551 名前：Holden[sage] 投稿日：2017/05/21(日)18 10 09 ID ??? 539 = 544 = 548 = 549 思いつきと勢いで続くか分かりませんが、参加します。 慣れないので不手際があるかもしれませんが、宜しくです。 画塾や美術系の学校に通っていたことがあるらしく、知識が豊富。みかんと言い争った後、脱退を宣言。自発的に脱退を宣言した初のメンバーになった。 894 ：Holden ：2017/06/07(水)06 35 28 ID ??? おはようございます。 869 では、遺憾に思うこともありますし、卑屈にならずに強気で言わせていただきます。 このスレッドのためにならないことを言うかもしれませんが、許してほしいなどとは言いません。 まず、自分話をさせていただきますので、興味のない方は読み飛ばしていただければと思います。 今の今まで、不適切で不快な発言があったことについては、本当に悪く思い、今後の成長に繋げたいと思っております。 しかしながら、個人のバックボーンの情報については、メンバーとして多少あってもよいのでは、という思いも ありましたことを書いておきます。 例えば、薬物と、美術・アート（音楽等含め）は、昔から決して無関係のお話ではないからです。 従って、万引き自慢のつもりで言ったわけではありません。（推奨も幇助も促す意図もありません。） あくまで、アップした絵がなぜ暗いのか、についての自虐風の補足説明でした。 もちろん、今となっては、言わないほうが良かったと思っております。 ビックバンの話も、面白おかしがられているみたいですが、自分は大真面目で言いました。 絶対な考えではありませんが、美術を嗜むものとして、１度は考えても良い観点だと思って書きました。 面白くないと思う人がいれば、スルーして頂いても構わない程度のつもりの話です。 「アトリエのドローイング」という本を最後におすすめしておきます。 ただの冒頭の一文に過ぎませんが、パイライトの話が自分はとても好きです。 自分がこのスレに参加したのは、リベンジの意図もありました。 この過去ログの「ほうるでん」が自分です。 http //ex14.vip2ch.com/test/read.cgi/part4vip/1238491405/ 空気を読めず、場に馴染めなかった過去の自分を振り返り、懐かしさ半分、再挑戦のつもりでした。 結局、同じ末路を辿っているわけで、何も成長していないのではと思う次第ですが、 図々しさは随分増したのかなと思っています。 ■ で、ここが１番遺憾に思うところですが。 自分は根性腹に据えていますよ。 多少技術があっても根性のない弱々しい残念なやつだ、みたいに思われているみたいですが、非常に遺憾です。 ネットの殴り合いがたくましいなんて勘違いも甚だしいです、そんなのは本当に弱いやつのやる虚勢にすぎません。 せっかく頑張っているカレキシさんには本当に悪いと思いますが、 正味、自分がここを去ると言ったのは「見切りを付けたから」であって「逃げる」わけではありません。 「所詮、２ちゃんねるなんだな。」と思ったから去るのです。 「自信がない」と言ったのは「ここで真面目に頑張る自信がない」という意味です。 履き違えないでください。 捨て台詞となりましたが、それでは。
https://w.atwiki.jp/nekonomike/pages/343.html
#blognavi 緊急の!!MKO/AO英国特別版誌ニュース!!! Hi, ) As on my other thread this information might not get noticed, I thought I had better make a separate post to make this INFORMATION stand out more. やあ‖ )私の他の糸の上でこの情報が気がつかれないかもしれなくて、私は私がこのINFORMATIONをより目立たせるために別々のポストを作った方がよいと思いました。 In case any UK Fans are interested and in case they didnt already know? (I only found out the other day myself). 中で、どんな英国Fansでも興味を持っているという場合と彼らがすでにdidntする流行のケースは、知っています？(私は、私自身で先日がわかるだけでした)。 Quote 引合いに出します： The New Mary-Kate and Ashley Olsen - Girl TalK "Special Edition" Magazine!!! 新しいメアリー-ケイトとアシュリーオルセン - 女の子話「特別版」誌!!! ~~~~~~~~~~~~~~~ is OUT NOW!!! ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ OUT NOWです!!!~~~~~~~~~~~~~~~ But!!!, They didnt make it on its own this time like they usually would with the Special Edition Monthly Issues. しかし!!!彼らがSpecial Edition Monthly Issuesで通常そうするように、They didntは今度は単独でたどり着きます。 Instead they have INCORPORATED it into their standard issue, so this also means instead of a month to buy it, you only have until MONDAY the 31st July 2006. その代わりに、彼らはそれを買うために、1ヵ月の代わりに彼らの標準的な問題、それで、これへものそれが意味するINCORPORATEDを持ちます、あなたはMONDAYまで2006年7月31日を持つだけです。 And then all copies will get removed from the shelves. それから、全てのコピーは、棚から取り除かれます。 OK!!, SO THATS This coming MONDAY and then its GONE!!. ＯＫ!!SO THATS This接近MONDAYとそれからそのGONE!!。 So anyone wanting to buy it should go get it NOW!! それを買いたくなっている誰でも行かなければならないように、それのためにNOWを得てください!! It features LOADS of beautiful pictures, LOTS of newer pictures too, as well as some of the regular pictures they use, and a REALLY BEAUTIFUL A3 POSTER of Ashley Olsen TOO! D それは、美しい絵（より新しい絵（彼らが使う普通の絵のいくつかと同様に）とREALLY BEAUTIFULのLOTSも）のLOADSを特徴とします アシュリーオルセンのA3ポスターも！：D You will LOVE IT!! あなたは、それが好きです!! THEN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! それから!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! From NEXT Tuesday There will be ANOTHER Edition!!! から 次の火曜日に、もう一つの版があります!!! Featuring MORE Pictures!! and MORE information and a REALLY BEAUTIFUL A3 poster of Mary-Kate Olsen!!! D より多くの絵を特徴とすること!!そして、MORE情報とREALLY BEAUTIFUL メアリー-ケイトオルセンのA3ポスター!!!：D So there is some thing to collect for this month AND for NEXT Month too!!!!!!!!!! D それで、NEXT Monthのためにもこの月ANDのために集まる若干のものが、あります!!!!!!!!!!：D HOW COOL IS THAT!!!????!!! なんて、涼しさはその!!!????!!!であるでしょう So if anyone wants to get BOTH Issues, then you need to get down the shops AS SOON AS POSSIBLE as lots of shops are selling out already!! それで、誰かがBOTH Issuesを得たいならば、たくさんの店がすでに売り切れていて、あなたは店AS SOON AS POSSIBLEを書き留める必要があります!! WHSmith only had about 3 copies left in London and Tesco only had about 4 copies left. WHSmithはおよそ3部をロンドンに残しておくだけでした、そして、テスコはおよそ4部を残しておくだけでした。 The magazine is so cool! D 雑誌は、とても涼しいです！：D I hope you all manage to get one if you want to!! ) 私は、あなたが必要とするならば、あなた全員がなんとか1を得ることができることを望みます!! ) ===== ===== On other news Sadly the Australian Mary-Kate Olsen Issue of Harpers Bazaar doesnt come to the UK, but cool news for USA NYLON with Ashley on it, that should be out in London and the BIG Cities by the weekend or so, in the UK. Harpers Bazaarのオーストラリアのメアリー-ケイトオルセンIssueがdoesntするSadlyがそれの上にアシュリーとUSA NYLONのために英国であるが、いかしたニュースに来るという他のニュースで、それはロンドンと週末までのBIG Citiesで、または、そう、英国で外出していなければなりません。 So if anyone wants to collect that too!??, they can do too! D それで、誰かがとてもまた!??を集めたいならば、彼らは、またすることができます！：D カテゴリ [Olsen News] - trackback- 2006年07月26日 15 47 42 #blognavi