小编Tha*_*ess的帖子

当我将 a 中的数字移动PIC X到 a 时PIC 9，数字字段的值为 0。

FOO中，PIC X(400)具有“1”在余下的399移动第一字节和空格到PIC 9(02) BAR像这样

DISPLAY FOO
MOVE FOO to BAR
DISPLAY BAR

产量

1
0

为什么 BAR 是 0 而不是 1？[编辑：最初，'发生了什么？']

后记：NealB 说“不要编写依赖于晦涩的截断规则和/或数据类型强制的程序。在你所做的事情中要精确和明确。”

这让我意识到我真的想要COMPUTE BAR AS FUNCTION NUMVAL(FOO)包含在NUMERIC测试中，而不是MOVE.

我有一个现有的Stringand HashSet(Of String)，但是下面的代码

Dim myDict As New Dictionary(Of String, HashSet(Of String))(myString, myHashSet)

产生这个 Intellisense 错误： Argument matching parameter 'comparer' narrows from 'System.Collections.Generic.HashSet(Of String)' to 'System.Collections.Generic.IEqualityComparer(Of String)'

创建这本词典的正确方法是什么？

我有一个这样的数据框:

  message.id sender recipient
1          1      A         B
2          1      A         C
3          2      A         B
4          3      B         C
5          3      B         D
6          3      B         Q

我想通过发送方和收件人列中的值计数来总结它,以获得:

  address messages.sent messages.received
1       A             3                 0
2       B             3                 2
3       C             0                 2
4       D             0                 1
5       Q             0                 1

我有工作代码,但它很混乱,我希望有一种方法可以在一个magrittr链中完成所有操作而不是我在下面的操作:

df <- data.frame(message.id = c(1,1,2,3,3,3),
                 sender = c("A","A","A","B","B","B"),
                 recipient = c("B","C","B","C","D","Q"))
sent <- df %>% 
  group_by(sender) %>%
  summarise(messages.sent = n()) %>%
  mutate(address = sender) %>% …

结论:我使用了一个正则表达式,它在一行代码中处理任意长度的字符串中的数字和字母.

       dim rtn as String = Regex.Replace(input, "..", "$& ")

我想取任意长度的数字字符串,每2个字符插入一个空格.所以1233456变为12 33 45 6.

有没有办法可以将格式用作字符串或IFormatProvider,比如？这会限制字符串的长度,对吧？因为我要投入很长时间.

        CLng((input)).ToString("## ")

编辑 - 这是原始问题.我想取任意长度的字符串并每2个字符插入一个空格.123dssas4rr应该变为12 3d ss为4r r

我笨手笨脚地使用

    Dim rtn As String = String.Empty

    Dim i As Integer = 0
    For Each a In input.ToCharArray
        rtn = String.Concat(rtn, a)
        i = i + 1
        If i Mod 2 = 0 Then
            rtn = String.Concat(rtn, " ")
        End If
    Next

如果我有2个完整的连续段落,我应该如何设置它们以便它们之间只有一个换行符(所以没有空行)？

例如

<p>First paragraph</p>
<p>Second paragraph</p>

应呈现为

First paragraph
Second paragraph

我正在使用XSLT生成此HTML.

对于字符串的2名名单s和t,我想获得S的成员不在中.在每个列表中,没有重复项.

在Python中,我会使用 s.difference(t)

是否有类似简洁的.NET方法？我想避免使用循环.

我有一个List(Of HashSet(Of String)).是否有一个清晰的单行LINQ方式来获取HashSet(Of String)包含列表条目值中所有字符串的单个行？

例如,从3个哈希集{"A"},{"A","B","C"}和{"B","C","D"}我想要一个哈希集{" A B C D"}.

我很确定我可以用.Aggregate()或做些什么.Accumulate().

C#或VB.NET解释同样有用.

我想创建一个包含一些(n)个相同条目的List.

我可以使用这样的循环:

For i As Integer = 1 To n
    myList.Add(myEntry)
Next

是否有更短的LINQ-ier方式？

我有一张地图,我已经在地图上成功绘制了一系列LineStrings.

但我真正想做的是在每个LineString定义的路线上设置动画圆圈.

我看几个例子(http://bl.ocks.org/zross/6a31f4ef9e778d94c204,http://www.tnoda.com/blog/2014-04-02),但我不知道我怎么竟将圆圈放在起点,然后让它们沿着路径行进.

这是我绘制路径的地图(红色表示可见性) 这是我的代码 - hydro_map是一个转换为GeoJSON FeatureCollection的shapefile,stations是一个GeoJSON特征集合(只是点),links是一个LineString数组.我想创建圆圈,然后将它们转换为我创建的每个路径.

var width = 900, height = 800;
var projection = d3.geo.mercator().center([-87.55,41.919]).scale(170000);
var path = d3.geo.path().projection(projection);

var svg = d3.select("#output").append("svg")
    .attr("width", width)
    .attr("height", height)
    .call(d3.behavior.zoom()
    .on("zoom", redraw))
    ;

var g = svg.append("g");
var terrainGroup = g.append("g");
var arcGroup = g.append("g");
var stationGroup = g.append("g");
var tripGroup = g.append("g");

//draw terrain
terrainGroup.append("path")
         .datum({type: "FeatureCollection", features: hydro_map.features})
         .attr("d", path)
         .style("fill", "#3db7e4");

//plot stations
stationGroup.selectAll("circle")
    .data(stations.features).enter()
    .append("path") …

使用EPPlus阅读电子表格时，我很惊讶地看到Dimension.End.Column返回的索引（基于1的索引）比我知道的最后一个索引更高。

例如，在这样的电子表格中：

   A       B       C       D...
1  value

我希望Dimension.End.Column为1，对应于第一列。

但是，它通常更大。这是为什么？

我正在尝试重塑数据框,以便列中的每个唯一值都成为二进制列.

我已经提供了如下所示的数据:

df <- data.frame(id = c(1,1,2),
                 value = c(200,200,1000),
                 feature = c("A","B","C"))

print(df)

##id,value,feature
##1,200,A
##1,200,B
##2,1000,C

我正在尝试将其重塑为:

##trying to get here
##id,value,A,B,C
##1,200,1,1,0
##2,1000,0,0,1

spread(df,id,feature) 失败,因为ids重复.

我想重塑数据以便于建模 - 我试图从功能的存在与否来预测价值.