请教如何读取aa.txt文件里的部分数据,谢谢!!!

Question

请教如何读取aa.txt文件里的部分数据,谢谢!!!如aa.txt有数据:
(1:我想读取AA.TXT里含有BBBB或AAA或CCCC的数据,显示在TEXT1里.)
(2:我想删除读取得数据,谢谢!!!)
(3:我想把读取得数据修改后再写入文件,并把原有的数据删除,求教该如何写,谢谢)
          SS
AAAA
application that Visual FoxPro uses when you choose a builder in the Form Designer. By default, _BUILDER contains BUILDER.APP, installed in your Visual FoxPro directory. You can specify a different name for the builder applicationR0lGODlhIAAgAKIAAFUAACoAAP9fAP+/AP+fAP//AAAAAACAgCH/C05FVFNDQVBFMi4wAwEAAAAh
/g5CdWlsdCBieSBaaXBweQAh+QQBZAAHACwAAAAAIAAgAAAD/ni63P4wykmrveSYS7P5m/MdmWUQ
wPiARkBkKAiU51AMbgCIgD0YqV5hOAgSfLHhrlG7BWzD6E1ATA4DK8EPKiUOtASBIRpaGQbH7m3A
 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA          SS
BBBB
R0lGODlhIAAgAKIAAFUAACoAAP9fAP+/AP+fAP//AAAAAACAgCH/C05FVFNDQVBFMi4wAwEAAAAh
/g5CdWlsdCBieSBaaXBweQAh+QQBZAAHACwAAAAAIAAgAAAD/ni63P4wykmrveSYS7P5m/MdmWUQ
wPiARkBkKAiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA          SS
CCCC
GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
YYYYYYYYYYYYYYYYYYYYYYY
YYYYYYYYYYYYYYYYYYYYYYYY
UUUUUUUUUUUUUUUUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

Answer 1

用open file as #1 for ....
具体的自己去找吧，不难的

Answer 2

用open file as #1 for

Answer 3

谢谢!!!是不是用OPEN APP.PATH &"\AA.TXT" FOR INTPUT AS #1.
我不会读取指定的符合要求的数据,求教以详细代码,谢谢!!!!

Answer 4

Dim lngFile As Long
Dim strFile As String
Dim strData As String
Const LNG_STRLEN = 1000lngFile = FreeFile
strFile = App.Path & "AA.Txt"
Open strFile For Binary Access Read As #lngFile
strData = String(LNG_STRLEN, Chr(0))
Get #lngFile, , strData 
'Replace strData......
'
'
Close #lngFilelngFile = FreeFile
Open strFile For Binary Access Write As #lngFileIf Len(Dir(strFile)) > 0 Then
    Kill strFile
End IfPut #lngFile, , strDataClose #lngFile

Answer 5

谢谢您!!!flyfeel(图灵)!!!!在这我还是未搞懂,如我想读取里面的:(有一个text1,可分别写入:AAAA,BBBB,CCCC.读取含有TEXT1里值得那部分数据)如TEXT1=BBBB,则就读取
                SS
BBBB
R0lGODlhIAAgAKIAAFUAACoAAP9fAP+/AP+fAP//AAAAAACAgCH/C05FVFNDQVBFMi4wAwEAAAAh
/g5CdWlsdCBieSBaaXBweQAh+QQBZAAHACwAAAAAIAAgAAAD/ni63P4wykmrveSYS7P5m/MdmWUQ
wPiARkBkKAiAAAAAAAAAAAAAAAAAAAAAAAAA求教该如何读,谢谢!!!!

Answer 6

1、如果是你自己要用aa.txt来存放数据,建议用ini文件。2、是不是要读取的部分都是以SS行开头,以AAAAAAAAAAAAAAAAAAAAAAAAA行结尾？

Answer 7

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])VBA.Strings 的成员
返回在另一字符串中第一次出现某一字符串的位置输入：strText 输入字符串
      strSep 分割附字符串   例如"BBBB"
返回：strFGetString 读出的字符串
      strText 读剩的字符串
      
Private Function strFGetString(strText As String, ByVal strSep As String) As String
    Dim i As Long    i = InStr(strText,strSep)
    If i > 0 Then
        strFGetString = Left(strText,i - 1)
        strText = Mid(strText, i + Len(strSep))
    Else
        strFGetString = strText 
        strText = vbNullString
    End If
End Function