|
|
|
Заменить строку в TXT файле (Excel! VBA! FileSystemObject?)
|
|||
|---|---|---|---|
|
#18+
Есть текстовый файл при помощи макроса VBA под Excel, нужно найти в фвйле строку и заменить ее на другую(остаток и начало файла оставить как и прежде до замены). Если кто знает как, ПОМОГИТЕ!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.04.2005, 15:26:05 |
|
||
|
Заменить строку в TXT файле (Excel! VBA! FileSystemObject?)
|
|||
|---|---|---|---|
|
#18+
Например так: Sub test() Const ForReading = 1 Const TristateFalse = 0 Set FSO = CreateObject("Scripting.FileSystemObject") Filename = "c:\aa\aaa.txt" Set F = FSO.OpenTextFile(Filename, ForReading, TristateFalse) WorkStrAll = F.ReadAll WorkStrAll = Replace(WorkStrAll, "abc", "defg") Set F = FSO.CreateTextFile(Filename, True) F.Write (WorkStrAll) F.Close End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.04.2005, 08:36:45 |
|
||
|
|
start [/forum/topic.php?fid=60&tid=2167911]: |
0ms |
get settings: |
8ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
67ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 208ms |
| total: | 353ms |
| 0 / 0 |
