2010-11-29 19 views
0

J'ai une chaîne de texte capturée dans AutoCAD (0.000000, 0.000000, 0.000000) qui est enregistrée dans un fichier texte nommé position.txt.Modification/suppression des caractères dans le texte du fichier txt en utilisant vb.net

que vous avez probablement gatherd avec un nom de fichier tel que position.txt le texte pourrait être composé d'un exemple de combinaison de nombres aléatoires: (5,745379, 0,846290, 150,6459046).

Cependant, pour que ce soit utile pour moi, j'ai besoin de la chaîne capturée pour exister sans espaces ou entre parenthèses comment puis-je l'obtenir dans VB.net?

+0

Est-ce pas une solution AutoLISP plus utile? –

+0

Vous voulez transformer "(5.745379, 0.846290, 150.6459046)" en "5.7453790.846290150.6459046"? – smirkingman

+0

presque je veux garder les virgules, mais le code ci-dessous est suffisant pour travailler grâce merci – albert

Répondre

0

Utilisez String.Replace. Ce n'est probablement pas le moyen le plus efficace, mais il fera le travail.

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) 
+0

AutoLISP pourrait être utilisé mais je dois passer la chaîne sur VB.net de toute façon ... – albert

+0

@albert - si vous avez trouvé ma solution utile , s'il vous plaît accepter est comme la «solution acceptée». Cela améliorera votre réputation et vous aurez plus de chances d'obtenir des réponses à l'avenir. Merci :) –

+0

Qua la chaîne remplace je préfère cette à une variable puis un fichier output.txt est-ce aussi compatible? – albert

0

comme ci-dessus

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

puis

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