小编Pan*_*aju的帖子

我有一个包含以下文字的文本文件

161624.406 : Send:[sometext1]
161624.437 : Send:[sometext2]
161624.468 : Send:[sometext3]
161624.499 : Send:[sometext4]
161624.531 : Send:[sometext5]

我想只保留该文件中的sometext部分.期望的输出是

sometext1
sometext2
sometext3
sometext4
sometext5

我在Excel-VBA中使用以下代码

Public Sub testa()
    a = "C:\Users\pankaj.jaju\Desktop\test.log"

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTxtFile = objFSO.OpenTextFile(a, 1)
    strText = objTxtFile.ReadAll
    objTxtFile.Close
    Set objTxtFile = Nothing


    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .MultiLine = True
        .Pattern = "\[([^]]+)\]"
        Set objRegMC = .Execute(strText)
        b = objRegMC(0).SubMatches(0)
    End With
    Set objRegEx = Nothing

    Debug.Print b
End Sub …

我想使用 cmd.exe 的fc命令比较 2 个文本文件。但是，它也会打印不匹配行的上方和下方行。我该如何抑制这种行为？

a.txt

32=10500.3000000
31=5252.8095
30=XXXX
75=20170208 00:32:40
6=5252.8095
60=20170208-00:00:03

b.txt

32=10500.3000000
31=5252.8095
30=年
75=20170208 00:32:40
6=5252.8095
60=20170208-00:00:03

命令-fc /l /n /c /t /lb200 a.txt b.txt1

输出 比较文件a.txt和B.TXT

***** a.txt
    2：31=5252.8095
    3：30=XXXX
    4:75=20170208 00:32:40
***** B.TXT
    2：31=5252.8095
    3: 30=年
    4:75=20170208 00:32:40
*****

我想要的是

***** a.txt
    3：30=XXXX
***** B.TXT
    3: 30=年
*****

所以,如果我有一个列,如:

    A1
1   Apple
2   Apple
3   Apple
4   Oj
5   Oj
6   Oj
7   Oj
8   Pear
9   Pear

我怎样才能返回Apple的值1和3,OJ的4和7等？

我试图在下面的 VB 脚本的帮助下将一些记录插入到 MS Access 表中。但是当我尝试执行它时，它会抛出编译错误：预期的语句结束。有人可以帮我弄清楚我哪里出错了。

Private Sub Form_Click()
Dim dbs         As DAO.Database
Dim DbFullNAme  As String

DbFullName = "D:\G\Diamond\FINAL MS-Access\MS-Access project.accdb"
Set dbs = OpenDatabase(DbFullName)

dbs.Execute "INSERT INTO [2014_Status] ( Prompt, Project_Name, STATUS,Release_Name )SELECT     RoadMap.SPRF_CC, RoadMap.SPRF_Name, RoadMap.Project_Phase,RoadMap.Release_Name FROM RoadMap WHERE (((Exists (select 1 FROM [2014_Status] where RoadMap.SPRF_CC = [2014_Status].[Prompt]))=False));"
dbs.Close
End Sub

这是我的代码

Set objFSO = CreateObject("Scripting.FileSystemObject")

a = "@echo off && " & _
"pushd ""\\xxxxx.local\cfs\Development\Docs\Baseline"" &&" & _
"cls &&" & _
"dir /b /a-d &&" & _
"popd"

Set objShell = CreateObject("WScript.Shell").Exec("%comspec% /c " & a)
execStdOut = objShell.StdOut.ReadAll()
msgbox execStdOut

基本上我试图在网络驱动器上运行Dir命令.它工作正常,但唯一的问题是输出在开头包含一个垃圾字符.不知道为什么？

产量

如果我在批处理文件中运行相同的步骤,则输出正确