Ĺadny brzuch
Witam,
ponizej podaje fragment kodu funkcji ktora ma zczytywac po lini zawartosc jednoego pliku, zmieniac cos w strumieniu i kopiowac zmiane do pliku drugiego. czyta prawidlowo, zamienia w strumieniu tez prawidlowo ale niestety nie chce mi nic skopiowac do drugiego pliku. Zrobilem zgodnie z msdn:
Visual Basic Copy Code Dim file As System.IO.StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter("c:\test.txt", True) file.WriteLine("Here is the first string.")
oto moj kod:
Public Sub ReadWriteIni() Dim plik As String Dim plik2 As String Dim XXX As String XXX = "kupa" Dim fileReader As System.IO.StreamReader Dim fileWriter As System.IO.StreamWriter plik = "C:\test.txt" plik2 = "C:\test3.txt" fileReader = FileIO.FileSystem.OpenTextFileReader(plik) fileWriter = FileIO.FileSystem.OpenTextFileWriter(plik2, True) Dim stringReader As String Do Until fileReader.EndOfStream stringReader = fileReader.ReadLine() MsgBox("The first line of the file is " & stringReader) stringReader = Replace(stringReader, "abc", XXX) MsgBox("After change is " & stringReader) fileWriter.Write(stringReader) Loop End Sub
bede wdzieczny za wszelka pomoc.
Pozdrawiam
EDYCJA:
gdyby kto byl w stanie naprowadzic mnie troche do tego jak zmienic w vb2005 jakis znak w pliku bez kopiowania go do innego byloby super.
Użytkownik budox edytował ten post 03 sierpień 2006, 17:34
Na vb się nie znam, ale z doświadczenia wiem, że nie da się zamień wyrazu w pliku - można co najwyżej nadpisać kiedy znasz dokładne położenie i długość wyrazu, np.
blabla aalala wyraz pvlaslsg
Nadpisuje wyraz na zaryw:
blabla aalala zaryw pvlaslsg
Jeżeli chcesz zmienić wyraz, to najlepiej wczytać cały plik do jakiegoś bufora, zmienić wyraz, i go zapisać bufor do tego samego pliku.
Na vb się nie znam, ale z doświadczenia wiem, że nie da się zamień wyrazu w pliku - można co najwyżej nadpisać kiedy znasz dokładne położenie i długość wyrazu, np.
blabla aalala wyraz pvlaslsg
Nadpisuje wyraz na zaryw:
blabla aalala zaryw pvlaslsg
Jeżeli chcesz zmienić wyraz, to najlepiej wczytać cały plik do jakiegoś bufora, zmienić wyraz, i go zapisać bufor do tego samego pliku.
Witam,
znam dokladne polozenie wyrazu.
Pisze program(programik:) ktory wykonuje jakies tam zapytania ldap. W programie jest textbox ktory pozwala na wpisanie inne nazwy domeny, chcialbym aby wpisanie i "apply" powodowaly zmiane w pliku ini z ktorego nazwa domeny jest czytana podczas ladowania programu.
czyli w pliku ini znam pozycje nazwy domeny
nazwa_domeny = TO _CO_CHCE_ZMIENIC [\code] caly plik ini zawiera maks 4 linijki. Jest opcja wczytania calosci do jednogo strumienia ale wtedy nie wstawia ENTER czyli nie przechodzi do kolejnej lini tylko kopiuje wszystko do jednej lini. Ale wracajac do mojego pytania: co jest nie tak z tym zapisem , ze nie chce wczytywac lini do pliku plik3.txt ? [code] Public Sub ReadWriteIni() Dim plik As String Dim plik2 As String Dim XXX As String XXX = "kupa" Dim fileReader As System.IO.StreamReader Dim fileWriter As System.IO.StreamWriter plik = "C:\test.txt" plik2 = "C:\test3.txt" fileReader = FileIO.FileSystem.OpenTextFileReader(plik) fileWriter = FileIO.FileSystem.OpenTextFileWriter(plik2, True) Dim stringReader As String Do Until fileReader.EndOfStream stringReader = fileReader.ReadLine() MsgBox("The first line of the file is " & stringReader) stringReader = Replace(stringReader, "abc", XXX) MsgBox("After change is " & stringReader) fileWriter.Write(stringReader) Loop
Użytkownik budox edytował ten post 04 sierpień 2006, 07:52
Witam,
ok, dzieki za pomoc :), to dziala prawidlowo :
Public Sub ReadWriteIni() Dim plik As String Dim plik2 As String Dim XXX As String XXX = "kupa" Dim fileReader As String Dim fileWriter As String plik2 = "C:\test3.txt" plik = "C:\test.txt" fileReader = FileIO.FileSystem.ReadAllText(plik) fileReader = Replace(fileReader, "abc", XXX) FileIO.FileSystem.WriteAllText(plik, fileReader, False) Dim stringReader As String End Sub
Witam,
jednak mam nadal problem z ktorym nie moge sobie poradzic.
Wiem juz jak zmienic wartosc w pliku ini poprzez pobranie jej z formularza tak jak napisalem wczesniej. Jednak mam problem z pobraniem wartosci z pliku podczas ladowania sie programu. Czy kots moglby mnie jakos naprowadzic?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
ponizej podaje fragment kodu funkcji ktora ma zczytywac po lini zawartosc jednoego pliku, zmieniac cos w strumieniu i kopiowac zmiane do pliku drugiego. czyta prawidlowo, zamienia w strumieniu tez prawidlowo ale niestety nie chce mi nic skopiowac do drugiego pliku. Zrobilem zgodnie z msdn:
Visual Basic Copy Code Dim file As System.IO.StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter("c:\test.txt", True) file.WriteLine("Here is the first string.")
oto moj kod:
Public Sub ReadWriteIni() Dim plik As String Dim plik2 As String Dim XXX As String XXX = "kupa" Dim fileReader As System.IO.StreamReader Dim fileWriter As System.IO.StreamWriter plik = "C:\test.txt" plik2 = "C:\test3.txt" fileReader = FileIO.FileSystem.OpenTextFileReader(plik) fileWriter = FileIO.FileSystem.OpenTextFileWriter(plik2, True) Dim stringReader As String Do Until fileReader.EndOfStream stringReader = fileReader.ReadLine() MsgBox("The first line of the file is " & stringReader) stringReader = Replace(stringReader, "abc", XXX) MsgBox("After change is " & stringReader) fileWriter.Write(stringReader) Loop End Sub
bede wdzieczny za wszelka pomoc.
Pozdrawiam
EDYCJA:
gdyby kto byl w stanie naprowadzic mnie troche do tego jak zmienic w vb2005 jakis znak w pliku bez kopiowania go do innego byloby super.
Użytkownik budox edytował ten post 03 sierpień 2006, 17:34
Na vb się nie znam, ale z doświadczenia wiem, że nie da się zamień wyrazu w pliku - można co najwyżej nadpisać kiedy znasz dokładne położenie i długość wyrazu, np.
blabla aalala wyraz pvlaslsg
Nadpisuje wyraz na zaryw:
blabla aalala zaryw pvlaslsg
Jeżeli chcesz zmienić wyraz, to najlepiej wczytać cały plik do jakiegoś bufora, zmienić wyraz, i go zapisać bufor do tego samego pliku.
Na vb się nie znam, ale z doświadczenia wiem, że nie da się zamień wyrazu w pliku - można co najwyżej nadpisać kiedy znasz dokładne położenie i długość wyrazu, np.
blabla aalala wyraz pvlaslsg
Nadpisuje wyraz na zaryw:
blabla aalala zaryw pvlaslsg
Jeżeli chcesz zmienić wyraz, to najlepiej wczytać cały plik do jakiegoś bufora, zmienić wyraz, i go zapisać bufor do tego samego pliku.
Witam,
znam dokladne polozenie wyrazu.
Pisze program(programik:) ktory wykonuje jakies tam zapytania ldap. W programie jest textbox ktory pozwala na wpisanie inne nazwy domeny, chcialbym aby wpisanie i "apply" powodowaly zmiane w pliku ini z ktorego nazwa domeny jest czytana podczas ladowania programu.
czyli w pliku ini znam pozycje nazwy domeny
nazwa_domeny = TO _CO_CHCE_ZMIENIC [\code] caly plik ini zawiera maks 4 linijki. Jest opcja wczytania calosci do jednogo strumienia ale wtedy nie wstawia ENTER czyli nie przechodzi do kolejnej lini tylko kopiuje wszystko do jednej lini. Ale wracajac do mojego pytania: co jest nie tak z tym zapisem , ze nie chce wczytywac lini do pliku plik3.txt ? [code] Public Sub ReadWriteIni() Dim plik As String Dim plik2 As String Dim XXX As String XXX = "kupa" Dim fileReader As System.IO.StreamReader Dim fileWriter As System.IO.StreamWriter plik = "C:\test.txt" plik2 = "C:\test3.txt" fileReader = FileIO.FileSystem.OpenTextFileReader(plik) fileWriter = FileIO.FileSystem.OpenTextFileWriter(plik2, True) Dim stringReader As String Do Until fileReader.EndOfStream stringReader = fileReader.ReadLine() MsgBox("The first line of the file is " & stringReader) stringReader = Replace(stringReader, "abc", XXX) MsgBox("After change is " & stringReader) fileWriter.Write(stringReader) Loop
Użytkownik budox edytował ten post 04 sierpień 2006, 07:52
Witam,
ok, dzieki za pomoc :), to dziala prawidlowo :
Public Sub ReadWriteIni() Dim plik As String Dim plik2 As String Dim XXX As String XXX = "kupa" Dim fileReader As String Dim fileWriter As String plik2 = "C:\test3.txt" plik = "C:\test.txt" fileReader = FileIO.FileSystem.ReadAllText(plik) fileReader = Replace(fileReader, "abc", XXX) FileIO.FileSystem.WriteAllText(plik, fileReader, False) Dim stringReader As String End Sub
Witam,
jednak mam nadal problem z ktorym nie moge sobie poradzic.
Wiem juz jak zmienic wartosc w pliku ini poprzez pobranie jej z formularza tak jak napisalem wczesniej. Jednak mam problem z pobraniem wartosci z pliku podczas ladowania sie programu. Czy kots moglby mnie jakos naprowadzic?