Cześć,
Zrobiłem makro które zamienia kropki na przecinki w całym pliku tekstowym i zapisuje go jako osobny plik.
Okazało się, że wartość liczbowa w każdej linii musze zaokrąglić do 2 miejsc po przecinku a to już dla mnie za trudne. Pomożecie?
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\1.TXT", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText,".", ",")
Set objFile = objFSO.OpenTextFile("D:\2.TXT", ForWriting)
objFile.WriteLine strNewText
objFile.Close
Plik tekstowy wygląda następująco:
#WORKSHOP XXX
#MACHINE XXX
#PRODUCT XXX
#BATCH XXX
#INSPECT XXX
111111_111;0.025801;0.000000;0.033000;-0.084000;A
222222_222;0.017601;0.000000;0.032000;-0.069000;A
333333_333;0.029201;0.000000;0.036000;-0.084000;A
XXXXXX_XXX;0.037800;0.000000;0.076000;-0.074000;A
Do zaokrąglenia jest pogrubiony ciąg znaków.
Zaokrąglenie może być wykonane w tym samym pliku źródłowym, nie koniecznie musi być zapisany jako osobny plik.
Zgaduje że trzeba zrobić to przez readline oraz rozdzielenie linii na poszczególne człony (w tym przypadku separator to średnik) |
wstecz 1 dalej
otwarty rozpoczął: lesny1113
postów: 1
