时间匆忙，脚本未仔细测试

require 'rexml/document'

require 'win32ole'

include REXML

$input_file_name = ""

$output_file_name = ""

$column_names = ["Sample number", "Response Time", "Latency Time", "Time Start", "Status", "URL", "Return Code", "Return Msg", "Thread Number", "Date Type", "Bytes"]

def print_usage

puts "Usage: JmeterExtractor [JMeterResultFile] [ExcelFile]"

end

def check_input_file

if File.exist? $input_file_name

puts "input file "+ $input_file_name+" found"

else

puts "input file"+ $input_file_name+ " not found"

exit

end

end

def check_output_file

if File.exist? $output_file_name

puts "input file "+ $output_file_name+" found"

else

puts "input file"+ $output_file_name+ " not found"

exit

end

end

def init_excel

# -4100 is the value for the Excel constant xl3DColumn.

$ChartTypeVal = -4100;

# Creates OLE object to Excel

$excel = WIN32OLE.new("excel.application")

$excel.Visible = true

$excel.WorkBooks.Open($output_file_name)

worksheet = $excel.WorkSheets.Add();

worksheet.Activate

worksheet.name = Time.new.to_i.to_s

#  $excel.WorkSheets("testResults").Activate

end

def close_excel

$excel.ActiveWorkbook.Close(1)

$excel.Quit()

end

def get_start_time time

usec = time % 1000

sec = time/1000

Time.at(sec).to_s + " " + usec.to_s + "ms"

end

def get_status s

if (s.eql? "true")

"success"

else

"fail"

end

end

def print_excel_title

$column_names.each_index do |i|

$excel.Cells(1, i+1).value = $column_names[i]

end

end

arg_len = ARGV.length

#puts arg_len

case arg_len

when 0

$input_file_name = "C:/tool/jakarta-jmeter-2.3.1/workspace/1"

$output_file_name = "C:/tool/jakarta-jmeter-2.3.1/workspace/result.xls"

when 1

$input_file_name = ARGV[0];

$output_file_name = "C:/tool/jakarta-jmeter-2.3.1/workspace/result.xls"

when 2

$input_file_name = ARGV[0];

$output_file_name = ARGV[1];

else

end

#puts $input_file_name

#puts $output_file_name

check_input_file

check_output_file

init_excel

input_file = File.new($input_file_name);

doc = Document.new(input_file)

$element_index = 0

doc.elements.each("//httpSample") do |e|

$element_index += 1

print e.attributes["t"]

print " "

print e.attributes["lt"]

print " "

print e.attributes["ts"]

print " "

print e.attributes["s"]

print " "

print e.attributes["lb"]

print " "

print e.attributes["rc"]

print " "

print e.attributes["rm"]

print " "

print e.attributes["tn"]

print " "

print e.attributes["dt"]

print " "

print e.attributes["by"]

puts

STDOUT.flush

print_excel_title

$excel.Cells($element_index+1, 1).value = $element_index

$excel.Cells($element_index+1, 2).value = e.attributes["t"]

$excel.Cells($element_index+1, 3).value = e.attributes["lt"]

$excel.Cells($element_index+1, 4).value = get_start_time(e.attributes["ts"].to_i)

$excel.Cells($element_index+1, 5).value = get_status(e.attributes["s"])

$excel.Cells($element_index+1, 6).value = e.attributes["lb"]

$excel.Cells($element_index+1, 7).value = e.attributes["rc"]

$excel.Cells($element_index+1, 8).value = e.attributes["rm"]

$excel.Cells($element_index+1, 9).value = e.attributes["tn"]

$excel.Cells($element_index+1, 10).value = e.attributes["dt"]

$excel.Cells($element_index+1, 11).value = e.attributes["by"]

end

close_excel