Question

如果文本文件："C:\Temp\CAD_Kunde.txt"存在，我想查看vbscript，如果没有，则应创建一个包含此文本的文件：

1
BEHR;B18 SP4;B18 SP7;0
AUDI;B19 SP3;0
BMW;B19 SP3;0
BIT;B18 SP4;B19 SP3;B16 SP9;0
CHRYSLER;B18 SP4;0
CAE_64;B19 SP3;0
CNHTC;B19 SP3;0
DAF;B19 SP3;0
DASSAULT;B18 SP7;B19 SP3;0
DFCV;B19 SP3;0
FORD;B18 SP4;0
FREIGHTL;B19 SP3;0
FUSO;B19 SP3;0
HINO;B19 SP3;0
HONDA;B19 SP3;0
IVECO;B19 SP3;0
MAN;B19 SP3;0
NISSAN;B19 SP3;0
MB;B19 SP3;0
PACCAR;B19 SP3;0
PORSCHE;B19 SP3;0
PORSCHE_HYBRID_DX;B19 SP3;0
PSA;B19 SP3;0
RENAULT;B19 SP3;0
RVI;B18 SP4;0
SCANIA;B19 SP3;0
TELCO;B19 SP3;0
UD_TRUCK;B17 SP4;0
VOLVO_CAR;B18 SP4;0
VOLVO_TRUCK;B19 SP3;0
V5_MM;B18 SP4;0
V5_BM;B19 SP3;0
V5_TEST;B19 SP9;0
VW;B19 SP3;0

应使用相同的格式创建文本文件中的文本。

编辑：好的，我没有任何部分来检查文件的存在以及何时不创建它。我现在需要帮助在else条件下实现写入文件的部分。

<SCRIPT Language="VBScript"> 
Option Explicit  
Dim oTxtFile  
With (CreateObject("Scripting.FileSystemObject"))   
If .FileExists("C:\Temp\Kunde.txt") Then       
Else      
Set oTxtFile = .CreateTextFile("C:\Temp\Kunde.txt")
oTxtFile.Close  
End If  
End With
</script>

Answer 1

请快速查看here和here。

---在askers编辑后---

啊，现在我们到了某个地方。在Stack Overflow上，我们期待问题的一些努力，而不是“你能写我的代码吗？”的问题。

在检查文件是否不存在之后，如果在ForWriting模式下打开文本文件并将Create选项设置为True，则会更容易：

dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("c:\somefile.txt", ForAppending, True) 
filetxt.WriteLine("Your text goes here.")
filetxt.Close

这将创建文本并将其写入文本文件。现在我们必须用你的文字填写它。如果您打开Excel并将文本复制粘贴到B列，那么这将是最简单的，然后：

在单元格A1中添加以下文字：filetxt.WriteLine("
在单元格C1中添加以下文字：")
在第D1列中输入此公式：=A1 & B1 & C1
将单元格A1，C1和D1向下复制到B列上最后一个填充的单元格
将D列中的文字复制粘贴到说明filetext.WriteLine("Your text goes here.")的脚本中。

运行你的脚本。

最终解决方案：

Option Explicit   
dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set filesys = CreateObject("Scripting.FileSystemObject")
If not filesys.FileExists("C:\Temp\Kunde.txt") Then
    Set filetxt = filesys.OpenTextFile("C:\Temp\Kunde.txt", ForWriting, True) 
    ' 
    ' Copy - Paste the appropriate filetext.WriteLine statements here
    '        
    filetxt.Close
End If

VBScript检查文本文件是否存在以及何时不创建包含预置文本的文件

1 个答案: