科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件VB学习:文本插入与编辑处理实例

VB学习:文本插入与编辑处理实例

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

VB操作文本文件的方法很多,下面的例子是我自己作项目或者回答网友提问时做的,很有代表性,希望能够给各位朋友一些启发.

作者:SoHo_Andy  来源:soft6 2008年5月15日

关键字: 编辑处理 文本插入 VB vb.net Windows

  • 评论
  • 分享微博
  • 分享邮件
VB操作文本文件的方法很多,下面的例子是我自己作项目或者回答网友提问时做的,很有代表性,希望能够给各位朋友一些启发.

  ''功能:删除、替换文本中一行,或者插入内容到文本中某一行
  ''作者: soho_andy (冰)
  ''参数:
  ''strSourceFile  原始文件完整名
  ''strTargetFile  生成新文件的完整名
  ''intRow         操作的行数

  Sub 操作文件中一行(strSourceFile As String, strTargetFile As String, intRow As Long)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    Dim j               As Integer
   
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    ''取出源文件行数,按照回车换行来分隔成数组
   
    filenum = FreeFile
    If Dir(strTargetFile, vbNormal) <> "" Then
        Kill strTargetFile
    End If
    Dim Filestr() As String
   
    ''删除一行代码块
    Open strTargetFile For Append As #filenum
        ''循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i <> intRow - 1 Then
                Print #filenum, fileInfo(i)
            End If
        Next
    Close #filenum

    ''替换一行代码块
    Open strTargetFile For Append As #filenum
        ''循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow - 1 Then
                Print #filenum, "你要替换进去的内容"
            End If
        Next
    Close #filenum
   
    ''插入一行代码块
    Open strTargetFile For Append As #filenum
        ''循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow - 1 Then
                Print #filenum, "你要插入到这行的内容"
                Print #filenum, fileInfo(i)           ''保留原来的行,位置后移一位
            End If
        Next
    Close #filenum
   
   
    MsgBox "完毕"
  End Sub

  ''另外一个解决实际问题的例子
  ''


 

[下一页]



  ''网友的要求
  ''设有文件a.txt,其中存放了两行数据,数据用逗号分隔,现在要读取第一行的奇数位置的数据写  入到另一个文本文件(b.txt)的第一行,类似地,把第二行的奇数位置的数据写入到第二行。
  ''比如:
  ''文件a.txt如下:
  ''1,2,3,4,5
  ''6,7,8,9,10
  ''操作完成后,文件b.txt应为
  ''1,3,5
  ''6,8,10

  ''作者: soho_andy (冰)
  ''参数:
  ''strSourceFile  原始文件完整名
  ''strTargetFile  生成新文件的完整名

  Sub 提取奇数位数据(strSourceFile As String, strTargetFile As String)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    Dim j               As Integer
   
    Dim tmpDemData As String
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    ''取出源文件行数,按照回车换行来分隔成数组
   
    filenum = FreeFile
    tmpDemData = ""
    If Dir(strTargetFile, vbNormal) <> "" Then
        Kill strTargetFile
    End If
    Dim Filestr() As String

    Open strTargetFile For Append As #filenum
        ''循环每一行
        For i = 0 To UBound(fileInfo) - 1
            Filestr = Split(Trim(fileInfo(i)), ",")  ''按照逗号分隔每一行的数据
            tmpDemData = ""
            For j = 0 To UBound(Filestr)
                ''判断是否为奇数位
                If (j Mod 2) = 0 Then
                    tmpDemData = tmpDemData & Filestr(j)
                ElseIf j <> 0 And j <> UBound(Filestr) Then
                    tmpDemData = tmpDemData & ","
                End If
            Next
            ''保存一行如目标文件
            Print #filenum, tmpDemData
        Next
    Close #filenum
    MsgBox "完毕"
  End Sub

  Private Sub Command1_Click()
    提取奇数位数据 "d:\aa.txt", "d:\bb.txt"
  End Sub

    • 评论
    • 分享微博
    • 分享邮件
    闂傚倸鍊风欢锟犲矗鎼淬劌绐楅柡鍥╁亹閺嬪酣鏌曡箛瀣仾濠殿垰銈搁弻鏇$疀鐎n亖鍋撻弽顓ㄧ稏闁跨噦鎷�

    婵犵數濮烽。浠嬪焵椤掆偓閸熷潡鍩€椤掆偓缂嶅﹪骞冨Ο璇茬窞闁归偊鍓涢悾娲⒑闂堟单鍫ュ疾濠婂嫭鍙忔繝濠傜墛閸嬨劍銇勯弽銊с€掗柟钘夊暣閺岀喖鎮滈埡鍌涚彋閻庤娲樺畝绋跨暦閸洖鐓涢柛灞剧矋濞堟悂姊绘担绛嬪殐闁搞劋鍗冲畷銏ゅ冀椤愩儱小闂佹寧绋戠€氼參宕伴崱妯镐簻闁靛牆鎳庢慨顒€鈹戦埥鍡椾簼婵犮垺锚铻炴俊銈呮噺閸嬪倹绻涢崱妯诲碍閻庢艾顦甸弻宥堫檨闁告挾鍠庨锝夘敆娓氬﹦鐭楁繛鎾村焹閸嬫捇鏌e☉娆愬磳闁哄本绋戦埞鎴﹀川椤曞懏鈻婄紓鍌欑劍椤ㄥ懘鎯岄崒鐐靛祦閹兼番鍔岄悞鍨亜閹烘垵顏╅悗姘槹閵囧嫰寮介妸褎鍣ョ紓浣筋嚙濡繈寮婚悢纰辨晣鐟滃秹鎮橀懠顒傜<閺夊牄鍔庣粻鐐烘煛鐏炶姤鍠橀柡浣瑰姍瀹曠喖顢橀悩铏钒闂備浇宕垫慨鎶芥⒔瀹ュ鍨傞柦妯猴級閿濆绀嬫い鏍ㄧ☉濞堟粓姊虹涵鍛【妞ゎ偅娲熼崺鈧い鎺嗗亾闁挎洩濡囧Σ鎰板籍閸繄顓洪梺缁樺姇瀵剙螖閸涱喚鍘搁梺鍓插亽閸嬪嫰鎮橀敃鍌涚厱閻庯綆鍋嗘晶顒傜磼閸屾稑绗ч柟鐟板閹煎湱鎲撮崟闈涙櫏闂傚倷绀侀幖顐も偓姘卞厴瀹曞綊鏌嗗鍛紱閻庡箍鍎遍ˇ浼村磿瀹ュ鐓曢柡鍥ュ妼婢ь垰霉閻樿秮顏堟箒闂佹寧绻傚Λ妤呭煝閺囥垺鐓冪憸婊堝礈濮樿泛钃熼柕濞у嫷鍋ㄩ梺缁樺姇椤曨參鍩㈤弴銏″€甸柨婵嗗€瑰▍鍥ㄣ亜韫囨稐鎲鹃柡灞炬礋瀹曢亶顢橀悢濂変紦

    重磅专题
    往期文章
    最新文章