Question

我想用2行延长图表的较短线，直到出现下一个值。所以我们必须继续行。这可能吗？

Dim strDxl as String
Dim strFoundBase64 as String
Dim exporter as NotesDXLExporter
Dim stream as NotesStream
Dim docConvert as NotesDocument
Dim mimeEntity as NotesMimeEntity
Set exporter = session.CreateDXLExporter
exporter.ConvertNotesBitmapsToGIF = True

strDxl = exporter.Export(document)

'- Search through strDxl and find everything that is in the following tags:
'- <gif></gif>, <gif originalformat='notesbitmap'></gif>, <jpeg></jpeg>, <png></png>
strFoundBase64 = ...'assign text between tags


'- use Mime class to convert to binary
Set docConvert = New NotesDocument( document.ParentDatabase )
Set mimeEntity = docConvert.CreateMIMEEntity
Call mimeEntity.SetContentFromBytes(strFoundBase64, "image/gif", ENC_BASE64)
'- Write result to file
Set stream = ses.CreateStream
Call stream.Open( "C:\Temp\image.gif", "binary")
Call mimeEntity.GetContentAsBytes(stream)
Call stream.Close()

例如，请参阅jsfiddle：http://jsfiddle.net/vCVhE/1/

Answer 1

这个问题在很大程度上取决于你打算如何添加新值，如果它总是只有2行而第二行总是最短......

无论如何，我使用此功能来解决您所显示的具体问题，但我认为根据您的具体情况调整它并不困难：

// append point
var chart = $('#container').highcharts();
var max_length1 = chart.series[0].data.length-1; //longer
var max_x1 = chart.series[0].data[max_length1].x;     
var max_length2 = chart.series[1].data.length-1; //shorter
var max_x2 = chart.series[1].data[max_length2].x;
var max_y2 = chart.series[1].data[max_length2].y;     
var delta_x = (max_x2-chart.series[1].data[max_length2-1].x);
var delta_y = (max_y2-chart.series[1].data[max_length2-1].y);
var new_y = max_y2+(delta_y/delta_x)*(max_x1-max_x2);

chart.series[1].addPoint([max_x1,new_y]);

JSFiddle Updated

延长线直到出现新值

1 个答案: