1041阅读
3回复

[数据处理]数据批处理

UID ：125671

注册：2017-11-21
登录：2019-09-25
发帖：37
等级：仿真新人

0楼发表于: 2018-05-27 21:21:12

' Batch Export Results

Option Explicit
Sub Main()
Dim cst_FileName As String
Dim cst_ASCIIName As String
Dim cst_Frequency As Double
For cst_Frequency = 3.8 To 4.4 STEP 0.01
    cst_FileName = "2D/3D Results\Current Density\current(f="+Format(CStr(cst_Frequency))+")[1]"
    cst_ASCIIName = "current_f="+Format(CStr(cst_Frequency))+".txt"
    SelectTreeitem(cst_FileName)

    With ASCIIExport
    .Reset
    .FileName(cst_ASCIIName)
    .Mode("FixedNumber")
    .StepX(1)
    .StepY(0.2)
    .StepZ(1)
  &nb ..

未注册仅能浏览部分内容，查看全部内容及附件请先登录或注册