vb.net 对于文件的的简单操作
来源:互联网 发布:淘宝网上卖家诈骗手段 编辑:程序博客网 时间:2024/06/17 22:54
''' <summary>
''' パラメータの読み書き
''' </summary>
''' <returns>成功か?失敗か?</returns>
''' <remarks></remarks>
Public Function SaveOrReadParameters(ByVal writeOaread As String) As Boolean
SaveOrReadParameters = False
Dim temp As StreamWriter
'目録を創建する
If (Not Directory.Exists(FILEPATH)) Then
Directory.CreateDirectory(FILEPATH)
End If
'ファイルを書く
If writeOaread = "write" Then
'ファイル判断存在か?
Dim Boo_DirExist As Boolean = System.IO.File.Exists(filepath & fileName)
If Boo_DirExist Then
'ファイル存在
File.Delete(FILEPATH & FILENAME)
temp = File.CreateText(FILEPATH & FILENAME)
Else
'ファイルが無し
temp = File.CreateText(FILEPATH & FILENAME)
End If
Try
Using sw As StreamWriter = temp
sw.WriteLine(txtSyohin_kana.Text & ";")
sw.WriteLine(txtSyohin.Text & ";")
sw.WriteLine(txtBunnrui.Text & ";")
sw.WriteLine(txtNomekuti.Text & ";")
sw.WriteLine(txtMennkaa.Text & ";")
sw.WriteLine(txtYouki.Text & ";")
sw.WriteLine(txtYouryoumin.Text & ";")
sw.WriteLine(txtYouryoumax.Text & ";")
sw.WriteLine(txtTannkamin.Text & ";")
sw.WriteLine(txtTannkamax.Text)
sw.Flush()
sw.Close()
End Using
Catch ex As Exception
Application.ExitThread()
Finally
End Try
'ファイルを読む
ElseIf writeOaread = "read" Then
Dim line As String = String.Empty
Dim Boo_DirExist As Boolean = System.IO.File.Exists(FILEPATH & FILENAME)
If Boo_DirExist = False Then
'ファイルが無し
Return False
End If
Using sr As StreamReader = New StreamReader(FILEPATH & FILENAME)
Do While sr.Peek() > 0
line = line & sr.ReadLine()
Loop
sr.Close()
End Using
If line <> "" Then
txtSyohin_kana.Text = line.Split(";")(0)
txtSyohin.Text = line.Split(";")(1)
txtBunnrui.Text = line.Split(";")(2)
txtNomekuti.Text = line.Split(";")(3)
txtMennkaa.Text = line.Split(";")(4)
txtYouki.Text = line.Split(";")(5)
txtYouryoumin.Text = line.Split(";")(6)
txtYouryoumax.Text = line.Split(";")(7)
txtTannkamin.Text = line.Split(";")(8)
txtTannkamax.Text = line.Split(";")(9)
Else
Return False
End If
End If
Return True
End Function
- vb.net 对于文件的的简单操作
- .net对于文件的操作
- 对于 标签文件 的简单操作之一
- VB.Net:注册表的简单操作
- [VB.NET]简单的 XML 文档操作
- asp.net 对于文件路径的操作,路径、文件名、扩展名
- java 对于文件的操作
- 中对于文件的操作
- c#对于文件的操作
- Python对于文件的操作
- AutoIt 对于文件的操作
- 在ASP.NET中操作文件的例子(VB)
- 在ASP.NET中操作文件的例子(VB)
- 在ASP.NET中操作文件的例子(VB)
- 在ASP.NET中操作文件的例子(VB)
- VB.NET的一些操作
- VB.NET的拖放操作
- [VB.NET]文件操作
- Android 多个APK共享数据(Shared User ID)
- SQL LEFT JOIN 关键字
- 读入输出优化
- ReleaseSemaphore
- 用session监听器统计在线人数和在线人列表
- vb.net 对于文件的的简单操作
- Activity的四种加载模式
- 2011 3.24 笔记
- error C2352: 'CView::OnInitialUpdate' : illegal call of non-static member function
- Linux驱动中,probe函数何时被调用
- freemarker发送邮件
- 15 Good Computer Programming Habits
- 皋陶输入法进行中。。。
- RSA8.0.1安装时可选功能部件描述