Tag: 文本文件

我有一个string与pipe道和双向正斜杠分开，我需要格式化为一个Excel文件作为输出在Java中: 我从java文件中读取数据作为string，而从XML文件中读取类似的标签。而且这些数据是以pipe道（|）分隔的，并且每个数据都用双正斜杠（//）分隔。在可用的标签中共享三个string，需要以excel格式转换为制表符分隔。 Information – Desktop | Telecom//Apple Mac//iPhone//Working with iPhone Infrastructure – Desktop | Telecommunication//Apple iPod//iPad Information – Desktop | Telecom//Apple Mac//iTunes 10//Settings//Troubleshooting 这些是我使用DOM中的DOMparsing器通过XML获取的3个string。我需要将string转换为Excel作为制表符分隔txt文件。输出文件的格式是，请build议我怎样才能实现这个循环，以获得像这样的一个。

如何将我的列表导出到Excel兼容文件？: 今天，根据我在这里得到的答案，我写了这个小代码来创build一个16个元素的随机列表。 import random sources = ['Prone', 'Supine', 'Halfway', 'HalfInv'] result = [random.choice(sources)] repeats = 0 fail = 0 while len(result) < 16: elem = random.choice(sources) repeats = result.count(elem) print(repeats) if (elem != result[-1]) & (repeats < 4): result.append(elem) else: fail = fail + 1 print(fail) if fail > 100: result = [random.choice(sources)] print(result) 现在我想要做的是：1.创build2个随机列表命名他们不同（我怎么做这个基于for循环计数器？）2.把这两个列表作为列在制表符分隔（txt）文件，一个接一个为了方便复制粘贴到一个Excel文件中。我看着csv模块，但它似乎只有行的方法。

比较Excel电子表格值与每行文本文件并根据结果返回输出: 我需要将电子表格中的值与包含区域传输输出的文本文件进行比较，以根据电子表格中列出的types获取特定接口的IP地址。我的意见： Excel电子表格： + ———- + ———— + | 名称 | Inttypes | + ———- + ———— + | Switch-1 | | | SERVER1 | 生产| | SERVER2 | OOB | | Switch-2 | | | SERVER3 | 生产| | SERVER4 | 其他| + ———- + ———— + 文本文件： server1-prod.fqdn.com 86400 IN A 192.168.0.10 server1-oob.fqdn.com […]

