如何将文件名中下划线变成小数点？

910202dong

creo文件名称不能使用小数点，一般都使用下划线“_”代替，读取文件名信息时候，有没有函数式能把下划线“_”转化成小数点“.”。

zhouzhouag

这个问题太深奥了。。。。

wild_fire

你举几个文件名例子，可能用简单的批处理就可以搞定。

暗菩提

可以用编程软件编个小程序的。以下两个VB代码整合一下应该就可以。估计现在都用python了吧。由于自己当前电脑未装VS，没法整合并验证。

提取字符串并将其中"_"改成"."。
Module Module1
    Sub Main()
        Dim name As String = "123_456"
        Dim i As Long
        Dim j As Integer = Len(name)
        Dim nname(j) As String
        For i = 1 To j - 1
            nname(i) = Mid(name, i, 1)
            If nname(i) = "_" Then
                nname(i) = "."
            End If
        Next i
        Dim m As Long
        Dim str As String = ""
        For m = 1 To j - 1
            str = str & nname(m)
        Next m
        Console.WriteLine(str)
        Console.ReadLine()
    End Sub
End Module

输入文件夹路径并将其中所有文件在原名称后加三位的编号
Imports System
Imports System.IO
Module Module1
Sub Main()
Console.WriteLine("请输入文件路径（路径结尾加\）:")
Dim path As String = Console.ReadLine()
Dim dirs As String() = Directory.GetFiles(path, "*")
Console.WriteLine("总文件数{0}个", dirs.Length)
Dim i As Integer = 0
For Each dir As String In dirs
Dim name As String = System.IO.Path.GetFileName(dir)
Dim exte As String = System.IO.Path.GetExtension(dir)
Dim oname As String = Left(name, Len(name) - 4)
Dim oldname As String = dirs(i)
Dim newname As String = path + oname + Format(i + 1, "000") + exte
Rename(oldname, newname)
Console.WriteLine(oldname & "====>" & newname)
i += 1
Next
Console.ReadLine()
End Sub
End Module

910202dong

暗菩提 发表于 2021-6-13 21:09
可以用编程软件编个小程序的。以下两个VB代码整合一下应该就可以。估计现在都用python了吧。由于自己当前电 ...

谢谢啦，学习一下

Niklaus9084

顶起来，期待二次开发大神来个小插件，不只是.，还有空格，神烦

fuguangyi

Creo文件名不能用“.”，我们都是在模板里加好关系式，转换文件名为图号名：例如文件名GG_01   ，图号名就是GG.01



CINDEX=REL_MODEL_NAME
ORITEXT = "_"
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP+"." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(CINDEX)\
-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "."+  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "."+  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF
IF SEARCH(CINDEX,ORITEXT)>1
TMP=EXTRACT(CINDEX,1,SEARCH(CINDEX,ORITEXT)-1)
CINDEX=TMP + "." +  EXTRACT(CINDEX,SEARCH(CINDEX,ORITEXT)+1,STRING_LENGTH(\
CINDEX)-SEARCH(CINDEX,ORITEXT))
ENDIF

风来风去

BBB1=string_length(AAAA)
BBB2=search(AAAA,"_")
if BBB2>0
BBB3=BBB2-1
BBB4=BBB2+1
BBB5=BBB1-BBB2
AAAA0=extract(AAAA,1,BBB3)
AAAA2=extract(AAAA,BBB4,BBB5)
else
AAAA0=AAAA
endif
Filename=rel_model_name()      
Strlen=string_length(Filename)
Strlen1=search(Filename,"_")
if Strlen1 == 0
else
    Strlen2=Strlen1-1
    Strlen3=Strlen1+1
    Strlen4=Strlen-Strlen1
    E2=extract(Filename,1,Strlen2)
    E3=extract(Filename,Strlen3,Strlen4)
    E0=E2+"."+E3
    Filename=E0
    Strlen1=search(Filename,"_")
endif
if Strlen1 != 0
    Strlen2=Strlen1-1
    Strlen3=Strlen1+1
    Strlen4=Strlen-Strlen1
    E2=extract(Filename,1,Strlen2)
    E3=extract(Filename,Strlen3,Strlen4)
    E0=E2+"."+E3
    Filename=E0
   Strlen1=search(Filename,"_")
endif
if Strlen1 != 0
    Strlen2=Strlen1-1
    Strlen3=Strlen1+1
    Strlen4=Strlen-Strlen1
    E2=extract(Filename,1,Strlen2)
    E3=extract(Filename,Strlen3,Strlen4)
    E0=E2+"."+E3
    Filename=E0
endif

简化版，只识别3位_

暗菩提

fuguangyi 发表于 2021-6-15 11:31
Creo文件名不能用“.”，我们都是在模板里加好关系式，转换文件名为图号名：例如文件名GG_01   ，图号名就 ...

这个方法nice，感谢大神指点，谢谢！

d33

学习VBA代码，感谢分享