Tag: 文本

Powershell脚本循环输出到txt文件

我正在使用Powershell脚本来写入文本文件。 一个客户端向我展示了这个Powershell脚本来replace我以前使用的一个excelmacros… $computers= gc "C:\Users\Powershell\DeviceList.txt" foreach ($computername in $computers) { write-output "<$computername> active = yes group = interval = 5min name = $computername host = $computername community = version = 1 timeout = 0 retries = default port = 161 qos_source = 1 </$computername>" | Out-File -filepath "C:\Users\Powershell\Cisco_Mon.txt" -append } 它工作的很好，但现在我想build立它添加额外的variables。 在一个完美的世界中，我希望它能够从excel中读取每行数据，并将每列定义为一个variables。 现在使用另一个文本文件也很好。 这是我开始的（它不工作），但你可以看到我要去的地方… $computers= […]

Excel读取文本数据库 – 在PHP，HTML等视图

我们在服务器X上有一个文件，logging我们所使用的程序的许可证（在文本文件中 – log.txt是我们的数据库）。 我们创build了从该文件读取的Excel（并添加了查看许可证状态所需的其他字段）。 现在我们想从Excel或HTML中显示这些数据。我们尝试使用PHP Excel Reader，但这并不是我们的最佳select，因为Excel必须打开，我们必须刷新Excel内容然后保存它，以便在PHP中进行任何更改视图。 任何想法？ 请帮忙，谢谢。 问候

从Excel导出到txt保存特殊的date格式

我一直在使用一个代码来将数据从excel复制到.txt中去除任何不需要的字符，input到另一个应用程序： Public DirRoot As String Public CasNam As String Public Sub Export() Dim intUnit As Integer Dim rngRow As Range Dim rngCell As Range Dim strText As String intUnit = FreeFile DirRoot = "C:\temp\" CasNam = "Test" Open DirRoot & CasNam & ".txt" For Output As intUnit 'End If With Worksheets("Export").UsedRange For Each rngRow In […]

尝试将多个文本文件的内容合并为电子表格中的一个单元格

主要有： 我有几个（400）文本文件，每个都有一个数字文件名（即12345.txt）。 每个文本文件都包含一些文本（长描述样式，纯文本段落等）。 我想知道是否可以将所有这些文本文件导入电子表格以导出为CSV。 该表将有两列：没有扩展名的文件名（12345），第二列将是文件的内容（每个文件的单个单元格）。 谢谢。

关键字search

我有一个项目，我得到了大量的信息，并描述了我正在处理的问题。 我想在行的末尾创build一个单元格，在一行中search特定的关键字或一段文本后，返回“是”或“否”。 我曾尝试使用if（Search（））函数，但它只允许search关键字的行中的一个单元格。 这将工作，但我正在search的关键字（S）可能会出现在该行的不同列。 有无论如何，我可以创build一个公式，search整个行的特定文本？ 如果我已经在公式中出现了关键字列表的任何一个实例，它是否会导致一个可定制的文本响应（是或否）？ 谢谢。

从单元格中提取文本将其移入另一个工作表上的单元格中

你好，StackOver Flow的人， 我对VBA语言和工作stream程相当陌生，但我有一些编码经验。 我的题目并没有真正帮助解释的问题是： 我每天都会收到包含需要从中提取出来并移入相应单元格的信息的电子邮件。 电子邮件的例子如下，我已经从Outlook中复制到我已命名为“RawData”的Excel工作表中。 我将标签列为A） **A)** Send Date 01/01/2014 Timestamp **B)** Subject ([Type]) word IndetifierOne IndetifierTwo word 100001 **C)** Body Item HYPERLINK (www.thistheexample.com/100001) Subitem Name HYPERLINK (www.thistheexample.com/name/99321)keyword **All this Information is irrelevant** Item Names HYPERLINK (www.thistheexample.com/name/99321)keyword HYPERLINK (www.thistheexample.com/name/99321)keyword HYPERLINK (www.thistheexample.com/name/99321)keyword 什么需要提取和放置在列中的顺序是 **A)** Date **B)** Identifier Two **C)** This has other information input into […]

使用VBA将文本文件复制到Excel

我有一堆我想复制到Excel中的文本文件。 每个文本文件只是一列数字，到目前为止，我已经复制并粘贴到Excel中。 我有数百个文本文件，但手工处理是从字面上1.打开文件，2.复制所有，3.在Excel中粘贴到新列，4.closures文件。 结果将是几百个满数字的列，然后我可以在Excel中进行统计。 编辑：我现在已经logging了我执行该动作的一个macros，这里是脚本： Sub Macro() ActiveCell.FormulaR1C1 = "" Range("C1").Select ActiveSheet.Paste Range("D1").Select ActiveSheet.Paste Range("E1").Select ActiveSheet.Paste Range("F1").Select ActiveSheet.Paste End Sub 所以录制一个macros只能捕获这个过程的粘贴部分 – 我可以在复制部分编码吗？ 目前，我有一个名为“通行证0”，“通行证1”，…“通行证99”（我想进入数千）的文本文件目录。 我该如何去打开这些文件，复制它们的内容，粘贴然后closures它们？ 任何帮助深表感谢。

为什么Excel TEXT（value，format_text）函数的format_text参数没有把“short date”作为有效值？

VBA FORMAT （expression式，[格式]）函数的格式参数能够处理“短date”。 是否有一个解决scheme使用“短date”的文字function？ 我不想使用VBA。 我尝试使用excel CELL （“格式”，参考）函数来获取系统短date格式与TEXT函数一起使用，但它是无用的，因为它返回mm / dd / yyyy，即使我在我的m / d / yyyy Windows区域设置。 所以基本上我的问题是这样的 – 是否有一个解决scheme使用TEXT函数“短date”？

用标准插入数字序列到文本区域

在Excel 2010中，我有列A中的城市列表，列B中的社区列表和列C中每个社区的唯一用户分配代码。 由于这些代码是非顺序的（1011N，1032B等），并且对它们没有逻辑，所以我想在D列中生成我自己的简单编码系统，如下所示： 城市社区01城市社区02城市社区03 ….城市社区50 我面临的挑战是，我必须使用三个公式。 第一个创buildCityCommunity01。 第二个公式（从第二个项目到第九个）看上面的行，find01，并加1。 第三个公式看第9项，再次加1，这次不加“0”以避免011,012等 有没有办法用一个公式做到这一点？ （我发现其他类似的解决scheme，但要么加载项或VBA，这两者都不应该是必要的。这可能是多个嵌套的IFS，但我相信有一个更优雅的方法）。 更新：计数必须重新启动每个新的社区。

用多空格在Excel中打开空格分隔的文本文件

我试图导入一个空格分隔的文本文件到Excel中，但麻烦的是，它只有一个不知名的数量的空间instaed只有一个。 我现在想知道是否有人可以帮助我在导入之前或之后快速移除所有空单元格？ 大约有100万行和超过100列，包括所有的空行。 这是我的代码到目前为止。 currentFile = ActiveWorkbook.Name fileToOpen = Application.GetOpenFilename("PRN Files (*.prn), *.prn") If fileToOpen <> False Then Sheets("Rawdata").Cells.ClearContents ' clear raw_data worksheet Workbooks.OpenText Filename:=fileToOpen, DataType:=xlDelimited, Space:=True openedFile = ActiveWorkbook.Name Workbooks(openedFile).ActiveSheet.UsedRange.Copy Destination:=Workbooks(currentFile).Worksheets("Rawdata").Range("A1") Workbooks(openedFile).Close Else MsgBox "No data imported" End If 真诚，最大