VBA从工作表循环创build文本文件: 我试图创build一个循环来处理多个Excel文件，并为每个Excel文件文本文件创build。我走了很长的路，但我遇到了一个错误。我有三块代码：1）一个循环，2）一些计算3）创build文本文件。分离彼此，他们的工作就像一个魅力，但是当我把它们放在一个单一的子（如下面的循环显示），我得到“错误的文件模式（错误54）”的命令[打印＃1，左$（strOutput ，Len（strOutput） – 1）'strString]创build文本文件时。我不明白为什么不同的代码之间有冲突。循环是 Sub GEF_Processor() Dim i As Integer Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = True .Show End With For i = 1 To fd.SelectedItems.Count addNewWorkBook (fd.SelectedItems.Item(i)) Call macro3 Next i Set fd = Nothing End Sub 文本文件的创build就像 Sub macro3() Dim hndFile As […]

如何从cfquery创build制表符分隔的文本文件？: 我已经使用cfspreadsheet创buildquery 。现在我想知道是否有可能将查询转换为制表符分隔的文本文件。这是我的代码来获取查询： <cfspreadsheet action="read" src="C:\myFiles\Records.xlsx" query="myQuery" headerrow="1"> 以下是我在cfquery中用excel表示的logging列表： FIRST_NAME LAST_NAME DOB GENDER 1 FIRST_NAME LAST_NAME DOB GENDER 2 Mike Johns 01/12/98 M 3 Helen Johns 2/2/01 F 如果可能的话，我希望我的文本文件看起来像这样： FIRST_NAME LAST_NAME DOB GENDER Mike Johns 01/12/98 M Helen Johns 2/2/01 F 在值和\ n之间使用制表符分隔符来创build换行符。我已经尝试.csv但我不能像上面显示的那样组织文件。此外，如果有任何其他方式将.xlsx文件转换为.txt请让我知道。我正在寻找xp_cmdshell命令，但没有什么在我的情况下会有所帮助。这里是我用来获取.csv文件的代码： <cfspreadsheet action="read" format="csv" src="C:\myFiles\Records.xlsx" name="myCsv"> 然后我用FileWrite()来获取.txt文件： <cfscript> […]

Excel.Range.Copy（）粘贴Clipboard.GetText（）: 我有一小段C＃代码，我试图通过 Excel文件中的工作表循环，将UsedRange复制到剪贴板并将其粘贴到文本文件中。我到目前为止的代码似乎工作没有任何错误，但由于某种原因，一点都没有写入我的文本文件。我错过了什么吗？如果我包含System.Reflection.Missing.Value作为Copy方法的参数，仍然没有任何反应。这是我的代码： using (StreamWriter sw = File.CreateText("ExtractedText.txt")) { foreach (Excel.Worksheet sheet in thisWkBook.Worksheets) { sheet.UsedRange.Copy(); sw.Write(Clipboard.GetText()); } } 编辑＃1：我怀疑某种参考必须打破我的小应用程序，因为如果我创build一个新的C＃项目Haxxbuild议的代码段工作。但是，如果我使用Haxx中的相同代码并作为新的方法插入到我的小应用程序中，即使它与完全相同的“使用”库被调用完全相同的代码，也是行不通的。重做整个应用程序，复制/粘贴代码的最重要的部分，并报告，如果这可以解决问题。编辑＃2：我相信我认为是什么问题。我忘了提到我正在使用BackgroundWorker（ System.ComponentModel.BackgroundWorker ），以便在运行这个小程序时可以显示进度条。我刚刚看到，显然你只能从STAThread（ Clipboard.GetText返回null（空string））访问剪贴板。所以我继续创build一个单独的方法，不使用BackgroundWorkers，因此它运行在STAThread，瞧！该代码是正确和function，但试图访问剪贴板将无法工作，如果从BackgroundWorker线程调用asynchronous。

为什么我的vba代码看到逗号为新行？: 我有从文本文件中读取的代码，当行以“Q”开始时，它的一个问题，“R”和“W”分别是错误的和正确的答案，读取到形状。然而，问题是，如果文本中有逗号，我的Powerpointmacros将其视为一条新线。如何解决这个问题的任何帮助吗？这是代码 Open ActivePresentation.Path & "\" & "questions.txt" For Input As #1 nextSlideNum = 1 nextAnswerNum = 1 Do Until EOF(1) Input #1, nextLine If Left$(nextLine, 1) = "Q" Then 'The line starts with Q; it's a question nextSlideNum = nextSlideNum + 1 Set oSld = _ ActivePresentation.Slides.AddSlide(nextSlideNum, _ ActivePresentation.SlideMaster.CustomLayouts(2)) oSld.Shapes(1).TextFrame.TextRange.Text = _ […]

以感叹号作为分隔符打开文本文件和分割（）: 我觉得应该很简单，但似乎无法得到它的工作。尝试了两种方法打开一个文本文件（.txt）到excel和分裂由其他选项：“！” Set workbookbk = Workbooks.OpenText(fullfilepath, xlMSDOS, _ xlDelimited, xlDoubleQuote, False, False, False, False, False, True, "!") 这个语法是好的，但它说“编译错误：预期的函数或variables”我错过了什么？！我也用了 Set workbk = Workbooks.Open filename:= fullfilepath, Delimiter:= "!" 这将打开文件确定，但根本不分割文件非常感谢

文本文件上的Excel QueryTable源与Jet OLEDB连接string失败: 使用VBA，我试图创build一个Excel查询表来提供一个文本文件的数据的子集。我想使用Jet OLEDB连接string作为查询表Connection 。为什么这会失败？这是程序。 Sub OledbTest1() 'FAILS. 'Create querytable with oledb connect string. Const strConn = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Users\RSJCB\Desktop\;" & _ "Extended Properties=""text;HDR=Yes;FMT=Delimited""" Dim wsht As Worksheet Set wsht = ThisWorkbook.Worksheets.Add() With wsht 'The next line errors with 1004: Application-defined of object-defined error .QueryTables.Add strConn, .Range("A1"), "SELECT TOP 10 * […]

howto vba OpenText不parsing: 我只想把每一行文本放到第一列的单元格中。无论我设置设置，OpenTextparsing它。尝试几乎所有的东西，（给它的DataType：= xlDelimited和其他：= True和OtherChar：=“$”没有帮助仍然parsing文本，并将其放在每行的各个单元格。使用打开文件＃1input不适用于我，因为它不会逐行读取，并将整个文件放入一个string中。（unix源码）。我能做什么。编辑：作为一个方面的评论：我结束了使用FSO纠正我需要从每一行希伯来语与下面的代码： Public Function CorrectHebrew(ByVal gibberish As String) As String Dim inStream As ADODB.stream Set inStream = New ADODB.stream inStream.Open inStream.Charset = "WIndows-1255" inStream.WriteText gibberish inStream.Position = 0 inStream.Charset = "UTF-8" CorrectHebrew = inStream.ReadText inStream.Close End Function