Excel VBA 循环访问三元组并添加负号

Question

我有一个 kml 文件的纬度和长字符串，我想在下面的字符串中更改所有经度值负数。

我认为最简单的方法是将它们分成三元组并遍历每行并在第一个数字上添加一个负号。

latlong = "1.48638,54.9621256516623,0 1.48521523184216,54.9621324923351,0 1.48405081848398,54.9621530122697,0 1.48288711461705,54.9621872052157,0 1.48172447471685,54.9622350607575"
latlong = Replace(latlong, " ", vbCrLf)

从

1.48638,54.9621256516623,0
1.48521523184216,54.9621324923351,0
.....

自

-1.48521523184216,54.9621324923351,0
-1.48405081848398,54.9621530122697,0

非常感谢您的帮助。

Answer 1

试试这个

latlong = "-" & latlong
latlong = Replace(latlong, " ", vbCrLf & "-")