Vb.net 将字符串写入10个不同文件中的1个，而不选择大小写？

我必须根据他的计算值将一个字符串写入10个文件中的1个，每个文件对应一个值。该值在-5到+5的范围内，从不为零

那你知道更有效的方法吗

SELECT CASE value
   CASE -5
     Write2File(FileNameMinus5, string)
   CASE -4
     Write2File(FileNameMinus4, string)
   CASE -3
     Write2File(FileNameMinus3, string)
   ...
   CASE +1
     Write2File(FileNamePlus1, string)
   CASE +2
     Write2File(FileNamePlus2, string)
   CASE +3
     Write2File(FileNamePlus3, string)
   ...
END SELECT

我想到的是

   Write2File(FileName%ContentOfValue%, string)

我该怎么做呢？

用这个

Dim filename As String
If value < 0 Then
  filename = FileName+"Minus"+Math.Abs(value)
Else
  filename = FileName+"Plus"+value
End If

Dim文件名为字符串
如果值<0，则
filename=filename+“减”+Math.Abs（值）
其他的
文件名=文件名+“加”+值
如果结束

使用此

Dim filename As String
If value < 0 Then
  filename = FileName+"Minus"+Math.Abs(value)
Else
  filename = FileName+"Plus"+value
End If

Dim文件名为字符串
如果值<0，则
filename=filename+“减”+Math.Abs（值）
其他的
文件名=文件名+“加”+值
如果结束

您可以使用字典存储要写入的值和要使用的文件名

Dim mapping As Dictionary(Of Int32, String) = New Dictionary(Of Int32, String)
mapping.Add(-5, "FilenameMinus5")
mapping.Add(-4, "FilenameMinus4")
mapping.Add(-3, "FilenameMinus3")
mapping.Add(-2, "FilenameMinus2")
mapping.Add(-1, "FilenameMinus1")
mapping.Add(1, "FilenamePlus1")
mapping.Add(2, "FilenamePlus2")
mapping.Add(3, "FilenamePlus3")
mapping.Add(4, "FilenamePlus4")
mapping.Add(5, "FilenamePlus5")

现在写入文件只是从字典中提取文件名的问题

Dim newValue = -5
Dim file = mapping(newValue)
Write2File(file, stringtobewritten)

您甚至可以更改字典定义，将要对数据执行的操作直接存储在值部分

Dim mapping As Dictionary(Of Int32, Action(Of String)) = 
                          New Dictionary(Of Int32, Action(Of String))

mapping.Add(-5, Sub(value) Write2File("FilenameMinus5", value))
mapping.Add(-4, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(-3, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(-2, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(-1, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(1, Sub(value) Write2File("FilenamePlus1", value))
mapping.Add(2, Sub(value) Write2File("FilenamePlus2", value))
mapping.Add(3, Sub(value) Write2File("FilenamePlus3", value))
mapping.Add(4, Sub(value) Write2File("FilenamePlus4", value))
mapping.Add(5, Sub(value) Write2File("FilenamePlus5", value))

Dim stringToBeWritten = "TestData"
Dim newValue = -5
mapping(newValue)(stringToBeWritten)

---

您可以使用字典来存储要写入的值和要使用的文件名

Dim mapping As Dictionary(Of Int32, String) = New Dictionary(Of Int32, String)
mapping.Add(-5, "FilenameMinus5")
mapping.Add(-4, "FilenameMinus4")
mapping.Add(-3, "FilenameMinus3")
mapping.Add(-2, "FilenameMinus2")
mapping.Add(-1, "FilenameMinus1")
mapping.Add(1, "FilenamePlus1")
mapping.Add(2, "FilenamePlus2")
mapping.Add(3, "FilenamePlus3")
mapping.Add(4, "FilenamePlus4")
mapping.Add(5, "FilenamePlus5")

现在写入文件只是从字典中提取文件名的问题

Dim newValue = -5
Dim file = mapping(newValue)
Write2File(file, stringtobewritten)

您甚至可以更改字典定义，将要对数据执行的操作直接存储在值部分

Dim mapping As Dictionary(Of Int32, Action(Of String)) = 
                          New Dictionary(Of Int32, Action(Of String))

mapping.Add(-5, Sub(value) Write2File("FilenameMinus5", value))
mapping.Add(-4, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(-3, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(-2, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(-1, Sub(value) Write2File("FilenameMinus4", value))
mapping.Add(1, Sub(value) Write2File("FilenamePlus1", value))
mapping.Add(2, Sub(value) Write2File("FilenamePlus2", value))
mapping.Add(3, Sub(value) Write2File("FilenamePlus3", value))
mapping.Add(4, Sub(value) Write2File("FilenamePlus4", value))
mapping.Add(5, Sub(value) Write2File("FilenamePlus5", value))

Dim stringToBeWritten = "TestData"
Dim newValue = -5
mapping(newValue)(stringToBeWritten)

---

很好地使用字典的行动！很好地使用字典的行动！