Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zmiana zawartości pliku
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004
Zmiana zawartości pliku

Witam

Mam sobie plik, w którym są następujace linie:

Under = 1
Spaces =1
UCase = 1
Replace = 1

W jaki sposób zamienić jedynkę w linii trzeciej na zero ?

Nie chciałbym usuwać całej linii i wpisywać od nowa "UCase = 0" tylko zamienić samą jedynkę

Pozdrawiam


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

05-08-2004 21:20
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Można tak:
powiedzmy, że w zmiennej Text jest ten text.

dim Linia as variant
const Enter=vbnewline
linia=split(text,enter)
dim I as byte,Wyjsciowe as string
linia(3)=left(linia(3),len(linia(3))-1) & "0"
for i=1 to 4
wyjsciowe=wyjsciowe & linia(i) & enter
next
wyjsciowe=left(wyjsciowe,len(wyjsciowe)-2)

Nie wiem, czy będzie działać, ale powinno. Na wszelki wypadek wstaw w lini ''wyjsciowe=left(wyjsciowe,len(wyjsciowe)-2)'' połapkę (F9).


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

05-08-2004 21:59
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1