text?
Posted: Tue Nov 07, 2006 9:29 am
del
Code: Select all
OpenFile(0, "C:\Text.txt")
OpenFile(1, "C:\Text1.txt")
WriteStringN(0, "abc")
WriteStringN(1, ReplaceString("abc","a","W"))
CloseFile(0)
CloseFile(1)
Code: Select all
OpenFile(0, "C:\Text.txt")
result$ = ReplaceString("abc","a","W")
WriteStringN(0, result$)
CloseFile(0)
Code: Select all
OpenFile(0, "C:\Text.txt")
WriteStringN(0, ReplaceString("abc","a","W"))
CloseFile(0)
Code: Select all
; create a file and write some random text to it
OpenFile(0, "c:\test.txt")
For i=0 To 4200
WriteString(0, Chr(65+Random(55)))
Next
CloseFile(0)
; now, replace all occurences of 'x' with 'y' (case-insensitve)
OpenFile(0, "c:\test.txt")
tmp$ = ReplaceString(ReadString(0), "x", "y", 1)
FileSeek(0,0)
WriteString(0,tmp$)
CloseFile(0)
spioner wrote:Particularly note "traumatic".
Here in the forum and a very good set of examples here:spioner wrote:PureBasic the best, but very laconic Help Files. Where I can find more references ? As well as where I can find much examples ?
вы поймете нас более лучше если мы пытаемся поговорить русского?spioner wrote: I am not very well English.