read txt,ini

 Public   Function   Readinifile()   As   String  
                  Dim   fi   As   New   FileInfo(Application.StartupPath   &   ("/Test.txt"))  
                  '   open   an   existing   file,   or   create   a   new   one  
                  If   fi.Exists   Then  
                          Dim   rs   As   StreamReader   =   fi.OpenText()  
                          Return   rs.ReadLine  
                          rs.Close()  
                  Else  
                          ...  
                  End   If  
          End   Function  
          Public   Function   Writeinifile(ByVal   lname   As   String)   As   String  
                  Dim   fi   As   New   FileInfo(Application.StartupPath   &   "/Test.txt")  
                  If   fi.Exists   Then  
                          Try  
                                  fi.Delete()  
                          Catch   e   As   Exception  
                                  Console.WriteLine(e.ToString())  
                          End   Try  
                  End   If  
                  Dim   sw   As   StreamWriter   =   fi.CreateText()  
                  sw.WriteLine(lname)  
                  sw.Flush()  
                  sw.Close()  
          End   Function

 

 

 

Imports   System  
  Imports   System.IO  
  Imports   System.Collections  
   
  Class   ReadData  
  Protected   filename   As   String'文件名  
  Protected   elements   As   Hashtable   =   new   Hashtable()'键值对  
  Protected   keys   As   ArrayList   =   new   ArrayList()'关键字的集合,方便操作  
  Public   Shared   Sub   Main()'测试  
  Dim   data   As   ReadData   =   New   ReadData("test.txt")  
  Console.WriteLine(data.Item("tt"))  
  data.Item(0)   =   "bbbbbb"  
  data.Save()  
  End   Sub  
   
  Public   Sub   New(filename   As   String)'构造函数  
          Me.Filename   =   filename  
  Dim   sr   As   StreamReader   =   new   StreamReader(filename)  
  Dim   str   As   String   =   sr.ReadLine()  
  Dim   value   As   String   =   Nothing  
  Dim   key   As   String   =   Nothing  
  while   Not   (str   is   Nothing)  
  Dim   index   As   Integer   =   str.IndexOf("=")'取到键值对  
  If   (index   <   0)  
  value   +=   str  
  If   Not(key   is   Nothing)  
  elements.Item(key)   =   value  
  End   If  
  Else    
  key   =   str.Substring(0,   index).Trim()  
  value   =   str.Substring(index   +   1).Trim()  
  keys.Add(key)'加入集合  
  elements.Add(key,   value)'加入hash表  
  End   If  
  str   =   sr.ReadLine()  
  End   While  
  sr.Close()  
  End   Sub  
  Default   Public   Property   Item(key   As   String)   As   String'根据关键字取值和设置值,如果要保存到文件,请调用Save方法  
  Get  
  Return   elements.Item(key)  
  End   Get  
  Set  
  elements.Item(key)   =   Value  
  End   Set  
  End   Property  
  Default   Public   Property   Item(index   As   Integer)   As   String'根据索引取值和设置值,如果要保存到文件请调用Save方法  
  Get  
  Return   elements.Item(keys.Item(index))  
  End   Get  
  Set  
  elements.Item(keys.Item(index))   =   Value  
  End   Set  
  End   Property  
  Public   Sub   Save()'存储改变到文件  
  Dim   sw   As   StreamWriter   =   new   StreamWriter(filename)  
  For   Each   key   As   String   In   keys  
  sw.WriteLine(key   &   "="   &   elements.Item(key).ToString())  
  Next  
  sw.Close()  
  End   Sub  
  End   Class

 

乐播投屏是一款简单好用、功能强大的专业投屏软件,支持手机投屏电视、手机投电脑、电脑投电视等多种投屏方式。 多端兼容与跨网投屏:支持手机、平板、电脑等多种设备之间的自由组合投屏,且无需连接 WiFi,通过跨屏技术打破网络限制,扫一扫即可投屏。 广泛的应用支持:支持 10000+APP 投屏,包括综合视频、网盘与浏览器、美韩剧、斗鱼、虎牙等直播平台,还能将央视、湖南卫视等各大卫视的直播内容一键投屏。 高清流畅投屏体验:腾讯独家智能音画调校技术,支持 4K 高清画质、240Hz 超高帧率,低延迟不卡顿,能为用户提供更高清、流畅的视觉享受。 会议办公功能强大:拥有全球唯一的 “超级投屏空间”,扫码即投,无需安装。支持多人共享投屏、远程协作批注,PPT、Excel、视频等文件都能流畅展示,还具备企业级安全加密,保障会议资料不泄露。 多人互动功能:支持多人投屏,邀请好友加入投屏互动,远程也可加入。同时具备一屏多显、语音互动功能,支持多人连麦,实时语音交流。 文件支持全面:支持 PPT、PDF、Word、Excel 等办公文件,以及视频、图片等多种类型文件的投屏,还支持网盘直投,无需下载和转格式。 特色功能丰富:投屏时可同步录制投屏画面,部分版本还支持通过触控屏或电视端外接鼠标反控电脑,以及在投屏过程中用画笔实时标注等功能。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值