当我们 select 在 1C:Enterprise 中的文件时如何获取名称文件
How to get name file when we select a file in 1C:Enterprise
我目前正在使用 1C:ERP 并且正在编写一个模块以从 Excel 文件导入数据,但我将使用多种类型的 Excel 文件,他们每个人都有另一个文件名,所以我想知道当我们select一个文件
时如何获取文件名
&AtClient
Procedure FillFromFile(Command)
FileDialog = New FileDialog(FileDialogMode.Open);
FileDialog.Title = "Choose file";
FileDialog.Filter = "Tabular document|*.xlsx";
NotifyDescription = New NotifyDescription("FillFromFile_NotifyDescription", ThisObject);
FileDialog.Show(NotifyDescription);
EndProcedure
&AtClient
Procedure FillFromFile_NotifyDescription(SelectedFiles, AdditionalParameters) Export
If SelectedFiles <> Undefined Then
BinaryData = New BinaryData(SelectedFiles[0]);
StorageFilePath = PutToTempStorage(BinaryData);
FillFromFileAtServer(StorageFilePath, SelectedFiles[0]);
EndIf;
EndProcedure
您可以创建一个额外的方法 GetNameFile()。例如,"C:\Usersc\AppData\Local\Temp\Excel.xlsx"
&AtServer
Function GetNameFile(FileDirectory)
Post = Find(FileDirectory,"\");
While Post<>0 Do
FileDirectory = Right(FileDirectory,StrLen(FileDirectory) - Post);
Post = Find(FileDirectory,"\");
EndDo;
Return FileDirectory;
EndFunction
您将在 return
中获得 "Excel"
我目前正在使用 1C:ERP 并且正在编写一个模块以从 Excel 文件导入数据,但我将使用多种类型的 Excel 文件,他们每个人都有另一个文件名,所以我想知道当我们select一个文件
时如何获取文件名&AtClient
Procedure FillFromFile(Command)
FileDialog = New FileDialog(FileDialogMode.Open);
FileDialog.Title = "Choose file";
FileDialog.Filter = "Tabular document|*.xlsx";
NotifyDescription = New NotifyDescription("FillFromFile_NotifyDescription", ThisObject);
FileDialog.Show(NotifyDescription);
EndProcedure
&AtClient
Procedure FillFromFile_NotifyDescription(SelectedFiles, AdditionalParameters) Export
If SelectedFiles <> Undefined Then
BinaryData = New BinaryData(SelectedFiles[0]);
StorageFilePath = PutToTempStorage(BinaryData);
FillFromFileAtServer(StorageFilePath, SelectedFiles[0]);
EndIf;
EndProcedure
您可以创建一个额外的方法 GetNameFile()。例如,"C:\Usersc\AppData\Local\Temp\Excel.xlsx"
&AtServer
Function GetNameFile(FileDirectory)
Post = Find(FileDirectory,"\");
While Post<>0 Do
FileDirectory = Right(FileDirectory,StrLen(FileDirectory) - Post);
Post = Find(FileDirectory,"\");
EndDo;
Return FileDirectory;
EndFunction
您将在 return
中获得 "Excel"