Я зависит от того, насколько точно вы хотите, чтобы измеренное время было. Следующий модуль позволит вам рассчитать время с точностью до миллисекунд.
module time_keeper
implicit none
integer :: start(8), now(8)
contains
subroutine startclock( )
implicit none
call date_and_time(values=start)
end subroutine startclock
subroutine elapsedtime_s( et_s )
implicit none
integer :: diffs(8)=0
real , intent(out):: et_s ! in seconds
call date_and_time(values=now)
! - Find the difference in times
diffs = now - start
! - This works only when the time is measured in a specific month
if (diffs(3) > 0) then
diffs(5) = 24*diffs(3) + diffs(5)
endif
et_s = diffs(5) * 3600 + diffs(6) * 60 + diffs(7) + 1e-3 * diffs(8)
end subroutine elapsedtime_s
end module time_keeper
program main
use time_keeper
implicit none
integer :: x=0, i
real :: et_s
call startclock()
do i = 1, 1e5
x = x + 1
end do
call elapsedtime_s( et_s )
write(*,*) et_s
end program main
Обратите внимание, что time_keeper::elapsedtime_s
работает, только если время измеряется в течение месяца. Если вы хотите, чтобы измерения также учитывались в месяцах, вы можете расширить подпрограмму. Это должно быть просто.
Другие варианты включают временную библиотеку , system_clock
(см. здесь ). Ссылка для date_and_time
здесь здесь
Во-первых, Резервное копирование Ваши Проекты, на всякий случай... Всегда хорошая идея перед массовыми заменами.
Затем в Найти/Заменить Диалоговом окне установите флажок Use Regular Expressions:
В поле Find используйте шаблон:
HttpContext\.Current\.Session\["{.@}"\]
и в поле Replace, используйте:
HttpContext.Current.Session["\1"].ToString()
Легкий... используют регулярные выражения и группировку.
Найдите что: (HttpContext. Текущий. Сессия [“whatevervalue”])
Замена: \0. ToString ();
Не забудьте проверять Использование: и выберите Регулярные выражения
Можно использовать Визуальный, Помогают для задач как это. Это - мощный инструмент для различных видов рефакторинга.
Вы могли также рассмотреть использование инструмента Refactor бесплатной загрузки, доступного по http://www.devexpress.com/Products/NET/IDETools/RefactorASP/
Это действительно намного больше, чем просто находит и заменяет, который они звонят участникам переименования с более понятными именами. Его различные функции легко помогут Вам улучшить свой код.
Вы хотите открыть расширитель "Find Options" и выбрать опцию "Use Regular Expressions". После выполнения этого Вы хотите их как Ваш находить/заменять записи:
Найдите:
HttpContext\.Current\.Session\[{("([^"]|\")*")}\]
Замена:
HttpContext.Current.Session[\1].ToString()
Дополнительное примечание:
После того как Вы включили опцию регулярных выражений, Вы сможете использовать указывающие направо треугольные кнопки для доступа к отрывкам синтаксиса Visual Studio Regex.
Также обратите внимание, что синтаксис Visual Studio Regex является симпатичным гетто, поскольку это не изменилось со дней Visual Studio 6 (или ранее?) - так не считают элементов синтаксиса само собой разумеющимся.
Например, можно было бы ожидать, что моя находка regex выше повреждается, потому что обратной косой черты перед двойной кавычкой правильно не оставляют, но в действительности, помещение двойной обратной косой черты там повредит выражение, не зафиксирует его.