Added new command

FriedrichWeinmann · FriedrichWeinmann · commit 9276e882d7dc · 2017-12-11T12:36:38.000+01:00
diff --git a/PSModuleDevelopment/PSModuleDevelopment.psproj b/PSModuleDevelopment/PSModuleDevelopment.psproj
@@ -46,6 +46,7 @@
     <File Build="2" Shared="True" ReferenceFunction="Invoke-Rename-PSMDParameter_ps1">functions\refactor\Rename-PSMDParameter.ps1</File>
     <File Build="2" Shared="True" ReferenceFunction="Invoke-Expand-PSMDTypeName_ps1">functions\assembly\Expand-PSMDTypeName.ps1</File>
     <File Build="2" Shared="True" ReferenceFunction="Invoke-Set-PSMDParameterHelp_ps1">functions\refactor\Set-PSMDParameterHelp.ps1</File>
+    <File Build="2" Shared="True" ReferenceFunction="Invoke-Split-PSMDScriptFile_ps1">functions\refactor\Split-PSMDScriptFile.ps1</File>
   </Files>
   <StartupScript>F:\Synchronized Data\Scripte\Powershell Studio\Projects\PSModuleDevelopment\Test-Module.ps1</StartupScript>
 </Project>
diff --git a/PSModuleDevelopment/functions/refactor/Split-PSMDScriptFile.ps1 b/PSModuleDevelopment/functions/refactor/Split-PSMDScriptFile.ps1
@@ -0,0 +1,54 @@
+﻿function Split-PSMDScriptFile
+{
+	<#
+		.SYNOPSIS
+			Parses a file and exports all top-level functions from it into a dedicated file, just for the function.
+		
+		.DESCRIPTION
+			Parses a file and exports all top-level functions from it into a dedicated file, just for the function.
+			The original file remains unharmed by this.
+	
+			Note: Any comments outside the function definition will not be copied.
+		
+		.PARAMETER File
+			The file(s) to extract functions from.
+		
+		.PARAMETER Path
+			The folder to export to
+		
+		.PARAMETER Encoding
+			Default: UTF8
+			The output encoding. Can usually be left alone.
+		
+		.EXAMPLE
+			PS C:\> Split-PSMDScriptFile -File ".\module.ps1" -Path .\files
+	
+			Exports all functions in module.ps1 and puts them in individual files in the folder .\files.
+	#>
+	[CmdletBinding()]
+	Param (
+		[Parameter(ValueFromPipeline = $true)]
+		[string[]]
+		$File,
+		
+		[string]
+		$Path,
+		
+		$Encoding = "UTF8"
+	)
+	
+	process
+	{
+		foreach ($item in $File)
+		{
+			$a = $null
+			$b = $null
+			$ast = [System.Management.Automation.Language.Parser]::ParseFile((Resolve-Path $item), [ref]$a, [ref]$b)
+			
+			foreach ($functionAst in ($ast.EndBlock.Statements | Where-Object { $_.GetType().FullName -eq "System.Management.Automation.Language.FunctionDefinitionAst" }))
+			{
+				$ast.Extent.Text.Substring($functionAst.Extent.StartOffset, ($functionAst.Extent.EndOffset - $functionAst.Extent.StartOffset)) | Set-Content "$Path\$($functionAst.Name).ps1" -Encoding UTF8
+			}
+		}
+	}
+}
