Тема: VBS: Запись в файл инвертированным образом, конкатенация строк
Ребят, у меня идет обычная запись в файл путем добавления:
Dim fso, tf, time
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Set tf = fso.OpenTextFile("c:\testfile.txt", ForAppending, True)
time = Now()
tf.Write(time)
tf.WriteLine(" Не удалось запустить процесс.")
По-прежнему хотелось бы узнать как одной строкой вот это можно оформить? (Не знаю, как преобразовать переменную time в строку, чтобы осуществить конкатенацию)
tf.Write(time)
tf.WriteLine(" Не удалось запустить процесс.")
На выходе в файле получается что-то типа этого:
13.02.2011 15:38:53 Не удалось запустить процесс.
14.02.2011 15:38:53 Не удалось запустить процесс.
15.02.2011 15:38:53 Не удалось запустить процесс.
и т.д.
Не подскажите, как можно сделать, чтобы последняя строчка была на самом верху (то есть, чтобы происходила обратная запись в файл -все новое наверх)? Вот так:
и т.д.
15.02.2011 15:38:53 Не удалось запустить процесс.
14.02.2011 15:38:53 Не удалось запустить процесс.
13.02.2011 15:38:53 Не удалось запустить процесс.
Спасибо!
Так, с конкатенацией разобрался, оказывается надо было всего лишь написать:
tf.WriteLine(time & " Не удалось запустить процесс.")
Но на эту тему созрел еще один вопрос: пусть на входе есть 2 строковые переменные "Люблю " и "Мир!". На выходе надо получить "Люблю Мир!".
Я пытался сделать следующим образом:
love = """Люблю """
what = """Мир!"""
res = l & m
MsgBox res
На выходе у меня получается: "Люблю ""Мир!"
Если же сделать так:
love = "Люблю "
what = "Мир!"
res = """l & m"""
MsgBox res
То оператор & и переменные l,m будут восприниматься как обычные символы, и на выходе получится: "l & m".
А вот как можно загнать эти слова под общие кавычки? И реально ли это осуществить?