vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest środa, 07 grudnia 2022 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Zaokrąglenie liczby z wycinka wiersza w pliku .TXT


otwartyotwarty rozpoczął: lesny1113 postów: 1



napisał: lesny1113
postów: 1


umieszczony:
17 sierpnia 2022
14:39

  
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->
wszystkich stron: 1


Sortuj posty: z