Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/http/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用vb.net从txt文件修改/删除文本中的字符_Vb.net_Text Files - Fatal编程技术网

使用vb.net从txt文件修改/删除文本中的字符

使用vb.net从txt文件修改/删除文本中的字符,vb.net,text-files,Vb.net,Text Files,我在AutoCAD 0.000000、0.000000、0.000000中捕获了一个文本字符串,该字符串保存到名为position.txt的基于文本的文件中 由于您可能使用position.txt等文件名收集文本,因此文本可以由任意随机数组合组成,例如:5.745379、0.846290、150.6459046 然而,为了使它对我有任何用处,我需要捕获的字符串不带空格或括号,在VB.net中如何实现这一点?使用。这可能不是最有效的方法,但它将完成工作 Dim file as String = M

我在AutoCAD 0.000000、0.000000、0.000000中捕获了一个文本字符串,该字符串保存到名为position.txt的基于文本的文件中

由于您可能使用position.txt等文件名收集文本,因此文本可以由任意随机数组合组成,例如:5.745379、0.846290、150.6459046

然而,为了使它对我有任何用处,我需要捕获的字符串不带空格或括号,在VB.net中如何实现这一点?

使用。这可能不是最有效的方法,但它将完成工作

Dim file as String = My.Computer.FileSystem.ReadAllText("position.txt")

Dim output as String = file.Replace(" ", "") _
                           .Replace("(", "") _
                           .Replace(")", "")

My.Computer.FileSystem.WriteAllText("output.txt", output, false)
如上

s = "(5.745379, 0.846290, 150.6459046)"
s = s.replace("(","")
s = s.replace(")","")
然后

dim answer() as string = s.split(",")
dim number as double
For each a as string in answer
  if double.tryparse(a,n) then
    console.writeline(n.tostring & " is a number")
  else
    console.writeline(n.tostring & " is rubbish")
next

AutoLISP解决方案不是更有用吗?您想将5.745379、0.846290、150.6459046转换为5.7453790.846290150.6459046?我几乎想保留逗号,但下面的代码足以使用romthanks@albert-如果您认为我的解决方案有用,请接受is作为“已接受的解决方案”。这将提高你的声誉,因此你将来更有可能得到答案。谢谢:作为字符串替换,我希望这是一个变量,那么output.txt文件也是兼容的吗?@albert-是的。Replace函数返回一个字符串变量。因此,在我的代码示例中,输出变量包含position.txt的内容,但没有空格或括号。忽略WriteAllText行