<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ? | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      對文本文件進行改寫

      chinasa 等級: 貴賓★★★★★ 積分:936 金幣:120 來自:寧波Access交流中心 發表于:2017-12-05 09:22:57   已結帖
      樓主

       

      我有如下文本文件,其中第二行的“XU YAO GAI XIE NEIR ONG”我想把它更改為“ABC”,假設該文件放在D盤根目錄,文件名為AAA.TXT。

      說明:我想在原文件上進行修改,并不想生成新文件,然后再刪除原文件。我在網上有看到 open xx for binary as #1,可以對原文件進行讀寫。但研究半天還是不會。

      00:aa:access:123456'

      10:xx:XU YAO GAI XIE NEIR ONG:aabb:adf'

      12:afasdf:012'

      99:4'

       

      access培訓  誠聘access開發人員

          chinasa
            獲得社區協助:請教問題(即發帖)131篇,其中獲得解決的128篇;
            協助社區成員:協助他人(即回帖)949篇,其中被設為【最佳答案】的251篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      王大哥 等級:二星助教★★ 積分:110 金幣:286 來自:衡水Access交流中心 發表于2017/12/5 14:12:18 
      1樓 得分: 0

      點擊下載此附件

      試試,看能不能滿足你的要求。



          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          王大哥1314  [協助社區成員回帖6篇,其中【最佳答案】0篇;發布技術文章4篇。]
          Access軟件網助教團隊 
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.www.beijingfeeling.com/reg/reg.asp?userid=39353
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      chinasa 等級:貴賓★★★★★ 積分:936 金幣:120 來自:寧波Access交流中心 發表于2017/12/5 14:19:11 
      2樓 得分: 0
      王大哥,內容沒發上來?

          chinasa
            獲得社區協助:請教問題(即發帖)131篇,其中獲得解決的128篇;
            協助社區成員:協助他人(即回帖)949篇,其中被設為【最佳答案】的251篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      張志 等級:管理員★★★★★ 積分:114915 金幣:43560 來自:上海Access交流中心 發表于2017/12/5 14:25:31 
      3樓 得分: 0
      刷新后,就能看到1樓中的附件

          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          張志  [協助社區成員回帖2961篇,其中【最佳答案】1172篇;發布技術文章1089篇。]
          UMVSoft在線支持工程師
          http://www.umvsoft.com
          QQ:2851379730 點擊這里給張志發消息
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.www.beijingfeeling.com/reg/reg.asp?userid=8
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      chinasa 等級:貴賓★★★★★ 積分:936 金幣:120 來自:寧波Access交流中心 發表于2017/12/5 14:32:30 
      4樓 得分: 0
      看到啦,非常感謝!

          chinasa
            獲得社區協助:請教問題(即發帖)131篇,其中獲得解決的128篇;
            協助社區成員:協助他人(即回帖)949篇,其中被設為【最佳答案】的251篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      大海 等級:一星助教★ 積分:99 金幣:1350 來自:深圳Access交流中心 發表于2017/12/5 15:17:02 最佳答案
      5樓 得分: 2
      Sub cc()
          Dim i&, s() As String
          Open "D:\新建文本文檔.txt" For Input As #1
          s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
          Close #1
          Open "D:\新建文本文檔.txt" For Output As #1
          For i = 0 To UBound(s)
              If InStr(s(i), "XU YAO GAI XIE NEIR ONG") And i = 1 Then s(i) = Replace(s(i), "XU YAO GAI XIE NEIR ONG", "ABC")
              Print #1, s(i)
          Next
          Close #1
      End Sub


          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          大海  [協助社區成員回帖124篇,其中【最佳答案】28篇;發布技術文章14篇。]
          Access軟件網助教團隊 
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.www.beijingfeeling.com/reg/reg.asp?userid=42003
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      chinasa 等級:貴賓★★★★★ 積分:936 金幣:120 來自:寧波Access交流中心 發表于2017/12/5 15:20:25 
      6樓 得分: 0

      萬分感謝!完美解決我的問題。

       

      王大哥的方法也很好,只是與我的需求稍有不同,非常感謝!



          chinasa
            獲得社區協助:請教問題(即發帖)131篇,其中獲得解決的128篇;
            協助社區成員:協助他人(即回帖)949篇,其中被設為【最佳答案】的251篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      總記錄:6篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5