Tag: csv

java将.xls转换为csv: 我已经使用Apache POI库转换为.xls文件到一个csv文件。我遍历每行和单元格，放一个逗号，并追加到缓冲的阅读器。单元格types数字和string完美转换。如果一个空白单元格出现，我把一个逗号，但没有检测到空白值的代码。怎么做？请帮我一下 import java.io.*; import java.util.Iterator; import java.text.DateFormat; import java.io.IOException; import java.text.SimpleDateFormat; import java.util.Date; import java.text.DecimalFormat; import java.text.NumberFormat; import java.math.BigDecimal; import org.apache.poi.hssf.usermodel.HSSFSheet; import org.apache.poi.hssf.usermodel.HSSFWorkbook; import org.apache.poi.ss.usermodel.Cell; import org.apache.poi.ss.usermodel.Row; import org.apache.poi.xssf.usermodel.XSSFSheet; import org.apache.poi.xssf.usermodel.XSSFWorkbook; import org.apache.poi.xssf.usermodel.XSSFRichTextString; import org.apache.poi.hssf.usermodel.HSSFDateUtil; import org.apache.poi.ss.usermodel.DateUtil; class convert { static void convertToXls(File inputFile, File outputFile) { StringBuffer cellDData […]

如何在R中读取大数字（可能是科学记数法）的csv？: 我有一个xls文件中的一些13位数字，我使用Excel生成csv文件，因为我需要在R中处理它。然后当R读取csv文件时，它不能识别大数字。例如，1329100082670在R中将显示为1.329E + 12，并失去其精度。我试图在Excel中将大数字格式化为文本，然后将其保存为csv，但是这样做不起作用！提前致谢！

使用逗号分隔而不是分号将excel保存为csv: 我有一个脚本，从xls转换为csv。它非常简单，只需用Excel对象打开xls，并将其保存为csv： cls Remove-Item *.csv $stringBuilder = New-Object System.Text.StringBuilder $objExcel = New-Object -ComObject Excel.Application $objExcel.Visible = $false $Tab = [char]9 $Pestana = 2 # Lee todos los excel de esta carpet $ListadoExcel = Get-ChildItem -filter "*.xlsx" foreach ($Linea in $ListadoExcel) { $Archivo = $Linea.FullName $ArchivoCorto = $Archivo.Replace('.xlsx','') "Procesando: "+$Archivo $WorkBook = $objExcel.Workbooks.Open($Archivo,$null,$True) #Solo lectura #Leemos […]

有没有一种方法可以使用不同于VBA默认的分隔符（vbCr / vbCrLf）来一次读取一行文件？: 我正在尝试读取多行.csv文件，并将每个令牌放置在Excel中的自己的单元格内。问题是我无法控制传入的.csv文件。它们在列数方面都是一样的（尽pipe可变的行数，但这很容易解释）。但是，无论出于什么原因，.csv文件的源代码有时会在标题行末尾放置一个CRLF ，有时它只放一个LF 。再次，我无法控制这一点，所以我必须围绕变化编码。据我所知，VBA线路Line Input #1, strLine使用CR或CRLF来划定线路，这是有道理的。我试图把整个.csv文件的内容放到一个单独的string中，然后使用Replace strFileContents, vbCr, ""来消除所有的CR字符，但是好像这样也消除了后来出现的所有CRLF ，我在哪里开始那么，有没有办法让我一次接受一行，使用Line Input #1, strLine而不是LF分隔符？或者还有另一种方法，我可以操纵一个string的全部内容（即摆脱只有CR而不是CRLF的实例），并从那里Split()string？这里是我的代码的缩写版本： Dim Column, Row As Integer 'used Sheets().Input(Row, Column).Value to insert strings Open strFilePath For Input Access Read As #1 Do Until EOF(1) Line Input #1, strLine strLine = Split(strLine, vbLf)(1) arr = […]

将VirtualStringTree导出为excel，csv？: 是否可以将VirtualStringTree导出到Excel或CSV？我正在使用Delphi 2007，并试图将我的VirtualStringTree数据logging保存为Excel或CSV格式。

如何在Excel中对HTML进行HTML编码或音译“高”字符？: 在Excel中，如何将包含重音字符，curl引号等的单元格的内容转换为相同字符的HTML或者音译明文版本？我们有一个包含一些“高”字符的XLS文件。数据已经通过数据库连接被引入，看起来Excel正确地处理了不同代码页中的单个单元（或行）。当我们将这些数据导出到一个CSV文件时，一些高字符的渲染效果不正确 – 看起来，Excel使用单一的编码方式（当然），以及原始代码页中字符的位值（这可能会也可能不会与同一文件中的其他值保持一致）。由于Excel在导出之前正确地呈现文本，因此我相信我们应该能够将高字符编码为其等效的HTML，然后导出为CSV，从而确保CSV仅为ASCII。（或者，我们可以将音译转换为纯ASCII，但这似乎是一个糟糕的做法，可能并不容易…）

如何重命名文件并更改文件types？: 我有一个.dbf文件的列表，我想要更改为.csv文件。我用Excel打开它们，然后把它们保存为.csv ，但是这需要太多的时间。现在我做了一个改变文件名的脚本，但是当我打开它时，它仍然是一个.dbf文件types（虽然它被称为.csv ）。我怎样才能以文件types也改变的方式重命名文件？我的脚本使用（dbf和csv文件名在一个单独的csv文件中列出）： IN = dbffile name OUT = csvfile name for output_line in lstRename: shutil.copyfile(IN,OUT)

从逻辑上parsing一个string在Excel中修剪附近的重复: 假设string： item1, item1N, item1Z, item1fhg, item1_any_letters, item2, item3, item3N, item3H 我的目标输出很简单 item1, item2, item3 这是目前大约10万行Excel文件，但可以暂时迁移到另一个程序等。基本上我需要确定重复项（以数字结尾的任何初始短语），而不考虑数字后面的字母。一些短语可能有例如“品牌item2，品牌item34”，唯一的决定因素是一个副本是任何和所有的术语后数字。任何想法从哪里开始呢？每个string通常有2到500个值，用逗号和空格隔开。最终价值之后没有逗号。

grep信息并保存为可读取的Excel文件？: 我有以下文件 There is a group of Lion in the forest. There are 3 active. There are 1 sleeping Lion1 is talking to Lion2 Lion2 is talking to Lion3 Lion3 is touching Lion1 There is a group of Turtle in the forest. There are 1 active. There are 0 sleeping There is a group of Monkey […]

将具有标题的大型CSV文件分割为具有标题的每第n行的多个CSV文件: 我有一个很大的CSV文件，我想分割成多个CSV文件。我已经尝试了许多VBS脚本，但我似乎无法得到这个。这个脚本做了一些我想要的，但不保存为CSV文件： Sub Split() Dim rLastCell As Range Dim rCells As Range Dim strName As String Dim lLoop As Long, lCopy As Long Dim wbNew As Workbook With ThisWorkbook.Sheets(1) Set rLastCell = .Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious) For lLoop = 1 To rLastCell.Row Step 35 lCopy = lCopy + 1 Set wbNew = Workbooks.Add .Range(.Cells(lLoop, 1), […]