Tag: csv

从Excel导入创build一个时间向量

我正在使用csv文件中的数据，这些数据看起来都是一样的，所以我希望能够提供一个可以轻松应用到所有这些代码的代码。 然而，可悲的是，我在第一步失败了:-(。 csv文件将date和时间保存在一列中，所以当我用read.csv将它们导入时，该列将被读为chr。 我怎样才能最轻松地把它转换成一个date，然后我可以用它来绘图和分析？ 这是我试过的： 加载数据 – >将把date和时间保存为mdata $ Date.Time（例如1/1/15 0:00） mydata<-read.csv(file.choose(), stringsAsFactors = FALSE, strip.white = TRUE, na.strings = c("NA",""), skip=16, header=TRUE) 将Date.Time分隔为date和时间： new <- do.call( rbind , strsplit( as.character( mydata$Date.Time ) , " " ) ) 将这两个添加回df mydata： cbind( mydata , Date = new[,2] , Time = new[,1] ) 通过as.Date将date转换为date格式： mydata $ Date […]

控制器和下载文件与'send_data'

我可以创buildxl和csv文件格式，并且希望在表单中为它们创build一个下载链接。 用户可以使用此表单生成loggingsearch =simple_form_for :guestlist_booking_search, controller: 'guestlist_bookings_controller', action: 'index', method: :get do |f| %fieldset %legend Guestlist Booking Search = f.input :lastname = f.input :start, as: :string, class: "form-control auto_picker1", :input_html => { :class => 'auto_picker1', value: guestlist_booking_search.start.strftime('%d-%m-%Y %H:%M') } = f.input :finish, as: :string, class: "form-control auto_picker2", :input_html => { :class => 'auto_picker2', value: guestlist_booking_search.finish.strftime('%d-%m-%Y %H:%M') […]

Python – 使用csv和xlrd模块将多行excel文件写入一行csv文件

我有一个基本的脚本，将采取源Excel（.xlsx）文件，并将数据写入python中匹配的CSV文件。 我的最终目标是把所有的数据放在一张表中，并把它写成一个长逗号分隔的行，我不知道如何完成这个到目前为止的基础。 def csv_from_excel(): import csv import xlrd wb1 = raw_input('What is the path and file name of your Workbook? ') sh = raw_input('What is the name of the sheet being transformed? ') csv_file1 = raw_input('What is the file path and name of the output? ') print wb1 print sh print csv_file1 wb = xlrd.open_workbook(wb1) […]

ExcelmacrosCSV问题

即时通讯使用一个Excel的macros，它生成一个CSV文件与我所有的数据上传到Gmail作为联系人。 当file upload到Gmail联系人时，手机号码和工作号码正确，但人员姓名作为“名字：Yash”进入笔记框。 我附加一个由macros生成的示例CSV文件。 在这里下载示例CSV 即时通讯使用下面的macros来生成CSV的： Sub getcsv() Application.ScreenUpdating = False csvnewsheet Dim myRange As Range Dim NumRows As Integer Set myRange = ActiveSheet.Range("A:A") NumRows = Application.WorksheetFunction.CountA(myRange) Range("E1").Select ActiveCell.FormulaR1C1 = "First Name" Range("E2").Select ActiveCell.FormulaR1C1 = "=CONCATENATE(Reports!R[5]C2,"" "",Reports!R[5]C1)" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E" & NumRows + 1) Range("E2:E3").Select Columns("E:E").EntireColumn.AutoFit hide_format Exporttocsv DelSht Application.ScreenUpdating = True End Sub Sub […]

打开并阅读没有表格名称的CSV文件

我试图编写VBA代码，它将读取给定的CSV文件名，并在写入另一个CSV文件之前对数据进行一些更改。 Set oSht_Input = Workbooks.Open(file_Path, UpdateLinks:=False).Worksheets(extractDataFile.convertedSheetName) lastRow = oSht_Input.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row For Rows = 2 To lastRow extractedDataFileRecord.Variable1 = CStr(oSht_Input.Cells(Rows, 1)) …. code continues 这个代码一般工作正常。 但是，缺点是CSV文件只会将文件名复制到表名中。 因此，我可以安全地假定variablesconvertedSheetName等同于提供的文件名。 如果文件名称足够短，可以将该代码复制到表格名称中。 但是，如果文件名太长，文件名会在表名中被截断，所以我无法得到正确的引用来设置Worksheet对象。 有没有更好的方法来实际获取表单引用，以便我可以读取表单内的单元格值？

在Excel数据系列中匹配开始和结束date时间

我写了一个macros来格式化大约20个.csv文件，其中列b（即21/01/2015 03:15）中的测量date时间和列c中的相应数据。 然后将所有.csv文件中的数据复制到新的工作表Workbooks("CSV fix RPS data_v6.xlsm").Sheets("a") 每个.csv的开始/结束时间都不相同。 我想修改代码，以便查看所有date列中的最新开始时间/最早结束时间，并从所有数据中复制此时间段的数据，并将其粘贴到新的表单中。 我的代码到目前为止，但我有点卡住如何开始比较date时间。 Sub Get_raw_data_RPSCSV_30_03_15() Dim row As Integer Dim row_1 As Integer Dim col As Integer Dim col_2 As Integer Dim col_3 As Integer Dim time_last As Date Dim EndRow As Long Dim date_start As Date Dim time_start As Date Dim DateTime As Date Dim FinalRow As Long […]

从Weka打开Excel文件？

如何将excel转换为CSV以weka打开“arff file”？ 我知道我应该将文件保存在csv“coma delimeted”中，并用weka打开它。 但我的问题，当我这样做，我看到所有的属性转换为一个属性 这个文件的截图，在我的数据从Excel导出到CSV后，我用纯文本编辑器（Notepad ++）打开它！ > Student Track ;Elective course ;Student level;Elective course grade;IC Selm;ARAB;MATH106 Integral Calculus ;MATH 244 Linear Algebra;CSC 113 Computer Programming (2);IT 221 Computer Organization & Assembly Language;IT 211 HCI (1);IT212 Data Structures;IT 224 Networks(1);IT 321 Computer Architecture ;IT 311 Web Applications;IT 323 Software Engineering (2);IT 325 Operating Systems ;IT […]

VBA Excel文件为CSV，保持CSV文件名与原始工作簿相同

我试图find一个快速的方式来保存我的xlsx文件作为csv文件与xlsx文件相同的文件名（只是在csv格式）。 我logging了一个macros的快捷方式，但问题是，每当我尝试一个新的文件，它保存为一个相同的文件名我logging最初的macros（即见下文，可能是因为我有代码标记为： 3WDL_1 (2014-08-07)10secDataTable sit.csv ）。 有什么我需要replace3WDL_1 (2014-08-07)10secDataTable sit.csv与macros使用与我正在使用的实际工作簿相同的文件名保存保存。 所以基本上我有一个文件夹充满了xlsx文件，我想在每个xslx文件上使用快捷方式/macros将它们转换成与原始xlsx文件具有完全相同名称的csv文件，并保存到同一个文件夹中。 Sub xlstocsv() ' ' xlstocsv Macro ' ' Keyboard Shortcut: Ctrl+a ' Columns("A:A").Select Range("A41243").Activate Selection.NumberFormat = "0.00" ActiveWindow.ScrollRow = 41231 ActiveWindow.ScrollRow = 41090 ActiveWindow.ScrollRow = 39753 ActiveWindow.ScrollRow = 30184 ActiveWindow.ScrollRow = 26385 ActiveWindow.ScrollRow = 13017 ActiveWindow.ScrollRow = 10976 ActiveWindow.ScrollRow = 8162 ActiveWindow.ScrollRow = 4785 ActiveWindow.ScrollRow […]

VBA代码将CSV转换为XLS

目标：我有一个文件夹，其中有多个CSV转储到我的驱动器上。 这些CSV需要被转换为XLS文件并保存（作为XLS文件）到相同的原始文件夹中。 我有一个代码（粘贴在下面），它工作得很好，但… 问题：每次都会popup一个窗口，说“代码执行已经中断”，允许我继续，结束或debugging。 每次popup窗口（每popup一个需要转换的文件），我都可以点击继续，这个脚本就能正常工作，当然，我不需要点击继续可能的上百次。 以下代码的星号部分是单击debugging时突出显示的部分。 Sub Convert_CSV_XLS() Dim wb As Workbook Dim strFile As String, strDir As String strDir = "xx:\xx\xx\xx\xx\xx\xx\xx\" strFile = Dir(strDir & "*.csv") Do While strFile <> "" Set wb = Workbooks.Open(Filename:=strDir & "\" & strFile, Local:=True) **wb.SaveAs Replace(wb.FullName, ".csv", ".xls"), 56** wb.Close SaveChanges:=False Set wb = Nothing strFile = Dir […]

我怎样才能在Excel中做一个LESS？

我有两个excel列，一个7000行，一个600。 对于600中的每一个，如果它存在于7000中，我希望它从列表中删除。 所以，如果假设我的600个问题中的200个被包含在7000中，我将留下一个包含400的列。我相信这将被表示为A / B，一个是600个句子的列表，B是7000。 我确信有这样一个简单的方法，但是我对Excel不熟悉，而且我的老板在过去的一个小时里一直在向我大喊，所以很难集中注意力！ 任何帮助将不胜感激。 我对任何语言或工具都是开放的。 谢谢